改为下面这样试试吧!
function TestDB(SS: TSession): LongInt; stdcall;
var
oldSession: TSession;
begin
oldSession := Session;
Session := SS;
Result := GetA;
Session := oldSession;
end;
function TestDB(SS: TSession): LongInt; stdcall;
var
oldSession: TSession;
begin
oldSession := Session;
Session := SS;
Result := GetA;
Session := oldSession;
end;
解决方案 »
- webbrowser的图片保存问题
- WebBowser控件,请问有无办法侦测页面是否导入完毕
- “眼镜财务进销存管理”代码共享
- 关于TADOQUERY的Properties
- 有关编辑框输入格式化的问题
- 有没帅哥给解释一下HOOK,勾子函数是什么东东?我的参考书上都没提到。。
- 如何得到一个类的子类,如:TButtonControl类下有tbutton,TRadioButton等!
- delphi有没有象VB那样,在过程开头on error,然后就可以捕捉到此后所有错误的办法?
- delphi 对中文支持不好的一个例子
- 如何在运行中暂时禁止treeview的CustomDrawItem事件?
- 求助!!!我使用listbox控件,如果现在的记录太长就没有办法看到。我想加个水平的滚动条,不知道怎么做啊
- 下面的代码怎么改正???
谢谢你的解答,你应该的100分