Устранение ошибки при передаче указателей на структуры данных между процессами в Delphi

Delphi , Компоненты и Классы , RTTI

Передача структур данных между процессами в Delphi

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

Проблема с указателями

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

Пример кода

Рассмотрим пример, где структура TMyRec содержит информацию о человеке, такую как имя, возраст и дата рождения. Попытка передать указатель на эту структуру приведет к ошибке, так как получатель не сможет использовать этот указатель.

type
  PMyRec = ^TMyRec;
  TMyRec = packed record
    Name: string[255];
    Age: Integer;
    Birthday: TDateTime;
  end;

function TAppCommunication.SendRecord(const ARecordToSend: Pointer; ARecordSize: Integer): Boolean;
var
  _Stream: TMemoryStream;
begin
  _Stream := TMemoryStream.Create;
  try
    _Stream.WriteBuffer(ARecordToSend^, ARecordSize);
    // Дальнейшая логика передачи данных
  finally
    FreeAndNil(_Stream);
  end;
end;

// ...

var
  _Rec: TMyRec;
begin
  _Rec.Name := 'Edijs';
  _Rec.Age := 29;
  _Rec.Birthday := EncodeDate(1988, 10, 06);
  // Попытка передачи указателя на _Rec
  _AppCommunication.SendRecord(@_Rec, SizeOf(_Rec));
end

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

Чтобы решить эту проблему, необходимо отправить копию данных, а не указатель. В примере выше, в коде есть комментарии, указывающие на правильный способ передачи данных:

// Нужно отправить копию данных, а не указатель
// _AppCommunication.SendRecord(передать сюда массив байтов данных, а не указатель на структуру)

Для реализации этого можно использовать TMemoryStream для сериализации данных:

function TAppCommunication.SendRecord(const ARecord: TMyRec): Boolean;
var
  _Stream: TMemoryStream;
begin
  _Stream := TMemoryStream.Create;
  try
    _Stream.WriteBuffer(&ARecord, SizeOf(ARecord));
    // Дальнейшая логика передачи данных
  finally
    FreeAndNil(_Stream);
  end;
end;

Альтернативный способ с типом записи

Если необходимо отправлять разные типы записей под одним идентификатором, можно использовать следующий подход:

function TAppCommunication.SendRecord(const ARecordType: ShortString; const ARecordToSend: Pointer; ARecordSize: Integer): Boolean;
var
  _Stream: TMemoryStream;
begin
  _Stream := TMemoryStream.Create;
  try
    _Stream.WriteBuffer(ARecordType, 1+Length(ARecordType));
    _Stream.WriteBuffer(ARecordToSend^, ARecordSize);
    // Дальнейшая логика передачи данных
  finally
    FreeAndNil(_Stream);
  end;
end;

procedure TReceiverMainForm.OnAppMessageReceived(const ASender: TPair<HWND, string>; const AReceivedData: TCopyDataStruct; var AResult: Integer);
var
  _RecType: ShortString;
  _RecData: Pointer;
  _MyRec: PMyRec;
begin
  // ...
  if AReceivedData.dwData = Ord(TCopyDataType.cdtRecord) then
  begin
    _RecType := PShortString(AReceivedData.lpData)^;
    _RecData := PByte(AReceivedData.lpData)+1+Length(_RecType);
    if (_RecType = 'TMyRec') then
    begin
      // Десериализация данных
      _MyRec := PMyRec(_RecData);
      // Использование данных
    end;
  end;
end;

Использование механизмов сериализации

Для более сложных сценариев, когда необходимо идентифицировать типы записей и поля в общем виде, следует использовать более продвинутые механизмы сериализации, такие как TStreamWriter и TStreamReader вместе с TJSONWriter и TJSONReader для работы с JSON.

Заключение

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

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

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

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

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

:: Главная :: RTTI ::