Hallo,
ich hab ein (an sich triviales) Problem, und hab bis jeztzt nicht herausgefunden woran es liegt.
Mein Dienst sendet Reqests über
TCP/
IP an ein Server Propgramm und wartet auf eine Antwort, welche manchmal nicht sofort kommt.
Nun gibt es einen Thread, der also darauf wartet, ob sich der Inhalt einer Variable ändert.
Der Thread hat eine Variable vom Typ ^Variant.
vWaiter.AValue := @AValue;
Ich über gebe die Variable (z.B. ein String) als @myVar.
leider erkennt der Thread nicht, dass sich der Wert geändert hat.
Der Inhalt von AValue^ (AValue vom Typ ^Variant) bleibt immer gleich, obwohl ein anderer Thread den Inhalt nachweislich geändert hat.
Delphi-Quellcode:
procedure Compare;
var
vTemp: Variant;
begin
vTemp := AValue^;
FChanged := FOldValue <> vTemp;
vTemp := unassigned;
end;
Compare wird vom thread mit Synchronize aufgerufen um gleichzeitigen Zugriff auf die Variable zu verhindern.
Was habe ich übersehen?
Vielen Dank!!
Toni