Hallo zusammen,
ich habe mal eine Frage zum Einsatz von Threads.Ist es sinnvoll, Komponenten direkt in Threads zu verwenden, wie in diesem Beispiel?
Oder spricht etwas dagegen? Wenn ja was?
Danke für die Info!
Delphi-Quellcode:
unit HttpGetThreads;
interface
uses
Classes,
IdBaseComponent, IdComponent, IdTCPConnection,IdTCPClient, IdHTTP,IdObjs;
//Indy
type
THttpGetThread =
class(TThread)
private
{ Private-Deklarationen }
IdHTTP: TIdHTTP;
ContentStream:TStringStream;
procedure loadComplete;
public
url:
string;
protected
procedure Execute;
override;
end;
implementation
uses Unit1;
//Main
procedure THTTPGetThread.Execute;
begin
{ Thread-Code hier einfügen }
IdHTTP:=TIdHTTP.Create;
ContentStream:= TStringStream.Create(toEOF);
try
IdHTTP.Get(
URL,ContentStream);
except
end;
Synchronize(loadComplete);
IdHTTP.Destroy;
ContentStream.Free;
end;
procedure THTTPGetThread.loadComplete;
begin
Form1.parseDoc(ContentStream);
end;
end.