AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

WM_COPYDATA von C++ nach Delphi

Ein Thema von Tubos · begonnen am 17. Sep 2005 · letzter Beitrag vom 17. Sep 2005
Antwort Antwort
Tubos

Registriert seit: 25. Feb 2004
Ort: Yspertal (Niederösterreich)
1.014 Beiträge
 
Delphi 7 Personal
 
#1

WM_COPYDATA von C++ nach Delphi

  Alt 17. Sep 2005, 17:38
Hi,

meine C++ - Anwendung schickt per WM_COPYDATA einen String an eine Delphi Applikation.
Leider funktioniert das nicht ganz.

Die relevanten Codeausschnitte:
Delphi:
Delphi-Quellcode:
type
  TMyRecord = packed record
    b: Boolean;
    s: string[255];
  end;
  PMyRecord = ^TMyRecord;

procedure TLoggerForm.WMCopydata(var msg: TWMCopyData);
var
  MyRecord: PMyRecord;
  b: Boolean;
  s: String;
begin
  b := PMyRecord(msg.CopyDataStruct.lpData)^.b;
  s := PMyRecord(msg.CopyDataStruct.lpData)^.s;
  memo1.Lines.Add(s);
   // Daten auswerten/kopieren
   msg.Result := 1; // erhalt bestätigen
end;
C++:
Code:
// In einer Klasse:
static void add(char *msg)
   {
      HWND logwindow = FindWindow("TLoggerForm", "LoggerForm");
      if (logwindow == NULL) MessageBox(0, "mol", "mol", 0);

      COPYDATASTRUCT MyCDS;
      MYREC MyRec;
      StringCbCopy( MyRec.string, sizeof(MyRec.string), msg );
      MyCDS.dwData = NULL;         // function identifier
      MyCDS.cbData = sizeof( MyRec ); // size of data
      MyCDS.lpData = &MyRec;          // data structure
      SendMessage( logwindow,
               WM_COPYDATA,
               (WPARAM)(HWND)NULL,
               (LPARAM) (LPVOID) &MyCDS );
   }
Wenn das C++-Proggie "Ein String" schickt, kommt "n String" an.
Wenn es " EinString EinString EinString EinString" sendet, kommt "EinString EinString EinString Ei" an.

Ich glaube, dass es an der Umwandlung zwischen Delphi-Strings und nullterminierten Strings liegt. Aber müsste das Delphi nicht automatisch machen?

mfg. Tubos
Lukas
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: WM_COPYDATA von C++ nach Delphi

  Alt 17. Sep 2005, 17:47
Ein C++ String ist was ganz anderes als ein DelphiString

mit folgender Quellcodezeile sagst du Delphi das LPData ein DelphiString ist was aber gar nicht der Fall ist (ein DelphiString ist ein Pointer auf Daten)
PMyRecord(msg.CopyDataStruct.lpData)^.s
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Tubos

Registriert seit: 25. Feb 2004
Ort: Yspertal (Niederösterreich)
1.014 Beiträge
 
Delphi 7 Personal
 
#3

Re: WM_COPYDATA von C++ nach Delphi

  Alt 17. Sep 2005, 17:53
Verstehe.
Hab die Zeile folgendermaßen umgeändert:
 s := string(pansistring(msg.CopyDataStruct.lpData)); und den unsinnigen Teil mit dem boolean (ohne nachzudenken aus einem Beispiel übernommen) gelöscht.

Jetzt haut alles hin, danke!
Lukas
  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 05:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz