UDPClientを別のスレッドで使用するDelphi

Question

今週、私はDelphi UDPClientを（ヘルプで）動作させることができました。今では、別のユニットと独自のスレッドでクライアント・プロシージャを実行する必要があります。簡単な例があるか、少なくとも擬似コードを誰かが共有できるのでしょうか？スレッドから返されたデータを取得してTMemoフィールドに表示するので、スレッドでTFormを使用しないようにしました。私はIdUPDClient型を完全に定義することに特有の問題を抱えています。

Answer 1

TTaskを使用して、分離されたスレッドでいくつかのコードを実行し、System.Threadingを使用することができます。

TTask.run(procedure 
    var UDPClient : TIdUDPClient; 
    begin 
    UDPClient := TIdUDPClient.Create(self); 
    UDPClient.Host := 'put your host'; 
    UDPClient.Port := 0;//PUT YOUR PORT 
    UDPClient.ReceiveTimeout := 5000; 
    UDPClient.BufferSize := 8192; 
    UDPClient.Active := True; 
    while True do //put your condition here 
    begin 
     //some code 
     //When you need to update the screen you should syncronize 
     TThread.Synchronize(TThread.CurrentThread, procedure 
     begin 
     form1.Memo1.Text := 'update'; 
     end); 
    end; 
    UDPClient.DisposeOf; 
    end);