WM_COPYDATA mit Records und Arrays

[Tyrael Y.]

Hallo zusammen,

irgendwie seh ich nicht den Fehler den ich grad mache,
vielleicht weiss einer von euch Rat.

Ich sende mit WM_COPYDATA einen Record, beim Empfang ist mein Array nicht mehr gültig und ich frag mich grad warum. Glaube ich bin grad Codeblind.

Auf eine Form einen Button, einen Edit und ein Memo anbringen zum Testen.


Sender:

Delphi-Quellcode:

type
TBytes = array of Byte;
PBytes = ^TBytes;


PMyData = ^TMyData;
TMyData = packed record
  Data1   : DWord;
  Data2   : Word;
  ArrayData : PBytes;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var LCopyDataStruct: TCopyDataStruct;
    LArray: PBytes;
    i: Integer;

    LStr: string;
    FensterH: HWND;
    LAnzahl: Integer;
begin
  LCopyDataStruct.cbData := StrToInt(Edit1.Text); //Anzahl
  LCopyDataStruct.dwData := self.Handle;
  LAnzahl := LCopyDataStruct.cbData;

  if assigned(LCopyDataStruct.lpdata) then
    ReallocMem(LCopyDataStruct.lpData, SizeOf(DWord) + SizeOf(Word) + LAnzahl * SizeOf(Byte))
  else
    LCopyDataStruct.lpData := AllocMem(SizeOf(DWord) + SizeOf(Word) + LAnzahl * SizeOf(Byte));

  Memo1.lines.add('');
  Memo1.lines.add('Sende:');
  Memo1.lines.add('cbData = ' + Edit1.Text);
  Memo1.lines.Add('dwData = ' + IntToStr(self.Handle));

  if assigned(LArray) then
    ReAllocMem(LArray, 4)
  else
    LArray := AllocMem(4);

  SetLength(LArray^, LCopyDataStruct.cbData);

  for i := 0 to LCopyDataStruct.cbData -1 do
  begin
    LArray^[i] := Random(200);
    LStr := LStr + ' ' + IntToStr(LArray^[i]);
  end;
  Memo1.Lines.Add('Daten:');
  Memo1.Lines.Add(LStr);


  PMyData(LCopydataStruct.lpData)^.ArrayData := Allocmem(4);
  SetLength(PMyData(LCopydataStruct.lpData)^.ArrayData^, LCopyDataStruct.cbData);
  move(LArray^[0], PMyData(LCopydataStruct.lpData)^.ArrayData^[0], LCopyDataStruct.cbData);

  FensterH := FindWindow(nil, PChar('DataSend2'));
  SendMessage(FensterH, WM_COPYDATA, 0, LongInt(@LCopyDataStruct));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize();
end;

procedure TForm1.CopyData(var AMsg: TWMCopyData);
var i: Integer;
    LStr: string;
    LArray: PBytes;
    LAnzahl: integer;
begin
   Memo1.lines.add('');
   Memo1.Lines.Add('Empfangen :');

   Memo1.Lines.add('cbData : '+  IntToStr(AMsg.copyDatastruct^.cbData)); //Anzahl
   Memo1.Lines.Add('dwData : '+  IntToStr(Amsg.CopyDataStruct^.dwData)); //Fensterhandle


   LAnzahl := Amsg.CopyDataStruct^.dwData;

   Memo1.Lines.add('Daten:');

   if assigned(LArray) then
     ReallocMem(LArray, 4)
   else
     LArray := AllocMem(4);

   SetLength(LArray^, LAnzahl);

   move(PMyData(Amsg.copydatastruct^.lpdata)^.ArrayData^[0], LArray^[0], LAnzahl);

   for i := 0 to AMsg.CopydataStruct^.cbData -1 do
   begin
     LStr := LStr + IntToStr(LArray^[i]);
   end;
end;

Empfänger:

Delphi-Quellcode:

type
TBytes = array of Byte;
PBytes = ^TBytes;


PMyData = ^TMyData;
TMyData = packed record
  Data1   : DWord;
  Data2   : Word;
  ArrayData : PBytes;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var LCopyDataStruct: TCopyDataStruct;
    LArray: PBytes;
    i: Integer;

    LStr: string;
    FensterH: HWND;
    LAnzahl: integer;
