ich möchte einen string aus meinem thread an mein hauptformular übergeben und dort weiterarbeiten.
THREAD:
Delphi-Quellcode:
var temp_string_ptr : ^string;
text : String;
GetMem(temp_string_ptr, SizeOf(text));
temp_string_ptr^ := text;
PostMessage(MainForm.Handle, TH_MESSAGE, integer(temp_string_ptr), GetCurrentThreadID);
MAINFORM:
Delphi-Quellcode:
procedure TMainForm.ThreadMessage(var Message: TMessage);
var temp_string_ptr : ^string;
begin
temp_string_ptr := Pointer(Message.WParam);
end;
was ist daran falsch? bekomme ab und zu eine Zugriffsverletzung... oder liegt der fehler eventuell auch wo anders?
Vielen Dank schonmal