Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
910 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

WM_COPYDATA sendet nur 62 Bytes

  Alt 8. Feb 2021, 16:08
Hallo Zusammen,

ich versuche hiermit einen String zu einer anderen Delphi App zu senden. Der String ist 120 Bytes lang.
Gesendet werden jedoch nur die ersten 62 Bytes. Hat jemand eine Idee warum?


Delphi-Quellcode:
procedure TfrPlantafel.SendData(aImage, aLink, aText: String);
var receiverHandle : THandle;
   copyDataStruct : TCopyDataStruct;
   SendMsgText: String;
begin
 receiverHandle := FindWindow(PChar('TfrSenderApp'),PChar('frSenderApp'));
 SendMsgText := Format('%s;%s;%s',[aLink, aImage, aText]); //<< SendMsgText ist 120 Bytes lang.

 
 
 if receiverHandle > 0 then
 begin
   copyDataStruct.dwData := Ord(ntSendWhatsAppMsg);
   copyDataStruct.cbData := 1 + Length(SendMsgText);
   copyDataStruct.lpData := PChar(SendMsgText);

   SendMessage(receiverHandle, WM_COPYDATA, LPARAM(Handle), WPARAM(@copyDataStruct)) ;
 end else
 begin
   bsm('Die Sender Anwendung läuft nicht.');
 end;
end;

Gruß Kostas
  Mit Zitat antworten Zitat