Hi,
der Vorschlag von Choose wird zwar funktionieren, aber er ist meiner Meinung nicht so gut.
Ich würde es so machen:
Nur für den Zugriff auf TMemo und ähnliche Komponenten Synchronize verwenden, da dieser Code im Mainthread ausgeführt wird. (nur das notwendigste mit synchronize ausführen)
Dein TIdTCPClient sollte zum Thread gehören (d.h. im Thread erstellen, initalisieren und am Ende freigeben), damit er im Thread arbeiten kann und nicht im Mainthread arbeiten muss. Wenn du (fast) alles im Mainthread ausführst, dann kannst du dir den zweiten Thread gleich sparen...
Ungefähr so würde ich es machen:
Delphi-Quellcode:
type
TMyThreadClass = class(TThread)
private
FClient : TSomeClient;
FMemo : TSomeVCLControl;
procedure UpdateMemo;
protected
s: string;
procedure Execute;override;
public
constructor Create(Host: string; Port: integer; const AMemo: TSomeVCLControl);
end;
constructor TMyThreadClass.Create(Host: string; Port: integer; const AMemo: TSomeVCLControl);
begin
inherited Create(True);
Assert(Assigned(AMemo));
FClient:= TIdTCPClient.Create(nil);
FClient.Host:=Host;
FClient.Port:=Port;
//copy references to member vars
FMemo:= AMemo;
//start thread
Resume;
end;
procedure TMyThreadClass.Execute;
begin
try
FClient.Connect;
while (not Terminated) and (FClient.Connected) do
begin
s:=FClient.Readln;
Synchronize(UpdateMemo);
end;
finally
FClient.Free;
end;
end;
procedure TMyThreadClass.UpdateMemo;
begin
//will be executed within the mainthread
FMemo.Lines.Append(s);
end;