Передача сообщений между окнами

[avd]

....
private
message WM_COPYDATA;
....

// с помощью этой ф. окно Петя передаёт сообщение окну Вовочка
procedure TForm1.SendMess(s: string);
var
  CDS: TCopyDataStruct;
begin
  CDS.dwData := 1000; // Тип команды
  CDS.cbData := length(s) + 1; // Длина передаваемых данных
  getMem(CDS.lpData, CDS.cbData);
  try
    StrPCopy(CDS.lpData, s); // Данные в буфер
    SendMessage(FindWindow(nil, 'Вовочка'), WM_COPYDATA, Handle, integer(@CDS));
  finally
    FreeMem(CDS.lpData, CDS.cbData);
  end;
end;

// А так Вовочка принимает
procedure TForm1.WMCopyData(var MessageData: TWMCopyData);
begin
  if MessageData.CopyDataStruct.dwData = 1000 then
  begin
    if PChar(MessageData.CopyDataStruct.lpData) = '1' then
    begin
      jvLed1.Status := true; // Зажечь светодиод
    end;
    if PChar(MessageData.CopyDataStruct.lpData) = '2' then
    begin
      jvLed1.Status := false; // Погасить
    end;
  end;
end;

Ф. SendMess вызывается по срабатыванию таймера 2 раза в сек.
Проблема в том, что приём идёт как-то нестабильно, то есть, то нет.

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

CDS.cbData := length(s) + 1;

Неа.

CDS.cbData := length(s) + SizeOf(s)*SizeOf(Char);

[avd]

С П А С И Б О! З А Р А Б О Т А Л О!

[GunSmoker]

length(s) + SizeOf(s)*SizeOf(Char);

Боже, что ЭТО?

Должно быть:

procedure TForm1.SendMess(const s: string);
var
  CDS: TCopyDataStruct;
  Buffer: UTF8String;
begin
  Buffer := UTF8Encode(S);

  CDS.dwData := 1000; // Тип команды

  CDS.cbData := Length(Buffer) + 1; 
  CDS.lpData := Pointer(Buffer);

  SendMessage(FindWindow(nil, 'Вовочка'), WM_COPYDATA, Handle, LParam(@CDS));
end;

procedure TForm1.WMCopyData(var MessageData: TWMCopyData);
var
  Buffer: UTF8String;
  Data: String;
begin
  if MessageData.CopyDataStruct.dwData = 1000 then
  begin
    Buffer := PAnsiChar(MessageData.CopyDataStruct.lpData);
    Data := UTF8ToString(Buffer);

    if Data = '1' then
      jvLed1.Status := true
    else
    if Data = '2' then
      jvLed1.Status := false; // Погасить
  end;
end;

Ещё лучше:

procedure TForm1.EnableLED(const AEnable: Boolean);
var
  CDS: TCopyDataStruct;
  Buffer: BOOL;
begin
  Buffer := AEnable;

  CDS.dwData := 1000; // Тип команды

  CDS.cbData := SizeOf(Buffer); 
  CDS.lpData := @Buffer;

  SendMessage(FindWindow(nil, 'Вовочка'), WM_COPYDATA, Handle, LParam(@CDS));
end;

procedure TForm1.WMCopyData(var MessageData: TWMCopyData);
var
  Buffer: BOOL;
begin
  if MessageData.CopyDataStruct.dwData = 1000 then
  begin
    Buffer := PBOOL(MessageData.CopyDataStruct.lpData)^;

    jvLed1.Status := Buffer;
  end;
end;

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

Боже, что ЭТО?

И правда, очипятка

CDS.cbData:=length(s)*SizeOf(Char);

Очевидно, способ решения проблем без чудо конвертирования UTF8.

[GunSmoker]

Это верно, но только если речь идёт об обмене данных внутри одной программы (и даже - одного модуля). Как только ты выставляшь обмен данными наружу, то String, Char, PChar - уже "вне закона". Потому что это не настоящие типы, а псевдонимы. И они могут переопределяться. Поэтому простая перекомпиляция может изменить состояние с "работает" на "не работает" и обратно.

Вместо типов с плавающим размером нужно использовать типы с фиксированным размером (AnsiString, AnsiChar, PAnsiChar, UnicodeString, WideChar, PWideChar, UTF8String, WideString). Я использовал UTF-8, но это не принципиально. Можно было и UTF-16. А вот использовать ANSI для внешнего обмена будет уже не такой удачной идеей.

Но в любом случае, главное - не String/Char.

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

Это верно, но только если речь идёт об обмене данных внутри одной программы (и даже - одного модуля).

аналогично проблеме передаче строк между DLL и процессом?

[GunSmoker]

Примерно да. В обоих случаях при обмене обе стороны должны использовать компиляторно-независимый формат данных.

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

GunSmoker, значит и в C++ оно тоже актульно?

[GunSmoker]

Разумеется. К примеру, _TCHAR (аналог Char в Delphi) - это маппинг или на char (аналог AnsiChar в Delphi) или на wchar_t (аналог WideChar в Delphi).