Thread in TIdTCPClient-Klasse

[Zacherl]

Mal ein Beispiel:

Delphi-Quellcode:

type TOwnTCPClient = class(TIdTCPClient)
[...]
procedure DoQuery;
[...]
end;

type TQueryThread = class(TThread)
  procedure Execute; override; //so ähnlich zumindest
end;
[...]

procedure TQueryThread.Execute;
begin
  InternalTCP.Query;
end;

procedure TOwnTCPClient.DoQuery;
var QT: TQueryThread;
begin
  QT := TQueryThread.Create;
  QT.Execute;
end;

Florian