string mit postmessage übermitteln?

[Robert Marquardt]

Man kann mit PostMessage durchaus einen Pointer/PChar uebermitteln, solange es nur innerhalb des Adressraums des Programms bleibt.
Versucht man die Adresse zu einem anderen Programm zu schicken, so ist sie dort bedeutungslos, da das andere Programm seinen eigenen Adressraum hat.

Der Fehler bei Jens lag daran das die Stringvariable im Threadobjekt enthalten war. Es konnte also prinzipiell vorkommen das der Thread schon beendet war wenn die Message ankam. Der String war dann natuerlich schon dealloziiert und der Pointer zeigte in den Wald.

[p80286]

Da ich vor dem gleiche Problem, kapere ich den Thread einmal.
z.Zt. habe ich folgenden Code (auf das wesentliche gekürzt)

Delphi-Quellcode:

Unit1

  cFILEDELETION   :string= 'Deletion of Files'+#0;
  cGETSOURCEFILES :string= 'get source Files'+#0;
  cGETTARGETFILES :string= 'get target Files'+#0;

Unit2
...
sendmessage(FReceiver,CM_Start2,0,longint(pchar(CGETSOURCEFILES)));
....

UnitMain

procedure TForm1.CMStart2(var msg:TMessage);
var
  mm : pchar;
begin
  mm:=pchar(msg.LParamLo);
  self.StatusBar1.Panels[3].Text:=mm; {---- hier macht es puff mit einer Zugriffsverletzung}
end;

Ich könnte in msg.LParamLo natürlich auch den Index für ein Array of TextMessages übergeben, aber soviel Aufwand für z.Zt 6 Meldungen?

Was ist da nicht in Ordnung?
(sowohl postmessage als auch sendmessage funktionieren nicht!)

Gruß
K-H

[nahpets]

Hilft das weiter? http://www.delphitricks.com/source-c...ndmessage.html

Ansonsten würd' ich das probieren: self.StatusBar1.Panels[3].Text := StrPas(mm);

[p80286]

Leider nicht,
das Strickmuster ist das gleiche wobei txt noch eine lokale variable ist, daß sollte tödlich sein.
und StrPas hat auch keine Besserung gebracht. Es kommt irgendein Adresskrüppel in CMStart2 an.

Gruß
K-H

Edith:
wenn man genau hinsieht erkennt man auch den Unterschied zwischen ,msg.LParam und msg.LParamLo !!?*/!#***Codevervollständigung!
Ja ich weiß, der Fehler sitzt immer vor der Tastatur.

Gruß
K-H

[nahpets]

PChar ist doch ein 0-terminierter String. Du übergibst aber bereist eine Constante, die mit #0 endet. Ist das eventuell doppeltgemoppelt?

Also eher so?

Delphi-Quellcode:

cGETSOURCEFILES :string = 'get source Files';
...
sendmessage(FReceiver,CM_Start2,0,longint(pchar(CGETSOURCEFILES)));

oder so?

Delphi-Quellcode:

cGETSOURCEFILES :string = 'get source Files' + #0;
...
sendmessage(FReceiver,CM_Start2,0,longint(CGETSOURCEFILES));

[himitsu]

Geht das an ein anderes Programm?
Wenn ja, dann nicht PChar, sondern PAnsiChar oder PWideChar verwendent.

LongInt() ... in Blick richtung 64 Bit, solltest du hier besser auch die richtigen Typen verwenden.
Für Messages gibt es die Typen LPARAM, WPARAM und LRESULT.

[p80286]

@nahpets
das +#0 ist nur um sicher zu gehen, das auch wirklich eine Null da steht, ich traue PChar da nicht so recht.

@himitsu
Nö kein anderes Programm, aber der Hinweis mit dem Typ: Danke!
Aber mal zurück gefragt, ist PChar nicht der richtige Typ wenn ich nicht weiß ob der String mit 8 oder 16 Bit Chars aufgebaut wird?

Gruß
K-H