Правильно передавать строку любой длинны через WM_COPYDATA, без зависаний.

[Человек_Борща]

Доброго времени суток!

Есть 2 приложения(оба мои), между ними нужно делать обмен сообщениями, с ответами данных на них.

Вот отвечающий "сервер":

procedure TMessageHandler.WMCopyData(var aMsg: TWMCopyData);
var
  aCDS: TCopyDataStruct;
  s: string;
begin
  case aMsg.CopyDataStruct.dwData of
    CMD_GETVERSION:
      begin
        ZeroMemory(@aCDS, SizeOf(TCopyDataStruct));
        s := MyVersion(ParamStr(0)) + #0;
        aCDS.cbData := Length(s) * SizeOf(Char);
        aCDS.dwData := RCV_GETVERSION;
        aCDS.lpData := PChar(s);
        SendMessage(aMsg.From, WM_COPYDATA, Handle, Integer(@aCDS));
      end;

    CMD_GETHLRPATH:
      begin
        ZeroMemory(@aCDS, SizeOf(TCopyDataStruct));
        s := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
        aCDS.cbData := Length(s) * SizeOf(Char);
        aCDS.dwData := RCV_GETHLRPATH;
        aCDS.lpData := PChar(s);
        SendMessage(aMsg.From, WM_COPYDATA, Handle, Integer(@aCDS));
      end;
  end;
end;

а это запрашивающий "клиент":

var
  MainForm: TMainForm;
  aVersion:string;
  aPath:string;

implementation

{$R *.dfm}

procedure TMainForm.UpdateInfoBtnClick(Sender: TObject);
var
  aCDS: TCopyDataStruct;
begin
  ZeroMemory(@aCDS, SizeOf(TCopyDataStruct));
  aCDS.dwData := CMD_GETVERSION;
  SendMessage(FindWindow(PAnsiChar(cHLR_RECIVEWNDCLASS),nil), WM_COPYDATA, Handle, Integer(@aCDS));
end;

procedure TMainForm.WMCopyData(var aMsg: TWMCopyData);
var
  PStr:Pointer;
begin
  case aMsg.CopyDataStruct.dwData of
    RCV_GETVERSION:
      begin
        PStr:=aMsg.CopyDataStruct^.lpData;
        if (PStr <> nil) then
        aVersion:=string(PChar(PStr));
      end;

    RCV_GETHLRPATH:
      begin
        PStr:=aMsg.CopyDataStruct^.lpData;
        if (PStr <> nil) then
        aPath:=string(PChar(PStr));
      end;
  end;
  ShowMessage(aVersion+#10#13+aPath);
end;

Сообщение уходит на сервер и сервер отвечает, но он подвисает в момент ответа.

Как быть?

P.s. и правильно ли я передаю строку как PChar?

[Rock-n-Rolla]

при выполнении вот этой строки

SendMessage(FindWindow(PAnsiChar(cHLR_RECIVEWNDCLASS),nil), WM_COPYDATA, Handle, Integer(@aCDS));

поток блокируется и принимать сообщения не может, он ждёт когда адресат обработает сообщение. адресат в свою очередь при обработке сообщения, тоже вызывает функцию SendMessage для отправки ответа

SendMessage(aMsg.From, WM_COPYDATA, Handle, Integer(@aCDS));

но отправка не выполучается так как адресат заблокирован и его обработать не может.

таким образом получается зависание.

и вообще не рекомендуется вызывать функции SendMessage в обработчиках (пусть даже случай будет самым безобидным, но это очень плохой приём)