begin
  LCopyDataStruct.cbData := StrToInt(Edit1.Text); //Anzahl
  LCopyDataStruct.dwData := self.Handle;


  LAnzahl := LCopyDataStruct.cbData;

  if assigned(LCopyDataStruct.lpdata) then
    ReallocMem(LCopyDataStruct.lpData, 6 + LAnzahl)
  else
    LCopyDataStruct.lpData := AllocMem(6 + LAnzahl);

  Memo1.lines.add('');
  Memo1.lines.add('Sende:');
  Memo1.lines.add('cbData = ' + Edit1.Text);
  Memo1.lines.Add('dwData = ' + IntToStr(self.Handle));

  if assigned(LArray) then
    ReAllocMem(LArray, 4)
  else
    LArray := AllocMem(4);
  SetLength(LArray^, LCopyDataStruct.cbData);

  for i := 0 to LCopyDataStruct.cbData -1 do
  begin
    LArray^[i] := Random(200);
    LStr := LStr + ' ' + IntToStr(LArray^[i]);
  end;
  Memo1.Lines.Add('Daten:');
  Memo1.Lines.Add(LStr);

  PMyData(LCopydataStruct.lpData)^.ArrayData := AllocMem(4);
  SetLength(PMyData(LCopydataStruct.lpData)^.ArrayData^, LCopyDataStruct.cbData);
  move(LArray^[0], PMyData(LCopydataStruct.lpData)^.ArrayData^[0], LCopyDataStruct.cbData);

  FensterH := FindWindow(nil, PChar('DataSend1'));
  SendMessage(FensterH, WM_COPYDATA, 0, LongInt(@LCopyDataStruct));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize();
end;

procedure TForm1.CopyData(var AMsg: TWMCopyData);
var i: Integer;
    LStr: string;
    LAnzahl: integer;
    LArray: PBytes;
begin
   Memo1.lines.add('');
   Memo1.Lines.Add('Empfangen :');

   Memo1.Lines.add('cbData : '+  IntToStr(AMsg.copyDatastruct^.cbData));  //Anzahl
   Memo1.Lines.Add('dwData : '+  IntToStr(Amsg.CopyDataStruct^.dwData));



   Memo1.Lines.add('Daten:');

   LAnzahl := Amsg.CopyDataStruct^.cbData;

   if assigned(LArray) then
     ReallocMem(LArray, 4)
   else
     LArray := AllocMem(4);

   SetLength(LArray^, LAnzahl);

   move(PMyData(Amsg.copydatastruct^.lpdata)^.Arraydata^[0], LArray^[0], LAnzahl); //<- hier ist das Array nicht mehr gültig und es gibt eine AccessViolation

   for i := 0 to AMsg.CopydataStruct^.cbData -1 do
   begin
     LStr := LStr + IntToStr(LArray^[i]);
   end;
end;

[OregonGhost]

Habe das jetzt nur überflogen, daher nur, was mir auf Anhieb komisch vorkam:

1. Bist du sicher, dass das Array im Record inline liegt? Ich habe dunkel in Erinnerung, das Array für diesen Fall mit array[0..0] deklarieren zu müssen (aber vielleicht war das auch bei älteren Delphiversionen). Edit: Mir kommt es so gesehen seltsam vor, dass du in deinem Record einen weiteren Zeiger auf einen neuen Speicherblock anforderst. Wird der überhaupt mitkopiert?
2. Edit: Zurückgezogen. Das war Blödsinn
3. Was gibt sizeof(deinRecord) zurück, wenn du es fertig gefüllt hast? Nur so interessehalber.

[sirius]

Hmmm, da muss man ganz schön suchen.
Vermutung:
Copydatastruct.cbData muss die Länge von lpData beinhalten. Dein Record ist immer 10 Bytes groß, also muss in CBData eine 10 stehen. Ist da nur eine 5 drin, wird das Array nicht mit kopiert.

Du schickst nur den Pointer zu deinem ByteArray. Das kannst du auch über eine "normale Message" tun insofern, der Sender und Empfänger im selben Process sind.

[Tyrael Y.]

Hm,

seeehr merkwürdig

SizeOf(meinRecord.data1) = 4
SizeOf(meinRecord.data2) = 2
SizeOf(meinRecord.DataArray) = 4

SizeOf(meinRecord) = 12 oO

...woher kommen die 2 Bytes?


Edit: es sind zwei verschiedene Applikationen, die miteinander kommunizieren müssen,
zwingend ist hierbei WM_COPYDATA, da der Empfänger feststeht und genau diese Infos über WM_COPDATA erwartet

[sirius]

Also in D7 ist dein Record 10 Bytes groß.

[OregonGhost]

Das mit den zwei Bytes ist interessant. Bei packed würde ich erwarten, dass die Padding-Bytes wegfallen. Hmm, also ist es wohl so, dass dein Array nicht mit drin liegt im Record, ja? Du könntest natürlich den schmutzigen, einfachen Weg gehen und die Daten einfach in ein Byte-Array kopieren und das per WM_COPYDATA übertragen. Da hast du auch die volle Kontrolle über das Layout.

[Tyrael Y.]

Habe es mal leicht umgebaut und untersucht, die Daten in meinem Record werden richtig überstragen, daß heißt Data1 und Data2 sind richtig, das Array hat auch die richtige Adresse nach dem Empfang nur das Array hat angeblich keine Element mehr.


P.S.: Ich hatte das packed beim Record kurzfristig weggelassen und dann war es 12 Byte groß als packed record ist es 10Byte groß.



Beim folgenden Besipiel hab ich das Array der Einfachheit halber auf der Länge 3 belassen.

