ich habe mal nach einer eigenen Lösung gesucht und dabei habe ich herausgefunden, dass man mit CreateAnonymousThread einen Thread absetzen kann, der nach einem festgelegten Timeout wieder zurückkommt. Aber bei mir wird die Procedure im Thread gar nicht ausgeführt, was mache ich falsch?
Die Procedure sieht wie folgt aus:
Code:
procedure TForm1.DoDCOMPing;
begin
MyDCOMConnection1.AppServer.LogEintrag('Ping-Aufruf');
end;
Wenn ich die Procedure ohne Thread aufrufe, dann funktioniert es:
Code:
procedure TForm1.btnPingClick(Sender: TObject);
begin
DoDCOMPing;
end;
Wenn ich die Procedure in einen Thread einbinde, dann wird sie NICHT ausgeführt:
Code:
procedure TForm1.btnPingClick(Sender: TObject);
begin
TThread.CreateAnonymousThread(DoDCOMPing).Start;
end;
Wo ist mein Denkfehler? Danke.