SendMessage überträgt String nicht zuverlässig

[Kostas]

Hallo zusammen,

ich sende über SendMessage eine Nachricht an ein anderes Programm.
Dabei wird die Nachricht manchmal am Ende verfälscht. Sie wird abgeschnitten und teilweise andere Zeichen hinzugedichtet.

Zu senden der Nachricht:

Delphi-Quellcode:

type TNachrichtTyp = (ntCreateSnapShot);

var 
  copyDataStruct : TCopyDataStruct;
  res : integer;
  Nachricht : string; 

begin
  Nachricht := 'B;2;160569;Di, 12.06.2012  14:08;DAH-TH480;DAH-TH481';
  copyDataStruct.dwData := Ord(ntCreateSnapShot);
  copyDataStruct.cbData := Length(Nachricht);
  copyDataStruct.lpData := PChar(Nachricht);


  res := SendMessage(HWND_BROADCAST, WM_COPYDATA, Integer(Handle), Integer(@copyDataStruct)) ;

Ich sende also
B;2;160569;Di, 12.06.2012 14:08;DAH-TH480;DAH-TH481;
und Manchmal empfängt das andere Programm:
B;2;160569;Di, 12.06.2012 14:08;DAH-TH480;DAH-TH481D


//zum Empangen der Nachricht.

Delphi-Quellcode:

procedure TfrKamera1.WMCopyData(var Msg: TWMCopyData) ;
var
  NachrichtTyp : TNachrichtTyp;
  Nachricht:string;
begin
  NachrichtTyp := TNachrichtTyp(Msg.CopyDataStruct.dwData);
  Nachricht := PChar(Msg.copyDataStruct.lpData);  //Die Nachricht ist nicht immer identisch!!!


  //Send something back
  msg.Result := SizeOf(Msg.CopyDataStruct);
end;

Hat jemand eine Idee?


Gruß Kostas

[DeddyH]

Was mir zuerst auffällt: das cbData-Feld des CopyDatastructs gibt die Größe in Byte an, nicht die Länge Deines Strings, er ist also falsch belegt. Versuch es also zuerst einmal mit

Delphi-Quellcode:

copyDataStruct.cbData := Length(Nachricht) * SizeOf(Char);

[Bernhard Geyer]

In XE2 ist ein Zeichen eines String 2 Byte lang.
Du verheimslichst damit Windows die Wirkliche länge deiner Daten.

Du brauch also

Delphi-Quellcode:

copyDataStruct.cbData := Length(Nachricht) * Sizeof(Char)

[himitsu]

Und dann wurde noch etwas ganz Wichtiges vergessen.

Am Ziel wird das als PChar ausgelesen, also muß dort auch zwingend das String-Ende mit übertragen werden.

Delphi-Quellcode:

copyDataStruct.cbData := (Length(Nachricht) + 1) * Sizeof(Char);

Alternativ muß man beim Auslesen des Textes die Länge (copyDataStruct.cbData) verwenden und darf eben nicht bis zum nichtübertragenen/fehlenden Stringende lesen.

Ach ja, wenn hier auch noch zwischen zwei Programmen übertragen wird, dann ist und was es schon immer FALSCH, wenn hier PChar verwendet wird, denn wenn ein Programm Unicode ist und das Andere nicht, dann hat man ein Problem.

Bei Datenübertragungen muß immer ein fest definiertes und unveränderliches Format verwendet werden, also hier entweder PAnsiChar oder PWideChar. :warn:
Oder man übergibt das Format mit und liest dann entsprechend aus.



PS: Ist HWND_BROADCAST hier nicht ein klein bissl gefährlich?
Man stelle sich mal vor ein anderes Programm empfängt und wertet ebenfalls WM_COPYDATA mit copyDataStruct.dwData=0 aus,
das wird da bestimmt kanllen, wenn es unverständliche/ungültige Daten empfängt. :angel:

[Sir Rufo]

Es gibt auch noch TEncoding.GetBytes und passend dazu TEncoding.GetString.

Wenn sich beide Seiten auf die gleiche Kodierung einigen, dann geht das eigentlich sehr schön damit.

[Kostas]

Hallo zusammen,

ich glaube das ist der richtige Weg aber es hat noch nicht funktioniert.
Beide Anwendungen sind in Delphi5 geschrieben. Da ist das Char noch 1 Byte lang.

