DCOMConnection mit Timer

[horstmeyer]

Hallo Leute,

ich habe jetzt endlich ein DCOMConnection mit Timer gefunden, der Sourcecode steht hier: https://github.com/fortra/impacket/b...comrt.py#L1246
Allerdings ist dies wohl in C geschrieben. Wie kann ich dies für Delphi übernehmen. Ich leite eine eigene Komponente TMyDCOMConnection = class(TDCOMConnection) ab und dann? Bin beim Komponentenerstellen nicht so versiert, kann mir einer helfen?

Gruß Horst

[horstmeyer]

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.