WM_COPYDATA mit Records und Arrays

[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;