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:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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;

WM_COPYDATA mit Records und Arrays

WM_COPYDATA mit Records und Arrays

Forumregeln