delphi - 我可以从 FormCreate 调用 TIdTCPClient 函数吗？

Question

我不确定 Delphi 何时创建主窗体的子组件。

在我的 TMainForm.FormCreate() 中，我正在调用 TIdTCPClient.Connect() 和 TIdTCPClient.SendCmd()。我的程序显示在 Windows 任务管理器中，但我没有看到 GUI。但是，如果我断开以太网电缆并启动程序，就会出现 GUI。

我猜测这是因为我试图在主窗体的 FormCraete() 方法中调用主窗体的子组件的方法。

哎呀，我忘了说 - TIdTCPClient 是在设计时放置在表单上的，它不是在运行时动态创建的。

有什么意见吗？提前致谢

Answer 1

问题在于 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 内容移动到它自己的线程中，这样它就不会与主线程连接。