Chrome

[Ангелина1989]

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

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

потому что возникает одна ситуация при работе с браузером выход из которой только уничтожить и запустить заново((( я пыталась по всякому и куки удалять и историю но ситуация меняется только когда перезапущу браузер а следовательно приходится перезапускать все приложение(((( Вот и увидела выход в треаде чтоб можно было создать и уничтожить не перезапуская все приложение... Посоветуйте как быть((( Если очень поможете можем обговорить финансовое вознаграждение...

[Stilet]

Посоветуйте как быть

А я бы не в треаду пихал. А бы создавал его в отдельной форме, и там же освобождал. Тогда перезапуск только этой формы нужен будет. Вернее пересоздание.
И вообще откуда такая уверенность что он нормально до сайта достукивается?

[Ангелина1989]

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

А я бы не в треаду пихал. А бы создавал его в отдельной форме, и там же освобождал. Тогда перезапуск только этой формы нужен будет. Вернее пересоздание.
И вообще откуда такая уверенность что он нормально до сайта достукивается?

Интересная у тебя идея))) примерчик можно??? чтоб примерно понять))

И вообще откуда такая уверенность что он нормально до сайта достукивается?

уверенность от исходного кода страницы))) или я не верно вопрос поняла?))

[Stilet]

примерчик можно?

Ну у меня нет хрома.
Создавать формы умеешь?

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BrowserOnLoadEnd(Sender: TObject;
  const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer;
  out Result: Boolean);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 FBrowser.destroy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   FBrowser := TChromium.Create(nil);
   FBrowser.Parent := Self;
   FBrowser.align:=alClient;
   FBrowser.show;
   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);
begin
    if HttpStatusCode = 200 then
  begin
ShowMessage('готово');
  end;
end;

end.

Это ее код.

А вызывать в основной проге. Допустим по клику кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm1.Create(nil) do begin
    ShowModal;
    Close;
    Destroy;
  end;
end;

Т.е. Запустились - открыли новую форму (там же создали бравзер, открыли страничку) - закрыли форму (бравзер канул в Лету)

[Ангелина1989]

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

Ну у меня нет хрома.
Создавать формы умеешь?

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BrowserOnLoadEnd(Sender: TObject;
  const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer;
  out Result: Boolean);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 FBrowser.destroy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   FBrowser := TChromium.Create(nil);
   FBrowser.Parent := Self;
   FBrowser.align:=alClient;
   FBrowser.show;
   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);
begin
    if HttpStatusCode = 200 then
  begin
ShowMessage('готово');
  end;
end;

end.

Это ее код.

А вызывать в основной проге. Допустим по клику кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm1.Create(nil) do begin
    ShowModal;
    Close;
    Destroy;
  end;
end;

Т.е. Запустились - открыли новую форму (там же создали бравзер, открыли страничку) - закрыли форму (бравзер канул в Лету)

Спасибо огромное тебе)))) но вот же проблема у меня работают с ним потоки....))))) причем 5 штук и в идеальном варианте чтоб каждый поток мог работать со своим браузером то бишь 5 потоков 5 браузеров))))

Попробовала твой вариант не открывается страничка(((( создается форма и все. Поставила BreakPoint на создание формы не доходит туда((( в чем дело не пойму((((

[Stilet]

Ну тут без вариантов. Отлаживать и выискивать проблемы.
Кстати

with <Тут указать форму с хромом>.Create(nil) do begin

А то вдруг ты тупо скопипастила.

[Ангелина1989]

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

Ну тут без вариантов. Отлаживать и выискивать проблемы.
Кстати

with <Тут указать форму с хромом>.Create(nil) do begin

А то вдруг ты тупо скопипастила.

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

Ничего не изменилось... Все та же проблема(((( Блин ваще незнаю что делать(((((((((((((

Кто нибудь сможет помочь за денежное вознаграждение?

[Son Of Pain]

Опиши свою задачу подробнее. Ты точно уверена, что для нее нужен именно тяжелый и кривой TChromium?

[Ангелина1989]

Сообщение от Son Of Pain

Опиши свою задачу подробнее. Ты точно уверена, что для нее нужен именно тяжелый и кривой TChromium?

я не уверена но больше ничего не нашла для решения своей задачи.. там и капча вылетает и свои еще ньюансы... а что посоветуете???

[Stilet]

а что посоветуете?

А ты всетки задачу опиши )
А потом подумаем.