Скриншот с WebBrowser (WebBrowser1.MakeScreenshot)

[afors]

Всем доброго дня или вечера...

Пытаюсь разобраться как получить скриншот загруженной страницы в Image1. У WebBrowser1 есть встроенная функция WebBrowser1.MakeScreenshot. Если по нажатии на Button1 выполнить код 

Image1.Bitmap:=WebBrowser1.MakeScreenshot;

, то все работает. А если выполнить этот же код при срабатывании события OnDidStartLoad, приложение зависает.

Как это побороть?

PS: файл проекта прилагается...

SceenShotFromWebBrowser.zip

[Равиль Зарипов (ZuBy)]

Замените код на такой

procedure TForm1.WebBrowser1DidStartLoad(ASender: TObject);
var
  aThread: TThread;
begin
  aThread := TThread.CreateAnonymousThread(
    procedure
    begin
      TThread.Synchronize(nil,
        procedure
        begin
          If CheckBox1.IsChecked Then
            Image1.Bitmap := WebBrowser1.MakeScreenshot;
        end)
    end);
  aThread.FreeOnTerminate := true;
  aThread.Start;
end;

[afors]

Так работает, хоть и не до конца понимаю такой подход. Это запуск процедуры в потоке?

Спасибо, Равиль!!!

[Равиль Зарипов (ZuBy)]

9 минут назад, afors сказал:

Так работает, хоть и не до конца понимаю такой подход. Это запуск процедуры в потоке?

Спасибо, Равиль!!!

Да создается поток и в нем синхронизация в которой уже выполняется ваш код

[afors]

Рано радовался)

При повторном обновлении снова зависает. Похоже в какую-то цикличность уходит, оперативная память забивается, В студии бегут строки как на картинке. А с кнопки все как надо (не в потоке)

[afors]

Проблема решилась динамическим созданием/удалением TWebBrowser:

...
var
  Form1: TForm1;
  DynBrowser: TWebBrowser;

implementation

{$R *.fmx}

procedure TForm1.WebBrowser1DidFinishLoad(ASender: TObject);
var
  aThread: TThread;
begin
  aThread := TThread.CreateAnonymousThread(
    procedure
    begin
      TThread.Synchronize(nil,
        procedure
        begin
            Image1.Bitmap := DynBrowser.MakeScreenshot;
            DynBrowser.Free
        end)
    end);
  aThread.FreeOnTerminate := true;
  aThread.Start;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DynBrowser:=TWebBrowser.Create(self);
  DynBrowser.Parent:=TabItem2;
  DynBrowser.Align:=TAlignLayOut.Client;
  DynBrowser.OnDidFinishLoad:=Form1.WebBrowser1DidFinishLoad;
  DynBrowser.Navigate(Memo1.Text);
  DynBrowser.Free;
end;
...