Обработка веб-контента в Delphi с помощью `TEdgeBrowser`

Delphi , ОС и Железо , Монитор и Экран

Обработка веб-контента в Delphi с помощью TEdgeBrowser

Введение

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

Задача

Пользователь столкнулся с необходимостью регулярно захватывать содержимое вкладки TEdgeBrowser и передавать его через HTTP с помощью компонента TIdHTTPServer. Задача усложняется необходимостью делать это эффективно.

Решение

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

Шаг 1: Инициализация TMemoryStream

Создаем два TMemoryStream для того, чтобы TEdgeBrowser мог подготовить новый скриншот, в то время как TIdHTTPServer продолжает обслуживание предыдущего.

private
  CapturingImageStream: TMemoryStream;
  ReadyImageStream: TMemoryStream;
  ImageLock: TCriticalSection;
...

Шаг 2: Запуск захвата

Настраиваем таймер, который будет вызывать захват содержимого вкладки каждую секунду.

procedure TMainForm.Timer1Timer(Sender: TObject);
var
  Strm: TMemoryStream;
begin
  CapturingImageStream.Clear;
  EdgeBrowser1.CapturePreview(CapturingImageStream);
  ImageLock.Enter;
  try
    Strm := ReadyImageStream;
    ReadyImageStream := CapturingImageStream;
    CapturingImageStream := Strm;
  finally
    ImageLock.Leave;
  end;
end;

Шаг 3: Передача содержимого

Обновляем обработчик команды TIdHTTPServer для передачи последнего готового скриншота.

procedure TMainForm.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  // ...
  else if ARequestInfo.Document = '/image' then
  begin
    ImageLock.Enter;
    try
      // ...
      ReadyImageStream.Position := 0;
      AResponseInfo.ResponseNo := 200;
      AResponseInfo.ContentType := 'image/png';
      AResponseInfo.ContentStream := ReadyImageStream;
      AResponseInfo.FreeContentStream := False;
      // ...
    finally
      ImageLock.Leave;
    end;
  end
  // ...
end;

Шаг 4: Оптимизация

Для дальнейшей оптимизации можно использовать AJAX или WebSocket для регулярного запроса и отображения последнего изображения без перезагрузки всей HTML-страницы.

Заключение

Использование TEdgeBrowser для захвата и передачи веб-контента может быть сложной задачей, но с правильным подходом и оптимизацией можно достичь желаемой производительности. Передача содержимого напрямую из TMemoryStream без сохранения на диск является ключевым моментом для эффективности.

Этот пример кода демонстрирует, как можно использовать TEdgeBrowser для захвата содержимого вкладки и его передачи через HTTP с использованием компонента TIdHTTPServer в Delphi.

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

Статья о том, как в Delphi использовать компонент `TEdgeBrowser` для захвата и передачи веб-контента через HTTP, с оптимизацией процесса для повышения эффективности.

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

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

:: Главная :: Монитор и Экран ::