Chrome

[Ангелина1989]

Здравствуйте! пытаюсь создать браузер и обработать его событие динамически

procedure TForm1.FormCreate(Sender: TObject);
begin
   FBrowser := TChromium.Create(Self);
   FBrowser.Parent := TWinControl(Self);
   FBrowser.OnLoadEnd := BrowserOnLoadEnd;
   FBrowser.Load('http://google.com');
end;


procedure TForm1.BrowserOnLoadEnd(Sender: TObject;
  const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer;
  out Result: Boolean);
var
  Visitor: TCefFastDomVisitor;
begin
  if HttpStatusCode = 200 then
  begin
ShowMessage('готово');
  end;
end;

но в отдельном потоке таким образом создать не получается. Вместо Self подставляла Главную форму. Создается, но событие не срабатывает. посоветуйте как можно поймать событие или как можно иначе его создать в отдельном потоке. Нужно именно создавать его а потом уничтожать. Заранее благодарна вам.

[Stilet]

но в отдельном потоке таким образом создать не получается.

Показывай как пробуешь.

[Ангелина1989]

Сообщение от Stilet

Показывай как пробуешь.

вот код потока

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,cefvcl,ceflib;

type
  FormTThread = class(TThread)
  private
  FBrowser:TChromium;
    procedure showmess;
  protected
    procedure Execute; override;
    public
    procedure BrowserOnLoadEnd(Sender: TObject;
  const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer;
  out Result: Boolean);
  end;

implementation
 uses unit1;

procedure FormTThread.showmess;
begin
with form1 do
begin
ShowMessage('готово');
end;
end;


procedure FormTThread.BrowserOnLoadEnd(Sender: TObject;
  const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer;
  out Result: Boolean);
var
  Visitor: TCefFastDomVisitor;
begin
  if HttpStatusCode = 200 then
  begin
Synchronize(showmess);
  end;
end;


procedure FormTThread.Execute;
begin
FreeOnTerminate:=true;
FBrowser := TChromium.Create(form1);
FBrowser.Parent := TWinControl(form1);
FBrowser.OnLoadEnd := BrowserOnLoadEnd;
FBrowser.Load('http://google.com');


end;


end.

[Stilet]

По идее вроде все верно за некоторым исключением - FBrowser нигде не освобождается.
Единственное что - FBrowser.Load видимо синхронный, поэтому не стопорит поток. Поток завершается и событие не происходит.
Наверное в этом случае можно сделать так:

  FormTThread = class(TThread)
  private
  LoadComplete:Boolean;
  FBrowser:TChromium;
    procedure showmess;
  protected
    procedure Execute; override;
    public
    procedure BrowserOnLoadEnd(Sender: TObject;
  const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer;
  out Result: Boolean);
  end;
...
procedure FormTThread.BrowserOnLoadEnd(Sender: TObject;
  const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer;
  out Result: Boolean);
var
  Visitor: TCefFastDomVisitor;
begin
  if HttpStatusCode = 200 then
  begin
   Synchronize(showmess);
   LoadComplete:=true;
  end;
end;


procedure FormTThread.Execute;
begin
FreeOnTerminate:=true;
LoadComplete:=false;
FBrowser := TChromium.Create(form1);
FBrowser.Parent := TWinControl(form1);
FBrowser.OnLoadEnd := BrowserOnLoadEnd;
FBrowser.Load('http://google.com');
while not LoadComplete do sleep(10);

end;

[Ангелина1989]

Сообщение от Stilet

По идее вроде все верно за некоторым исключением - FBrowser нигде не освобождается.
Единственное что - FBrowser.Load видимо синхронный, поэтому не стопорит поток. Поток завершается и событие не происходит.
Наверное в этом случае можно сделать так:

  FormTThread = class(TThread)
  private
  LoadComplete:Boolean;
  FBrowser:TChromium;
    procedure showmess;
  protected
    procedure Execute; override;
    public
    procedure BrowserOnLoadEnd(Sender: TObject;
  const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer;
  out Result: Boolean);
  end;
...
procedure FormTThread.BrowserOnLoadEnd(Sender: TObject;
  const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer;
  out Result: Boolean);
var
  Visitor: TCefFastDomVisitor;
begin
  if HttpStatusCode = 200 then
  begin
   Synchronize(showmess);
   LoadComplete:=true;
  end;
end;


procedure FormTThread.Execute;
begin
FreeOnTerminate:=true;
LoadComplete:=false;
FBrowser := TChromium.Create(form1);
FBrowser.Parent := TWinControl(form1);
FBrowser.OnLoadEnd := BrowserOnLoadEnd;
FBrowser.Load('http://google.com');
while not LoadComplete do sleep(10);

end;

Не получается(((( ничего не происходит... ждала пару минут(((( а Fbrowser я освободила в конце потока.

[Stilet]

Точки прерывания расставь в обработчик BrowserOnLoadEnd и в сам поток.
Потом пошагово пройди и посмотри есть ли ожидание загрузки, и попадает ли в событие. Может банально HttpStatusCode далеко не 200.

[Ангелина1989]

Сообщение от Stilet

Точки прерывания расставь в обработчик BrowserOnLoadEnd и в сам поток.
Потом пошагово пройди и посмотри есть ли ожидание загрузки, и попадает ли в событие. Может банально HttpStatusCode далеко не 200.

Я именно так как ты говоришь и проверяла. Через BreakPoint. поток бесконечно выполняет

while not LoadComplete do
sleep(10);

в чем проблема понять не могу(((((((

[Аватар]

Что смущает - VCL. Создаем из потока визульный объект и цепляем его на форму без всякой синхронизации. Не в этом ли собака зарыта?

[Ангелина1989]

Сообщение от Аватар

Что смущает - VCL. Создаем из потока визульный объект и цепляем его на форму без всякой синхронизации. Не в этом ли собака зарыта?

А как его создать?))) Я не разу не создавала визуальный объект из потока и не цепляла на форму)))) Подскажи пожалуйста как сделать)))))

[Stilet]

Встречный вопрос: А почему в треаде решила работать? Смысл?