AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein TWMCopyData Message verschicken. Emfangsproblem

TWMCopyData Message verschicken. Emfangsproblem

Ein Thema von DieDolly · begonnen am 3. Dez 2019 · letzter Beitrag vom 4. Dez 2019
Antwort Antwort
DieDolly

Registriert seit: 22. Jun 2018
1.256 Beiträge
 
#1

TWMCopyData Message verschicken. Emfangsproblem

  Alt 3. Dez 2019, 22:48
Innerhalb meines Programms möchte ich eine message verschicken. Ein MessageHandler, der auch für Messages von woanders zuständig ist, soll die entgegennehmen.

Sender und Empfänger sind dasselbe Programm. Die Message soll gesendet werden, ohne dass eine neue Instanz erstellt wird
Delphi-Quellcode:
// Button1
var
 msg: TWMCopyData;
begin
 msg.CopyDataStruct.cbData := (StrLen(PChar(Command)) + 1) * SizeOf(WideChar);
 msg.CopyDataStruct.lpData := PChar(Command);

 MyMessageHandler(msg);
end;
Delphi-Quellcode:
// MessageHandler
procedure MyMessageHandler(var msg: TWMCopyData);
var
 CommandList: string;
begin
 CommandList:= string(PChar(msg.CopyDataStruct.lpData));

 // Arbeite mit CommandList
end;
Wenn ich abc sende, kommt ab an. Was mache ich da falsch?
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.363 Beiträge
 
Delphi 2006 Professional
 
#2

AW: TWMCopyData Message verschicken. Emfangsproblem

  Alt 3. Dez 2019, 22:55
Du berechnest die Zeichenkettenlänge komisch. Du castest zu PChar multiplizierst aber mit Größe von WideChar. Müsstest du dann nicht auch zu PWideChar casten?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
7.183 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: TWMCopyData Message verschicken. Emfangsproblem

  Alt 4. Dez 2019, 00:52
Seit Delphi 2009 ist SizeOf(Char) = SizeOf(WideChar)
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
7.183 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: TWMCopyData Message verschicken. Emfangsproblem

  Alt 4. Dez 2019, 00:57
Der obige Code funktioniert in einem Minimalprogramm einwandfrei. Kannst du das mit einem Beispielprogramm nachstellen? Dann häng das doch bitte mal hier an.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf