Daten von C# an Delphi senden

[API]

Moin,

Von einer C#-Applikation soll mittels WM_COPYDATA Daten an eine Delphi Anwendung geschickt werden.
WMCOPYDATA kommt in der Delphi Anwendung schon mal an, doch werden die Werte nicht übermittelt. Sehr wahrscheinlich liegt es am Delphi TMyStruct
Record, welcher zum c# struct nicht kompatibel ist.

Vielen Dank im Voraus für eure Hilfe.


Sender:

Code:

           [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
        internal struct MyStruct
        {
            public int Number;
            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 256)]
            public string Message;
        }  
        // .....
           myStruct.Number = 1234;
            myStruct.Message = "hello";

            int myStructSize = Marshal.SizeOf(myStruct);
            IntPtr pMyStruct = Marshal.AllocHGlobal(myStructSize);
            try
            {
                Marshal.StructureToPtr(myStruct, pMyStruct, true);

                COPYDATASTRUCT cds = new COPYDATASTRUCT();
                cds.cbData = myStructSize;
                cds.lpData = pMyStruct;

                NativeMethod.SendMessage(hTargetWnd, WM_COPYDATA, NativeMethod.GetForegroundWindow(), ref cds);
            }

Empfänger:

Delphi-Quellcode:

type
  TMyStruct = packed record
    Number: integer;
    Msg: string[255];
  end;
  PMyStruct = ^TMyStruct;

procedure TfrmHelper.WMCOPYDATA(var msg: TWMCopyData);
var
  MyRecord: PMyStruct;
  s: String[255];
  Number: integer;
begin
  s := PMyStruct(msg.CopyDataStruct.lpData)^.Msg;
  Number := PMyStruct(msg.CopyDataStruct.lpData)^.Number;
  ShowMessage('Msg ' + s + ' Number: ' + IntToStr(Number));
end;

[API]

Die Kernfrage ist, wie man diese beiden Konstrukte zueinander kompatibel macht:

Delphi-Quellcode:

type
  TMyStruct = packed record
    Number: integer;
    Msg: string[255];
  end;
  PMyStruct = ^TMyStruct;

Code:

    [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
        internal struct MyStruct
        {
            public int Number;
            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 256)]
            public string Message;
        }

[Dejan Vu]

Was kommt denn an? Siehst Du die 1234 oder nur Murks? Aber ... vielleicht solltest Du den String noch als WideString deklarieren (sowohl in Delphi, als auch in C# das Attribut).

[Photoner]

Welche Delphi Version?
String kann ein ANSI String sein (vor Delphi 2009) oder ein UNICODE String (ab Delphi 2009).
PChar belegt ein byte, PWideChar 2 byte. Folglich sind dann auch die Records unterschiedlich groß; prüf das doch mal.

Grüße!

[Dejan Vu]

1. Im C#-Code steht 'UniCode' und danach muss sich (am besten explizit) alles richten, d.h. gar nicht auf die Delphi-Version setzen.
2. Kommt '1234' wenigstens an zielte darauf, die grundsätzliche Korrektheit der Übertragung sicherzustellen und den Fehler auf die Stringdeklaration(en) einzugrenzen.

[DeddyH]

Zitat:

Msg: string[255];

Wenn ich mich nicht sehr irre, sind ShortStrings immer Ansi-kodiert. Vielleicht könnte man stattdessen auf ein Array of WideChar ausweichen?