Создание скриншота загруженного документа в компоненте TChromium с использованием CEF в Delphi

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

Создание скриншота загруженного документа в компоненте TChromium в Delphi

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

Проблема

Компонент TChromium, который является оберткой для Chromium Embedded Framework (CEF), не предоставляет прямого способа для захвата изображения загруженного документа. Это может быть связано с ограничениями в API CEF, особенно в версии CEF3, где некоторые необходимые функции были удалены.

Решение

Для решения этой проблемы можно использовать метод GetBitmap, который позволяет получить битмап загруженного документа. Важно отметить, что данная функция доступна не во всех версиях CEF, например, в CEF3 она недоступна, но есть в версии CEF2.31.

procedure TFormMain.Button1Click(Sender: TObject);
var
  lol: TPicture;
begin
  lol := TPicture.Create;
  Chromium1.Browser.GetBitmap(PET_VIEW, lol.Bitmap);
  lol.SaveToFile('c:\lol.bmp');
  lol.Free;
  lol := nil;
end;

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

Если метод GetBitmap недоступен, можно использовать альтернативный подход, такой как создание скриншота всего экрана приложения. Однако, это может быть не самым удобным решением, если требуется захватить только область компонента TChromium.

function Screenshot: Boolean;
var
  Bild: TBitmap;
  Jpg: TJPEGImage;
  C: TCanvas;
  R: TRect;
begin
  try
    C := TCanvas.Create;
    Bild := TBitmap.Create;
    C.Handle := GetWindowDC(GetDesktopWindow);
    try
      R := Rect(0, 0, Screen.Width, Screen.Height);
      Bild.Width := Screen.Width;
      Bild.Height := Screen.Height;
      Bild.Canvas.CopyRect(R, C, R);
      Jpg := TJPEGImage.Create;
      Jpg.Smoothing := True;
      Jpg.CompressionQuality := 60;
      Jpg.Assign(Bild);
      Jpg.Compress;
      Jpg.SaveToFile(DirCamp + '\Screen.jpg');
    finally
      ReleaseDC(0, C.Handle);
      Bild.Free;
      Jpg.Free;
      C.Free;
    end;
  except
    // Обработка исключений
  end;
end;

Современное решение

С выпуском CEF4, появилась новая возможность Chromium.TakeSnapshot(bmp), которая позволяет сделать скриншот загруженного компонента. Это наиболее предпочтительный метод, так как он позволяет точно захватить только интересующую область, без необходимости захвата всего экрана.

procedure TFormMain.Button2Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Chromium1.Browser.TakeSnapshot(Bmp);
    Bmp.SaveToFile('c:\snapshot.bmp');
  finally
    Bmp.Free;
  end;
end;

Заключение

Разработчикам, работающим с TChromium в Delphi, важно знать о доступных методах захвата скриншотов. В зависимости от версии CEF, могут быть доступны разные подходы, от использования GetBitmap до TakeSnapshot в CEF4. Выбор метода зависит от конкретных требований проекта и версии используемого CEF.

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

Разработчики в Delphi используют компонент TChromium для создания скриншотов загруженных веб-страниц, применяя различные методы в зависимости от версии Chromium Embedded Framework (CEF).

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

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

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