html из WebBrowser

[bilibian]

Привет.

Пытаюсь получить html код из WB, но без успешно. Поможете?

function WB_GetHTMLCode(URL: string): string;
  var
    WebBrowser1: TWebBrowser;
    Doc:IHTMLDocument2;
begin
  WebBrowser1.Navigate(URL);
  while WebBrowser1.ReadyState<READYSTATE_COMPLETE do
    begin
      Application.ProcessMessages;
    end;
  Doc:= WebBrowser1.Document as IHTMLDocument2;
  result:=doc.body.innerHTML;
end;

[Stilet]

Doc:= WebBrowser1.Document as IHTMLDocument2;
result:=doc.body.innerHTML;

А вот это лучше поместить в OnDocumentComplete компонента браузера а не использовать какой-то бешеный ИМХО цикл для проверки.

[bilibian]

Stilet, а как это сделать? Ведь сам WebBrowser создается внутри функции.

[Stilet]

Кинь на форму веббрайзер. Опиши в дизайне событие. Все. Шалон готов - компонент удаляй. Описание события оставь. Когда будешь создавать браузер динамически пропиши (пример):

 WebBrowser1.OnDocumentComplete:=Form1OnDocumentComplete;

сам WebBrowser создается внутри функции.

Боюсь что ты ошибаешься
Он у тебя не создается вообще. Это видно по коду. Отсюда кстати и ошибки скорее всего, текст который из тебя видимо выпартизанивать придется.
Ну пентотал натрия у меня закончился, так что тебе повезло. Могу впрочем паяльником...

[bilibian]

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

Могу впрочем паяльником...

Сурово

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

Отсюда кстати и ошибки скорее всего, текст который из тебя видимо выпартизанивать придется.

Текст ошибки: Access violation at address 0064B6A6 in module 'имя проги.exe'. Read of address 00000444

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

Боюсь что ты ошибаешься

А как тогда будет правильно?

[Stilet]

А как тогда будет правильно?

Дак ведь с этого и нужно было начинать.

WebBrowser1:=TWebBrowser.Create(...);

Вот про TWebBrowser почитай в хелпе, как правильно его создавать. А то ты описал переменку, а создавать ее не потрудился. Отсюда и AV твое. Ну всмысле Акцессус Виолончелиус

[bilibian]

В общем нифига не получается, пишу так:

uses mshtml, Vcl.OleCtrls, SHDocVw, Winapi.ActiveX;


type
  POTOK = class(TThread)
    WebBrowser1: TWebBrowser;
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure WB_GetHTMLCode(URL: string);
    procedure WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);
  end;


procedure POTOK.WB_GetHTMLCode(URL: string);
begin
  CoInitialize(nil);
  WebBrowser1:=TWebBrowser.Create(nil);
  WebBrowser1.Navigate(URL);
  WebBrowser1.OnDocumentComplete:=WebBrowser1DocumentComplete;
end;


procedure POTOK.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);
  var
    Doc:IHTMLDocument2;
begin
  Doc:= WebBrowser1.Document as IHTMLDocument2;
  Form1.Memo3.Text:=doc.body.innerHTML;
  WebBrowser1.Free;
  CoUnInitialize;
end;


procedure POTOK.Execute;
begin
  WB_GetHTMLCode('http://site.ru/');
end;

При запуске ошибок нет, но и html кода тоже не получаю.

Что я делаю не так и где накосячил?

[Человек_Борща]

procedure POTOK.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);
  var
    Doc:IHTMLDocument2;
begin
  Doc:= WebBrowser1.Document as IHTMLDocument2;
  Form1.Memo3.Text:=doc.body.innerHTML;
  WebBrowser1.Free;
  CoUnInitialize;
end;

Неслыханный бред.

Объект не дождался когда отработает его метод, а в методе вы этот объект убиваете.

И да, потоком является только тот код, который вызывается внутри execute.

Я про синхронизацию уже говорил?

[bilibian]

Сообщение от Человек_Борща

Я про синхронизацию уже говорил?

В данном случаем я отправляю html на форму только ради проверки, что все работает, на самом деле html пойдет дальше по потоку.
По этому, чтобы небыло проблем из-за того, что я использую элементы формы в потоке, я делаю все в один поток.

Перенес код в поток и все равно ничего:

procedure POTOK.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);
  var
    Doc:IHTMLDocument2;
begin
  Doc:= WebBrowser1.Document as IHTMLDocument2;
  Form1.Memo3.Text:=doc.body.innerHTML;
end;

procedure POTOK.Execute;
begin
  CoInitialize(nil);
  WebBrowser1:=TWebBrowser.Create(nil);
  WebBrowser1.Navigate('http://site.ru/');
  WebBrowser1.OnDocumentComplete:=WebBrowser1DocumentComplete;
  WebBrowser1.Free;
  CoUnInitialize;
end;

[Stilet]

WebBrowser1.OnDocumentComplete:=Web Browser1DocumentComplete;
WebBrowser1.Free;

Так нельзя )
Ты думаешь что браузер заставить поток ждать пока он догрузится, а на самом деле сразу после попытки загрузки ты браузер убиваешь.
Тогда уж сделай переменку OnOk:Boolean; и

procedure POTOK.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);
  var
    Doc:IHTMLDocument2;
begin
  Doc:= WebBrowser1.Document as IHTMLDocument2;
  Form1.Memo3.Text:=doc.body.innerHTML;
  OnOk:=true;
end;

procedure POTOK.Execute;
begin
  OnOk:=false;
  CoInitialize(nil);
  WebBrowser1:=TWebBrowser.Create(nil);
  WebBrowser1.Navigate('http://site.ru/');
  WebBrowser1.OnDocumentComplete:=WebBrowser1DocumentComplete;
  while not OnOk do sleep(10); // Чтоб поток ждал когда брявзерь загрузит свои делишки окончательно
// И только потом помахать ему ручкой
  WebBrowser1.Free;
  CoUnInitialize;
end;