Использование сокетов для обмена данными между Python и Delphi с помощью текстовых протоколов

Delphi , Интернет и Сети , Сокеты

Использование сокетов для обмена данными между Python и Delphi

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

Проблема

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

Решение

Для передачи записи данных через сокет между Python и Delphi, необходимо использовать сериализацию и десериализацию в языконезависимый формат, такой как JSON или XML. Эти форматы облегчат передачу данных, особенно учитывая возможные различия в представлении типов данных и порядке байтов в разных системах.

Пример кода на Object Pascal (Delphi)

Вот пример кода на Object Pascal, который сериализует запись TPacketData в JSON:

uses
  System.SysUtils,
  DCPJson; // Подключаем компонент для работы с JSON

function TPacketDataToJSON(const AData: TPacketData): string;
var
  JsonString: string;
begin
  JsonString := TJSONWriter.WriteValue(AData, True).AsString;
  Result := JsonString;
end;

Пример кода на Python

На стороне Python вы можете использовать встроенные модули json и socket для отправки и приема данных в формате JSON:

import socket
import json

# Создаем сокет для подключения
s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s.connect(('localhost', 12345))

# Предположим, что у нас есть запись TPacketData, которую мы хотим отправить
data = {'pID': 1, 'dataType': 2, 'size': 3, 'value': 4.5}
# Сериализуем запись в JSON
json_data = json.dumps(data)

# Отправляем данные
s.sendall(json_data.encode())

# Закрываем соединение
s.close()

Получение данных

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

uses
  System.SysUtils,
  IdGlobal,
  IdTCPClient;

var
  JsonString: string;
  Reader: TJSONReader;
  Data: TPacketData;
  SocketLink: TIdTCPClient;
begin
  SocketLink := TIdTCPClient.Create(nil);
  SocketLink.Host := 'localhost';
  SocketLink.Port := 12345;
  try
    SocketLink.Connect;
    SetLength(JsonString, SocketLink.IOHandler.InputBufferSize);
    SocketLink.IOHandler.ReadLn(JsonString, TIdCustomTCPHandler.IOBufferSize);
    Reader := TJSONReader.Create(JsonString);
    try
      Data.pID := Reader.ReadInteger;
      Data.dataType := Reader.ReadInteger;
      Data.size := Reader.ReadInteger;
      Data.value := Reader.ReadDouble;
    finally
      Reader.Free;
    end;
  finally
    SocketLink.Free;
  end;
end;

Важные аспекты

• Убедитесь, что записи TPacketData упакованы одинаково на обеих сторонах.
• Обратите внимание на порядок байтов (Little-Endian vs Big-Endian) и используйте соответствующие функции преобразования.
• Проверьте размерность и формат типов данных (например, double в Delphi имеет размер 8 байт).

Альтернативные подходы

Вместо использования JSON и XML, вы можете отправить и получить данные в бинарном формате, используя модуль struct в Python и соответствующие функции упаковки/распаковки в Delphi. Однако, это может усложнить интеграцию с другими языками и программами в будущем.

Заключение

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

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

Обмен данными между Python и Delphi кодами через сокеты с использованием сериализации и десериализации в формате JSON для передачи структурированных данных.

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

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

:: Главная :: Сокеты ::