SendMessage überträgt String nicht zuverlässig

[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

[himitsu]

Jaja, es ist immer besser, alles zu sagen und wenn möglich auch den Originalcode zu zeigen, da sonst wichtige Informationen fehlen.

Ich hoffe du hast die Zugriffe auch orgendlich abgesichert. !:!
- z.B. synchronisieren oder über CriticalSections sperren

Dein Fehler war also nicht der Thread, sondern die Speicherverwaltung.
Wenn du schon sowas machst, dann soltest du unbedingt lernen und verstehen, wie das mit den Pointern so funktioniert.

Zitat:

copyDataStruct.lpData := PChar(Nachricht);

Hier wird nur ein Zeiger auf die Daten des Strings "Nachricht" in lpData gespeichert.
Wenn jetzt der String zwischenzeitlich verändert oder freigegeben wird, dann ist auch der Zeiger ungültig.