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

Delphi-Quellcode:

cds.dwData := length(s);

ein

Delphi-Quellcode:

cds.cbData := length(s);

gemacht und aus

Delphi-Quellcode:

len := msg.CopyDataStruct.dwData;

dementsprechen auch

Delphi-Quellcode:

len := msg.CopyDataStruct.cbData;

dann ging es erst richtig. :wink:

mfg
:thumb:

[Luckie]

Zitat:

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

:gruebel: