Отправляю другой программе данные после работы, отправляю строкой. Хотел бы понять почему PostMessage
не работает в то время как SendMessage
отправляет данные. Мне не нужно возвращать результат после отправки сообщений, поэтому я хочу отказать от SendMessage
.
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure SendData(const copyDataStruct: TCopyDataStruct);
procedure Button1Click(Sender: TObject);
procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
stringToSend: string;
copyDataStruct: TCopyDataStruct;
begin
stringToSend := 'Avtorize sucefull';
copyDataStruct.dwData := 0; // идентифицировать данные
copyDataStruct.cbData := 1 + Length(stringToSend);
copyDataStruct.lpData := PChar(stringToSend);
SendData(copyDataStruct);
end;
procedure TForm2.SendData(const copyDataStruct: TCopyDataStruct);
var
receiverHandle: THandle;
res: integer;
begin
receiverHandle := FindWindow(PChar('TForm2'), PChar('Form2'));
if receiverHandle = 0 then
begin
form2.Memo1.Lines.Add(IntToStr(receiverHandle) + ' No');
Exit;
end;
// res := SendMessage(receiverHandle, WM_COPYDATA, Integer(Handle), Integer(@copyDataStruct));
PostMessage(receiverHandle, WM_COPYDATA, Integer(Handle), Integer(@copyDataStruct));
form2.Memo1.Lines.Add(IntToStr(receiverHandle));
end;
procedure TForm2.WMCopyData(var Msg: TWMCopyData);
var
s: string;
begin
form2.Memo1.Lines.Add('sd');
s := PChar(Msg.CopyDataStruct.lpData);
form2.Memo1.Lines.Add(s);
Msg.Result := 2006; //Отошлем что-нибудь назад
end;
end.
(1 + Length(stringToSend)) * SizeOf(Char);
WM_COPYGLOBALDATA
, которое дляPostMessage
. Но вообще лучше посмотреть в сторону других IPC. Пайпы, например.