Исправление Ошибки Передачи Строка C++ в Delphi через WM_COPYDATA

Delphi , Синтаксис , Справочник по API-функциям

Исправление ошибки передачи строки C++ в Delphi через WM_COPYDATA

Пользователи часто сталкиваются с проблемами при передаче данных между приложениями, написанными на различных языках программирования. Одной из таких проблем является некорректная передача строковых данных из C++ приложения в Delphi. В данной статье мы рассмотрим типичную проблему, связанную с использованием WM_COPYDATA и COPYDATASTRUCT, и предложим решение, основанное на пересказе материала, предоставленного в контексте вопроса.

Проблема

Пользователь столкнулся с проблемой при передаче строки из C++ приложения в приложение на Delphi. При использовании следующего кода на C++:

string data_to_send = "Hello World";
PCSTR lpszString = data_to_send.c_str();
COPYDATASTRUCT cds;
cds.dwData = 0; // Может быть любое значение
cds.cbData = sizeof(TCHAR) * (data_to_send.size());
cds.lpData = &lpszString; // Ошибка здесь
cout << lpszString << endl;
SendMessage(Output, WM_COPYDATA, (WPARAM)Output, (LPARAM)(PVOID)&cds);

и получения структуры в Delphi с помощью кода:

var
  p : PCopyDataStruct;
  s : UTF8String;
begin
  p := PCopyDataStruct(Message.lParam);
  if (p <> nil) then
  begin
    SetString(s, PAnsiChar(p^.lpData), p^.cbData);
    ShowMessage(s);
  end else
    inherited;
end;

Полученная строка выглядит некорректно. В отладчике видно, что данные содержат лишние байты перед сообщением. Если использовать CHAR вместо TCHAR, то количество байт уменьшается, но все равно присутствует смещение на 4 байта.

Подтвержденное решение

После анализа проблемы, были выявлены следующие ошибки:

• В C++ коде cds.dwData должно быть уникальным значением, полученным с помощью RegisterWindowMessage().
• sizeof(TCHAR) следует заменить на sizeof(char) или исключить совсем, так как sizeof(char) всегда равен 1.
• cds.lpData должен быть установлен в lpszString, а не в адрес переменной lpszString.

В Delphi необходимо проверить p^.dwData на соответствие ожидаемому уникальному числу перед обработкой сообщения.

Исправленный код на C++:

const UINT uMyDataID = RegisterWindowMessage(TEXT("MyDataID"));
...
if (uMyDataID != 0)
{
    string data_to_send = "Hello World";
    COPYDATASTRUCT cds;
    cds.dwData = uMyDataID;
    cds.cbData = sizeof(char) * data_to_send.size();
    cds.lpData = const_cast<char*>(data_to_send.c_str());
    // или: cds.lpData = data_to_send.data(); в C++17 и позже
    SendMessage(Output, WM_COPYDATA, reinterpret_cast<WPARAM>(Output), reinterpret_cast<LPARAM>(&cds));
}

Исправленный код на Delphi:

var
  uMyDataID: UINT = 0;
...
procedure TMyForm.WMCopyData(var Message: TMessage);
var
  p : PCopyDataStruct;
  s : AnsiString;
begin
  p := PCopyDataStruct(Message.lParam);
  if (uMyDataID <> 0) and (p <> nil) and (p^.dwData = uMyDataID) then
  begin
    SetString(s, PAnsiChar(p^.lpData), p^.cbData);
    ShowMessage(s);
  end else
    inherited;
end;
...
initialization
  uMyDataID := RegisterWindowMessage('MyDataID');

Альтернативное решение

Пользователь также обсуждал проблемы с использованием TCHAR и смешиванием кодировок Unicode и ANSI. В качестве альтернативного решения предлагается использовать фиксированный массив символов и функцию strlen() для определения cds.cbData.

Заключение

При передаче строк между приложениями на разных языках программирования важно внимательно обращать внимание на типы данных, передаваемые указатели и кодировки. Использование RegisterWindowMessage() для получения уникального идентификатора WM_COPYDATA и корректная работа с указателями в структуре COPYDATASTRUCT позволят избежать большинства проблем, связанных с передачей строк.

Создано по материалам из источника по ссылке.

Проблема связана с передачей строки из C++ приложения в приложение на Delphi через мессенджер Windows `WM_COPYDATA`, где необходимо правильно установить указатель на данные и корректно обработать полученную строку.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::