Как отправить и сохранить изображение в формате JPG, используя TidTCPClient и TidTCPServer

Delphi , Графика и Игры , JPEG

Перед тем, как приступить к написанию статьи, отмечу, что в контексте обсуждения пользователя KimHJ на форуме, имеется проблема с отправкой и сохранением изображения в формате JPG с помощью компонентов TIdTCPClient и TIdTCPServer в среде разработки Delphi. В ходе обсуждения были выявлены некоторые ошибки в коде, которые необходимо исправить для корректной работы приложения.

Как отправить и сохранить изображение в формате JPG, используя TidTCPClient и TidTCPServer

Для начала, рассмотрим основные моменты, которые необходимо учесть при работе с TIdTCPClient и TIdTCPServer для отправки и сохранения изображений:

1. Кодирование и декодирование данных: Изображения должны быть закодированы в формат, который может быть безопасно передан по сети, и декодированы на стороне сервера.
2. Передача данных: Для передачи данных между клиентом и сервером необходимо использовать методы, которые могут обрабатывать большие потоки данных.
3. Синхронизация потоков: Доступ к UI-элементам из фоновых потоков должен быть синхронизирован.

Клиентская сторона

Сначала рассмотрим клиентский код, который отправляет изображение на сервер:

procedure TMainForm.SendPicture;
var
  MemoryStream: TMemoryStream;
  StringStream: TStringStream;
  JObj: TJSONObject;
begin
  // Проверка и подготовка файла изображения
  // ...

  // Создание MemoryStream из файла изображения
  MemoryStream := TMemoryStream.Create;
  MemoryStream.LoadFromFile(FImageFilePath);

  // Кодирование MemoryStream в MIME-формат
  StringStream := TStringStream.Create(TIdEncoderMIME.EncodeStream(MemoryStream), TEncoding.UTF8);
  try
    // Создание JSON-объекта
    JObj := TJSONObject.Create;
    try
      JObj.AddPair('image_encoded', StringStream.DataString);
      JObj.AddPair('message', Edit1.Text);
      // Отправка JSON-объекта на сервер
      IdTCPClient1.Socket.WriteLn(JObj.ToJSON);
    finally
      JObj.Free;
    end;
  finally
    StringStream.Free;
  end;
end;

Серверная сторона

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

procedure TMainForm.IdTCPServer1Execute(AContext: TIdContext);
var
  JSON: TJSONObject;
  MemoryStream: TMemoryStream;
begin
  // Создание TStringStream для чтения данных
  // ...

  // Чтение данных из потока
  // ...

  // Разбор JSON-объекта
  JSON := TJSONObject.ParseJSONValue(JsonStr) as TJSONObject;
  try
    // Создание MemoryStream для декодирования MIME-данных
    MemoryStream := TMemoryStream.Create;
    try
      TIdDecoderMIME.DecodeStream(JSON.GetValue('image_encoded').Value, MemoryStream);
      // Обновление TImage на сервере
      TThread.Synchronize(nil,
        procedure
        begin
          Image1.Bitmap.LoadFromStream(MemoryStream);
        end);
    finally
      MemoryStream.Position := 0;
      SaveImageToDisk(MemoryStream); // Сохранение изображения на диск
    end;
  finally
    JSON.Free;
  end;
end;

procedure TMainForm.SaveImageToDisk(const AMemoryStream: TMemoryStream);
var
  CsFilename: String;
begin
  // Генерация уникального имени файла для сохранения
  // ...
  // Сохранение изображения в файл
  with TMemoryStreamReelocate(AMemoryStream) do
    SaveToFile(CsFilename);
end;

Ошибки и исправления

В ходе обсуждения были выявлены следующие ошибки:

• Неправильное использование IOHandler.ReadStream и IOHandler.ReadString.
• Необходимость синхронизации доступа к UI-элементам.
• Неправильное управление потоками данных.

Для исправления этих ошибок необходимо:

• Использовать IOHandler.WriteLn и IOHandler.ReadLn для отправки и приема строковых данных.
• При работе с UI-элементами использовать TThread.Synchronize.
• Убедиться, что поток данных перемещается на начало перед использованием (например, MemoryStream.Position := 0).

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

Как альтернатива, можно отправить изображение, не сохраняя его локально на устройстве клиента. Для этого можно использовать изображение, загруженное непосредственно из камеры:

procedure TMainForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
begin
  // Отправка изображения из камеры на сервер
  // ...
end;

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

Заключение

Для успешной отправки и сохранения изображений в формате JPG с использованием TIdTCPClient и TIdTCPServer важно правильно обрабатывать потоки данных, синхронизировать доступ к UI-элементам и корректно управлять потоками данных. Следуя этим рекомендациям, можно избежать многих распространенных ошибок при работе с сетевыми компонентами в Delphi.

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

Пользователь KimHJ столкнулся с проблемой в среде разработки Delphi, связанной с отправкой и сохранением изображений в формате JPG между клиентом и сервером с использованием компонентов `TIdTCPClient` и `TIdTCPServer`, при этом были выявлены некоторые ош

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

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

:: Главная :: JPEG ::