Решение проблемы передачи строковых данных через DLL и функцию SendMessage в Delphi

Delphi , Файловая система , DLL и PlugIns

Перед нами стоит задача передачи строковых данных из приложения в DLL, используя функцию SendMessage. В процессе возникла проблема, когда строка, отправленная из приложения "A", не достигала DLL в исходном виде, и вместо этого получалась пустая строка. Давайте разберемся, в чем заключается ошибка, и как ее можно исправить.

Описание проблемы:

В приложении "A" была отправлена сообщение с параметром строки:

txt := 'Test String';
SendMessage(Handle, MyMessage, 0, LPARAM(PChar(txt)));

В той же DLL, при чтении сообщения, строка получалась пустой:

procedure MyClass.WndMethod(var Msg: TMessage);
var
  Str: string;
begin
  case Msg.Msg of
    MyMessage:
    begin
      Str := string(PChar(Msg.LParam));
      ShowMessage(Str);  // Выводится пустая строка
    end;
  end;
end;

Подтвержденный ответ:

При передаче сообщений между процессами, операционная система не выполняет копирование данных из одного процесса в другой. Это связано с тем, что процессы имеют изолированные виртуальные адресные пространства. Вы отправляете указатель на память в процессе отправителя, который получается в процессе получателя, но он становится бесполезным, так как получатель не может обращаться к памяти отправителя. Поэтому необходимо копирование данных между процессами.

Альтернативный ответ (использование WM_COPYDATA):

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

Комментарии:

Пользователь упоминал, что с целыми числами проблем не возникает, но при передаче строковых значений возникают затруднения. Это связано с тем, что указатель, передаваемый между процессами, указывает на память отправителя, к которой у получателя нет доступа.

Решение проблемы:

Для передачи строковых данных между процессами с использованием сообщений, рекомендуется использовать WM_COPYDATA. Вот пример кода на Object Pascal, который демонстрирует, как это можно сделать:

uses
  System.SysUtils,
  System.Classes;

// Функция для отправки сообщения WM_COPYDATA
function SendCopyDataMessage(hWnd: HWND; const sData: string): BOOL;
var
  CopyDataStruct: TCopyDataStruct;
begin
  if Length(sData) > 0 then
  begin
    GetMem(CopyDataStruct, SizeOf(TCopyDataStruct) + Length(sData));
    try
      with CopyDataStruct do
      begin
        dwData := Length(sData);
        lpData := @(sData[1]);
      end;
      Result := SendMessage(hWnd, WM_COPYDATA, 0, LPARAM(@CopyDataStruct));
    finally
      FreeMem(CopyDataStruct, SizeOf(TCopyDataStruct) + Length(sData));
    end;
  end;
  Result := FALSE;
end;

// Процедура для чтения сообщения WM_COPYDATA
procedure WndMethod(var Msg: TMessage);
var
  CopyDataStruct: TCopyDataStruct;
begin
  case Msg.Msg of
    WM_COPYDATA:
    begin
      GetMem(CopyDataStruct, SizeOf(TCopyDataStruct));
      try
        Move(Pointer(Msg.LParam)^, CopyDataStruct, SizeOf(TCopyDataStruct));
        ShowMessage(Pointer(CopyDataStruct.lpData)[1] + #0);
      finally
        FreeMem(CopyDataStruct, SizeOf(TCopyDataStruct));
      end;
    end;
  end;
end;

type
  TCopyDataStruct = record
    dwData: DWORD;
    cbData: DWORD;
    lpData: PChar;
  end;

const
  WM_COPYDATA = $004A;

initialization
  // Инициализация обработчика сообщений для WM_COPYDATA
  CreateWndProc(WndMethod, 'YourWindowClass', 'YourWindowName', WS_POPUP, 0, 0, 0, 0, 0, 0, 0);

В коде выше мы определяем функцию SendCopyDataMessage, которая упаковывает строку в структуру TCopyDataStruct, которая затем передается через функцию SendMessage. В WndMethod мы обрабатываем полученные данные, распаковываем их обратно в строку и выводим на экран.

Использование WM_COPYDATA позволяет корректно передать строку из одного процесса в другой, что решает проблему пустой строки при чтении в DLL.

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

Проблема заключается в передаче строковых данных через DLL и функцию SendMessage в Delphi, где из-за изоляции процессов указатели на данные в одном процессе не могут быть использованы в другом, что приводит к потере данных.

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

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

:: Главная :: DLL и PlugIns ::