在Delphi XE2中使用TSQLConnection组件连接到DataSnap服务器。我的问题是,如果我们在3秒内无法连接,则希望中止连接尝试,但是设置驱动程序的ConnectTimeout属性似乎没有任何影响(它仍然等待大约20秒才放弃)。我在线程内运行此操作,因此我可以向线程发送消息(我认为是否服务于线程消息队列取决于创建此阻塞调用的方式)。即使我的线程消息处理程序运行,我也不确定如何打断阻塞调用以设置TSQLConnection.Connected属性(该属性在线程的Execute方法中设置)。我不想调用TerminateThread,因为这似乎过度,而且会留下(如果我理解正确)分配给线程堆栈的内存。欢迎提供有关如何中断此连接进程或访问底层Indy组件并明确设置连接超时的任何想法。谢谢!
fConnection := TSQLConnection.Create(nil);
with fConnection do
begin
DriverName := 'DataSnap';
Params.Values['CommunicationProtocol'] := 'tcp/ip';
Params.Values['DatasnapContext'] := 'datasnap/';
Params.Values['HostName'] := '127.0.0.1';
Params.Values['Port'] := '211';
Params.Values['ConnectTimeout'] := '3000';
KeepConnection := true;
LoginPrompt := true;
end;
// Where it blocks for up to 20 seconds (if host unavailable)
fConnection.Connected := True;