我不确定 Delphi 何时创建主窗体的子组件。
在我的 TMainForm.FormCreate()
中,我正在调用 TIdTCPClient.Connect()
和 TIdTCPClient.SendCmd()
。我的程序显示在 Windows 任务管理器中,但我没有看到 GUI。但是,如果我断开以太网电缆并启动程序,就会出现 GUI。
我猜测这是因为我试图在主窗体的 FormCraete()
方法中调用主窗体的子组件的方法。
哎呀,我忘了说 - TIdTCPClient
是在设计时放置在表单上的,它不是在运行时动态创建的。
有什么意见吗?提前致谢
最佳答案
问题在于 Indy 处于阻塞状态,因此会阻止 Create
继续进行,直到建立连接或超时。
您可以通过使用在 OnCreate
事件中发布到表单的自定义消息来解决此问题,这会将其延迟到表单显示为止:
const
UM_DOCONNECTION = WM_USER + 1;
type
TForm1=class(TForm)
...
private
procedure UmDoConnection(var Msg: TMessage); message UM_DOCONNECTION;
...
end;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
PostMessage(Handle, UM_DOCONNECTION, 0, 0);
// Other stuff
end;
procedure TForm1.UmDoConnection(var Msg: TMessage);
begin
IdTCPClient.Connect;
IdTCPClient.SendCmd(...);
end;
当然,最好的方法是将您的 Indy 内容移动到它自己的线程中,这样它就不会与主线程连接。
关于delphi - 我可以从 FormCreate 调用 TIdTCPClient 函数吗?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11954350/