... funktionieren.
Ich habe eine
DLL, die verschickt an eine andere Anwendung eine Nachricht per mailslot und dann wartet sie auf die Anwort. Genauergesagt ist da ein Thread, der wartet. Die empfangende Nachricht wird in einen String (fServerList) geschrieben und dann wartet das Teil eben wieder. Funktioniert seit Jahren.
Nun muss das in eine
DLL rein. Rumms, da fangen die Probleme an.
Eigentlich habe ich ja nur ein Problem (bezügl. der
DLL). Wirklich nur eins. Es geht nicht
So warte ich auf die Nachricht.
Delphi-Quellcode:
Function TIDEClientMail.WaitForServerList : Boolean;
Const
ccTimeOut = 5000;
Var
t : Cardinal;
Begin
t := GettickCount;
Repeat
Application.ProcessMessages;
Sleep (0);
Result := (GetTickCount - t) <= ccTimeout;
Until Not Result or (fServerList <> '');
End;
So gehts nicht.
Wenn nich nun eine blöde Zeile einfüge
Delphi-Quellcode:
...
Begin
MessageDlg('Wie witzig', mtWarning, [mbOK], 0); // <-- Das hier am Anfang eingefügt und -funzt-
t := GettickCount;
...
klappt es plötzlich. Da frag ich mich doch ganz spontan:
Oder anders ausgedrückt: Kann ich die Zauberei, die im 'MessageDlg' passiert, nicht irgendwie simulieren, das meine "%%§$§$-
DLL endlich funktioniert?