sendmessage problem

[Luckie]

Oder so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  cds: TCopyDataStruct;
  s: PChar;
begin
  s := 'Test-Text';
  cds.dwData := length(s);
  cds.lpData := s;
  SendMessage(Handle, WM_COPYDATA, Handle, Integer(@cds));
end;

procedure TForm1.WMCOPYDATA(var msg: TWMCopyData);
var
  buffer: PChar;
  len: Integer;
begin
  len := msg.CopyDataStruct.dwData;
  GetMem(buffer, len);
  try
  CopyMemory(buffer, msg.CopyDataStruct.lpData, len);
  ShowMessage(String(buffer));
  finally
    FreeMem(Buffer);
  end;
end;

Getestet und funktioniert.

[Timi-loader]

ok dankeschön!

ich habe den code von luckie nochmal bissl geändert weil er so nicht funktionierte in meinem programm-> es kam wieder nur müllzeichen an.. hab einfach cristians beispiel angeguggt und schließlich probiert und aus dem cds.dwData := length(s); ein cds.cbData := length(s); gemacht und aus len := msg.CopyDataStruct.dwData; dementsprechen auch len := msg.CopyDataStruct.cbData; dann ging es erst richtig.

mfg

[Luckie]

Zitat von Timi-loader:

ich habe den code von luckie nochmal bissl geändert weil er so nicht funktionierte in meinem programm-> es kam wieder nur müllzeichen an