Auf ein Callback warten

[Kanonier]

Ich habe ein folgendes Problem:
Habe eine Dll die über ein TClientSocket mit einem Server der auf TServersocket bassiert kommuniziert. Jetzt stellt meine DLL bestimmte Funktion zu verfügung mit denen Daten vom Server abgefragt werden können. Mit SendBuf schicke ich eine Anfrage los und erwarte mit dem CallBack OnRead die gefragten Daten. Dabei polle ich eine globalle Variable ab die erst gesetzt wird wenn die Daten in OnRead angekommen sind. Ist meine Timeout zeit überschritten so Springe ich aus meine Schleife raus und so auch aus der Dll.
Ich suche jedoch nach einer anderen Methode um auf einen Callback zu warten. Diese nihmt nähmlich viel Rechenzeit in anspruch. Ich dachte hierbei an einen separaten Thread der den Callback abfängt. Jedoch ist dies eine Methode eine Objekts und ich weis nicht wie ich mir sowas basteln soll.
Kennt einer einen Rat.

Danke und einen schönen Nikolaus weiterhin

[shmia]

Du könntest ein Objekt der Klasse TEvent erstellen.

Delphi-Quellcode:

FMyEvent := TEvent.Create(nil, False, False, 'MyEvent');

Später in der DLL möchtest du dich schlafen legen und auf das Eintreffen der Daten warten:

Delphi-Quellcode:

   wr := FMyEvent.WaitFor(30000);   // max. 30 sekunden warten

Das Ergebnis in wr muss anschliesend ausgewertet werden!

Wenn das OnRead Event ankommt und die Daten da sind, dann:

Delphi-Quellcode:

   FMyEvent.SetEvent;

Ob das wirklich so funktioniert kann ich dir nicht garantieren, aber die Chancen sind gut.

[Kanonier]

Jaa habe ich Gesternabend auch versucht das Problem ist aber das es sich dabei um ein Single-Thread handelt. Auf ein Callback wird gar nicht reagiert. Der wird erst ausgeführt wenn ich aus Waitfor mit einem Timeout wieder zurück komme.

hier ein paar Auschnitte aus meinen Code:

Aufruff einer Funktion

Delphi-Quellcode:

DllSocket.SignalEvent.ResetEvent;
DllSocket.ClientSocket.Socket.SendBuf(RequestBuffer,SizeOf(RequestBuffer));
DllSocket.SignalEvent.WaitFor(round(aTimeOut*1000));

In meinem Callback habe ich dann folgendes szehen

Delphi-Quellcode:

Socket.ReceiveBuf(fReq10Res.ArrPrimDataRecord,DataSize);
SignalEvent.SetEvent;

Der Callback selber ist eine Methode der Klasse DllSocket. Die ich in meinen Unit benutze.

[shmia]

Zitat:

Zitat von Kanonier

Jaa habe ich Gesternabend auch versucht das Problem ist aber das es sich dabei um ein Single-Thread handelt. Auf ein Callback wird gar nicht reagiert. Der wird erst ausgeführt wenn ich aus Waitfor mit einem Timeout wieder zurück komme.

Dann spiel mal mit der Eigenschaft TClientsocket.ClientType rum.

[Kanonier]

Ich wei snicht wie das mir dann weiter helfen soll. habe ihn auf Blocking stelle krige ich nur TimeOuts.
kann ich sobald ich einen Aufruff abgeschickt habe einen zweite Thread starten der nur auff den Callback wartet. Und der der mir dann über ein TEvent signaliesiert wenn er zu ende läuft.