Sender:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var LCopyDataStruct: TCopyDataStruct;
    LArray: PBytes;
    i: Integer;

    LStr: string;
    FensterH: HWND;
    LAnzahl: Integer;
begin
  LCopyDataStruct.cbData := SizeOf(TMyData);//StrToInt(Edit1.Text); //Anzahl
  LCopyDataStruct.dwData := self.Handle;
  LAnzahl := StrToInt(Edit1.Text);


  Memo1.lines.add('');
  Memo1.lines.add('Sende:');
  Memo1.lines.add('cbData = ' + Edit1.Text);
  Memo1.lines.Add('dwData = ' + IntToStr(self.Handle));

  if assigned(LArray) then
    ReAllocMem(LArray, 4)
  else
    LArray := AllocMem(4);

  SetLength(LArray^, LAnzahl);

  for i := 0 to LAnzahl -1 do
  begin
    LArray^[i] := Random(200);
    LStr := LStr + ' ' + IntToStr(LArray^[i]);
  end;
  Memo1.Lines.Add('Daten:');
  Memo1.Lines.Add(LStr);


  if assigned(LCopyDataStruct.lpdata) then
    ReallocMem(LCopyDataStruct.lpData, SizeOf(TMyData) + LAnzahl * SizeOf(Byte))
  else
    LCopyDataStruct.lpData := AllocMem(SizeOf(TMyData) + LAnzahl * SizeOf(Byte));


  PMyData(LCopydataStruct.lpData)^.Data1 := 3333;
  PMyData(LCopydataStruct.lpData)^.Data2 := 5555;
  PMyData(LCopydataStruct.lpData)^.ArrayData := Allocmem(4);
  SetLength(PMyData(LCopydataStruct.lpData)^.ArrayData^, LAnzahl);
  move(LArray^[0], PMyData(LCopydataStruct.lpData)^.ArrayData^[0], LAnzahl);


  FensterH := FindWindow(nil, PChar('DataSend7654'));
  SendMessage(FensterH, WM_COPYDATA, 0, LongInt(@LCopyDataStruct));
  Application.ProcessMessages;
end;

Empfänger:

Delphi-Quellcode:

procedure TForm1.CopyData(var AMsg: TWMCopyData);
var i: Integer;
    LStr: string;
    LAnzahl: integer;
    LArray: PBytes;
begin
   Memo1.lines.add('');
   Memo1.Lines.Add('Empfangen :');

   Memo1.Lines.add('cbData : '+  IntToStr(AMsg.copyDatastruct^.cbData));  //Anzahl
   Memo1.Lines.Add('dwData : '+  IntToStr(Amsg.CopyDataStruct^.dwData));



   Memo1.Lines.add('Daten:');

   LAnzahl := Amsg.CopyDataStruct^.cbData;

   if assigned(LArray) then
     ReallocMem(LArray, 4)
   else
     LArray := AllocMem(4);

   SetLength(LArray^, 3);

   move(PMyData(Amsg.copydatastruct^.lpdata)^.Arraydata^[0], LArray^[0], 3);  //<- das array hat die richtige Adresse aber kein Elemente mehr


   for i := 0 to AMsg.CopydataStruct^.cbData -1 do
   begin
     LStr := LStr + IntToStr(LArray^[i]);
   end;
end;

[Tyrael Y.]

Zitat von OregonGhost:

Hmm, also ist es wohl so, dass dein Array nicht mit drin liegt im Record, ja? Du könntest natürlich den schmutzigen, einfachen Weg gehen und die Daten einfach in ein Byte-Array kopieren und das per WM_COPYDATA übertragen. Da hast du auch die volle Kontrolle über das Layout.

Ich habe meinen Record mal testweise folgendermassen deklariert

Delphi-Quellcode:

type
TBytes = array of Byte;

PMyData = ^TMyData;
TMyData = packed record
  Data1   : DWord;
  Data2   : Word;
  ArrayData : TBytes;
  end;

Gefüllt wird das Array richtig, nach dem Empfang hat das Array auch in diesem Fall keine Elemente mehr. Wenn ich statisches Array nehme funktioniert es problemlos.

Sobald ich ein dynamisches Array nehme habe, ist das Array nach dem Empfang leer.
Dies muss doch auch mit dynamischen Arrays möglich sein. Irgendwo ist der Wurm drin und ich seh es einfach nicht.

[OregonGhost]

Da ich in Delphi nicht so drin stecke (und auch derzeit keins installiert habe): Was passiert denn, wenn du das Array tatsächlich als array[0..0] deklarierst (und dann mit SetLength die Länge veränderst)? Das ist auch in C der (hässliche) übliche Weg, ein dynamisches Array mit in eine Struktur zu packen.

[Tyrael Y.]

Wenn ich es als

Delphi-Quellcode:

PMyData = ^TMyData;
TMyData = packed record
  Data1   : DWord;
  Data2   : Word;
  ArrayData : array[0..0] of Byte;
  end;

deklariere, kann ich kein SetLength benutzen, die Meldung inkompatible Typen erscheint dann.