DARemoteDataAdapter

最新推荐文章于 2025-08-16 09:13:57 发布

zx_ali

最新推荐文章于 2025-08-16 09:13:57 发布

阅读量694

点赞数

CC 4.0 BY-SA版权

文章标签： exception application server sql dll

本文链接：https://blog.youkuaiyun.com/zx_ali/article/details/5073677

本文描述了一个DLL中调用应用程序服务器获取数据的过程，并在使用不同SQL语句时遇到的问题：当使用第二个SQL语句时，程序挂起并抛出超时异常。问题可能与远程数据适配器的数据填充有关。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Hello,

I have a procedure in DLL which connects to Application Server to retrieve
the data with the following code:

with frmCommunication do
begin
vFileName := GetTemporaryFileName('.xml');
with dtOnDemand do
begin
vDone := False;
while (not vDone) and (not frmCommunication.Cancel) do
try
Application.ProcessMessages;
if Active then Close;
DARemoteDataAdapter.GetDataCall.MethodName := 'SQLGetData';
DARemoteDataAdapter.GetDataCall.RefreshParams;
DARemoteDataAdapter.GetDataCall.ParamByName('aSQLText').AsString
:= StrPas(Data);
DARemoteDataAdapter.GetDataCall.ParamByName('aIncludeSchema').AsBoolean
:= True;
DARemoteDataAdapter.GetDataCall.ParamByName('aMaxRecords').AsInteger
:= -1;
DARemoteDataAdapter.Fill([dtOnDemand], True, True);
vDone := True
except
on E: EROException do
memLog.Lines.Add(E.Message)
end;
end;

The problem is, when the procedure invoked with one SQL, all is working
okay.

When i use another SQL statement, it hangs on DARemoteDataAdapter.Fill call
and then raises exception:

Exception was raised on server: timeout expired.

What could be the reason?

dtOnDemand is TDAADODataTable...Communication is done using
WinInetHTTPChannel...

Thanks,
Eugene.