Delphi-Quellcode:

copyDataStruct.cbData := Length(Nachricht) * Sizeof(Char);

//hat nicht funktioniert.

Was himitsu meinte habe ich nicht verstanden. Vermutlich wird das die Lösung sein. :-)


himitsu, wie müsste ich ein String aufbereiten um ihn zu übertragen?

[himitsu]

Ein Delphi-String besitzt eine Längenangabe (Integer) und braucht daher eigentlich die #0 am Ende nicht.

PChar wird aber ausschließlich durch ein #0 am Stringende begrenzt und wenn man Dieses nicht mit überträgt, dann liest man mit PChar bis zum nächsten #0, welches zufällig irgendwo danach im Arbeitsspeicher liegt und wenn es danach keinen reservierten Speicher mehr gibt, dann gibt es eine Zugriffsverletzung.

Delphi besitzt aber implizit zwei Zeichen mehr im Text, nämlich zwei #0, hinter dem letzten Zeichen im String, welches für die Kompatibilität zum PChar vorhanden ist, damit man den Delphi-String problemlos in einen PChar casten kann.
(#0 ist das Ende eines PChar und #0#0 sind das Ende einer Stringliste aus PChars)




Auslesen bis zum #0.

Delphi-Quellcode:

var
  copyDataStruct : TCopyDataStruct;
  Nachricht : AnsiString;

begin
  copyDataStruct.dwData := ...;
  copyDataStruct.cbData := (Length(Nachricht) + 1{die abschließende #0}) * SizeOf(AnsiChar);
  copyDataStruct.lpData := PAnsiChar(Nachricht);

  SendMessage(HWND_BROADCAST, WM_COPYDATA, LPARAM(Handle), WPARAM(@copyDataStruct));


Nachricht := PAnsiChar(Msg.copyDataStruct.lpData);

Auslesen über Längenangabe:

Delphi-Quellcode:

var
  copyDataStruct : TCopyDataStruct;
  Nachricht : AnsiString;

begin
  copyDataStruct.dwData := ...;
  copyDataStruct.cbData := Length(Nachricht) * SizeOf(AnsiChar);
  copyDataStruct.lpData := PAnsiChar(Nachricht);

  SendMessage(HWND_BROADCAST, WM_COPYDATA, LPARAM(Handle), WPARAM(@copyDataStruct));



SetString(Nachricht, PAnsiChar(Msg.copyDataStruct.lpData), Msg.copyDataStruct.cbData div SizeOf(AnsiChar));

Oder WideString/UnicodeString mit WideChar und PWideChar.

Oder als UTF8String mit AnsiChar und PAnsiChar.

[himitsu]

Bezüglich dem PS meines ersten Posts:

Zitat:

ich sende über SendMessage eine Nachricht an ein anderes Programm

Nein, das machst du nicht. Du sendest diese Nachricht an alle anderen Programme. (abgesehn von Denen mit höheren Rechten, an die dein Programm keine Messages senden darf)

[Kostas]

Hallo himitsu,

eigentlich möchte ich die Nachricht an alle Programm(nur Eigene Programme) senden
die genau diese Nachricht konsumieren können. Die Anwendungen können auch mehrfach gestartet sein.
Gibt es dafür eine bessere Möglichkeit? Du hast natürlich recht, das fremde Programm die Nachricht erst garnicht bekommen sollen.

Leider hat die Variante "Auslesen bis zum #0." nicht funktioniert.
Ich versuche mal die Variante "Auslesen über Längenangabe:"

Dankeschönen für deine Unterstützung.

Gruß Kostas

[hathor]

Hier ist es gut beschrieben:
http://delphi.about.com/od/windowssh...m_copydata.htm

Programm-Beispiel:
http://delphi.about.com/library/week...m_copydata.zip

Erforderliche Änderungen bei XE2:

Delphi-Quellcode:

procedure TReceiverMainForm.HandleCopyDataString(
  copyDataStruct: PCopyDataStruct);
var
  s : ANSIstring;  //th
begin
  s := PANSIChar(copyDataStruct.lpData); //th
...
...
procedure TSenderMainForm.SendString();
var
  stringToSend : ANSIstring; //th
...