SendMessage überträgt String nicht zuverlässig

[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
...

[theunreplicated]

vllt. könntest du es auch mal mit SendMessageW versuchen.
Denn das W als letzter Buchstabe im Funktionsname steht nämlich für den Unicode-Funktion Aufruf der WinAPI.
Ich schätze mal,dass es daran liegen wird.
Denn n Delphi-String baut afaik auf Unicode auf, mit SendMessage ohne W(ist eigentlich n Makro für SendMessageA) rufst du aber die Funktion für Ansi-Strings auf.

[himitsu]

Das hat hier keinerlei Auswirkung, da diese Message binär ist und nichts mit Texten zu tun hat.


Und nein, ein Delphi-String ist nicht immer Unicode.

Bis Delphi 2007 ist String ein Alias für AnsiString und SendMessage ist ein Alias für SendMessageA.
Ab Delphi 2009 ist String ein Alias für UnicodeString und SendMessage ein Alias für SendMessageW.
Ach ja, ganz am Anfang war String das, was heutzutage der ShortString ist.

[Kostas]

Hallo zusammen,

ach, ein dummer Fehler ist mit da passiert.
Ich habe eine public Variable vom Typ TCopyDataStruct angelegt
und mit Werten befüllt. Danach über einen Thread zugegriffen und gesendet.
Jetzt erzeuge ich das TCopyDataStruct innerhalb vom Thread und es funktioniert
einwandfrei.

Sorry dass ich bemüht habe.
Gruß Kostas