Zitat von
Ruio:
Und zu array[0..999999] of Char;
Ein Dynamisches Array ging da nicht und weil ich nocht weiß wie viel da mal versendet wird ist das erstmal 999999 groß.
Das geht doch eleganter und resourcensparender mit SetString():
Delphi-Quellcode:
procedure Tt4rCore.ReceiveAppMessage(var Msg: TWMCopyData);
var
sText: string;
begin
...
SetString(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData); // Daten in String kopieren
ReceiveAppMessageCallback(Sender,Action, sText);
end;