Send Message Problemi

[carsoft]

Edit1 içindeki yazıyı gönderiyorum ama sadece ilk harfi alıyor.

Gönderme

Kod: Tümünü seç

var
DataStruct : CopyDataStruct; // data gönder
begin
  DataStruct.dwData := 0;
  DataStruct.cbData := length(edit1.Text)+1;
  DataStruct.lpData := pchar(edit1.Text);

  SendMessage(FindWindow('TForm1', 'Deneme'),
                          WM_CopyData, Form1.handle, integer(@DataStruct));

end;

almak için

Kod: Tümünü seç

procedure CopyData(var Msg: TWMCopyData); message wm_CopyData;

Kod: Tümünü seç

procedure TForm1.CopyData(var Msg: TWmCopyData);
var sMsg: String;
begin
  if IsIconic(Application.Handle) then
    Application.Restore;
  sMsg := PChar(Msg.CopyDataStruct.lpData);
  Label1.Caption := sMsg;
end;

[SimaWB]

Birincisi Delphi versiyonu önemli. Unicode desteği var mı yok mu?
İkincisi gönderim esnasında cbData'da +1 neden?

[xxxjedixxx]

Merhaba,

Eğer unicode ise gönderimdeki ilgili satırı aşağıdaki gibi değiştirirsen çalışacaktır.

DataStruct.cbData := length(edit1.Text) * SizeOf(WideChar);

[carsoft]

Evet Gönderim Unicode destekli Delphi 10.1 Berlin sürümünden Delphi 7 ' ye gönderiyorum

Degiştim ama yine olmadı

Kod: Tümünü seç

DataStruct.cbData := length(edit1.Text) * SizeOf(WideChar);

[xxxjedixxx]

Delphi7'den okuyorsan alım kısmındaki satırı aşağıdaki ile değiştir.

sMsg := PWideChar(Msg.CopyDataStruct.lpData);

Gönderim kısmı için söylediğim değişiklik hala geçerlidir.

DataStruct.cbData := length(edit1.Text) * SizeOf(WideChar);