Разработка клиент-серверного приложения на Delphi: обработка JPEG-изображений в Indy 9

Delphi , Интернет и Сети , Браузер

В данной статье мы рассмотрим, как можно расширить возможности клиент-серверного приложения, использующего библиотеку Indy 9, для обработки JPEG-изображений. Наша цель — научиться получать изображения от клиентского приложения на стороне сервера. Примером клиентского запроса может служить отправка текстовой команды и данных через процедуру WriteLn. Например:

IdTcpClient1.WriteLn('cmd1' + '#' + 'hello server');

Здесь cmd1 является командой, # — разделителем команд, а hello server — данными, которые обрабатываются сервером после получения команды.

Для обработки команды cmd1 серверный модуль использует процедуру:

procedure TForm1.IdTcpServer1cmd1Command(ASender: TIdCommand);
var
  s: string;
begin
  if Assigned(ASender.Params) then
  begin
    s := ASender.Param[0];
    // Дальнейшие действия...
  end;
end;

Теперь рассмотрим, как сервер может запросить и получить JPEG-изображение от клиента. Клиент может отправить изображение, используя процедуру WriteStream:

IdTcpClient1.WriteStream(MyImageStream);

Проблема заключается в том, что для обработки изображения на сервере нет конкретной команды, аналогичной cmd1.

Решение:

Для обработки JPEG-изображений на сервере можно использовать команду ReadStream внутри обработчика команд. Клиент может отправить команду JPEG и затем изображение:

IdTcpClient1.WriteLn('JPEG');
IdTcpClient1.WriteStream(MyImageStream, True, True); // AWriteByteCount=True

На стороне сервера обработчик команды JPEG может выглядеть следующим образом:

procedure TForm1.IdTcpServer1JPEGCommand(ASender: TIdCommand);
var
  Strm: TMemoryStream;
begin
  Strm := TMemoryStream.Create;
  try
    ASender.Thread.Connection.ReadStream(Strm); // по умолчанию AWriteByteCount=True
    // Дальнейшие действия с изображением...
  finally
    Strm.Free;
  end;
end;

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

IdTcpClient1.WriteLn('JPEG#' + IntToStr(MyImageStream.Size));
IdTcpClient1.WriteStream(MyImageStream); // AWriteByteCount=False

Соответственно, серверный обработчик будет выглядеть так:

procedure TForm1.IdTcpServer1JPEGCommand(ASender: TIdCommand);
var
  Size: Integer;
  Strm: TMemoryStream;
begin
  Size := StrToInt(ASender.Params[0]);
  Strm := TMemoryStream.Create;
  try
    if Size > 0 then
      ASender.Thread.Connection.ReadStream(Strm, Size, False); // AWriteByteCount=True не ожидается
    // Дальнейшие действия с изображением...
  finally
    Strm.Free;
  end;
end;

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

Этот пример демонстрирует основной принцип обработки JPEG-изображений в клиент-серверном приложении на Delphi с использованием Indy 9. При разработке подобных систем важно также учитывать возможность использования стандартизированных протоколов, таких как HTTP, для упрощения интеграции и отладки.

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

Статья о разработке клиент-серверного приложения на Delphi с использованием Indy 9 для обработки JPEG-изображений.

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

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

:: Главная :: Браузер ::