Das ist der fast komplette Code gewesen, lediglich die Proceduren sind umbenannt und Parameter gekürzt. Was gekürzt wurde ist in ProcedureA, in der folgendes aufgerufen wird (anstelle ProcedureB):
Delphi-Quellcode:
procedure ProcedureA(Gewicht : double)
begin
PostThreadMessage(MyThreadId, WM_Gewichtserfassung, intAndererwert, Integer(@Gewicht));
end;
Im Thread selbst wird dann entsprechender Parameter verarbeitet:
Delphi-Quellcode:
procedure TScheduleThread.Execute;
var
Gewicht: double
begin
Gewicht := PDouble(Gewichtsparameter)^;
end;
Der 'Gewichtsparameter' stimmt mit dem übergebenen Wert aus ProcedureA überein. Geht da bzgl. Threads evtl. etwas verloren?