| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как прочитать текст из TWebBrowser?

Ш-К ©   (2006-10-19 20:46:00) 

Следующий код нге работает:

procedure TForm1.FormCreate(Sender: TObject);
var
 WB: TWebBrowser;
begin
 WB := TWebBrowser.Create(nil);
 try
   WB.Navigate('C:\Temp\1.htm');
   while not WB.ReadyState in [READYSTATE_COMPLETE] do
     Forms.Application.ProcessMessages;
   Caption := (WB.Document as IHTMLDocument2).body.innerText; // <-- ошибка здесь
 finally
   WB.Free;
 end;
end;

---

Gero   (2006-10-20 13:44:00) [1]

> [3] Ш-К   (20.10.06 11:56)


> Я полагаю, не дожидаемся загрузки документа. Вот это не
> катит:

Ты гений. Если бы еще и читать умел, было вобще супер.

---

Ш-К   (2006-10-20 12:52:00) [2]

Странно, всегда сравнивалось так:
while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
По всему инету висит этот код. Даже в TEmbeddedWB.Wait.
Что случилось, что теперь так не пишут?

---

Плохиш   (2006-10-20 12:39:00) [3]

> Ш-К   (20.10.06 12:28) [5]
> Охренеть. Оказывается код

Вообще-то в описании языка паскаль написано, что операция NOT имеет наивысший приоритет.

> Проблема не в этом, а в том, что у меня WB.ReadyState никогда
> не становится READYSTATE_COMPLETE.

В приведённой ссылке производят сравнивание с READYSTATE_INTERACTIVE, наверное не спроста.

---

Ш-К   (2006-10-20 12:28:00) [4]

Охренеть. Оказывается код
while not WB.ReadyState in [READYSTATE_COMPLETE] do
и
while not (WB.ReadyState in [READYSTATE_COMPLETE]) do
по разному работает.

Проблема не в этом, а в том, что у меня WB.ReadyState никогда не становится READYSTATE_COMPLETE. И идет бесконечный ProcessMessages.
С чем это может быть связано?

---

Плохиш   (2006-10-20 12:07:00) [5]

>    while not WB.ReadyState in [READYSTATE_COMPLETE] do

while WB.ReadyState < READYSTATE_COMPLETE do?

http://www.swissdelphicenter.ch/de/showcode.php?id=1096

---

Ш-К   (2006-10-20 11:56:00) [6]

Причем здесь OnCreate. WB - локальный.

procedure TForm3.Button1Click(Sender: TObject);
var
 WB: TWebBrowser;
begin
 WB := TWebBrowser.Create(nil);
 try
   WB.Navigate('C:\Temp\1.htm');
   while not WB.ReadyState in [READYSTATE_COMPLETE] do
     Forms.Application.ProcessMessages;
   Caption := (WB.Document as IHTMLDocument2).body.innerText; //<--
   //ошибка здесь body = nil
 finally
   WB.Free;
 end;
end;

Тоже не работает. Я полагаю, не дожидаемся загрузки документа. Вот это не катит:
while not WB.ReadyState in [READYSTATE_COMPLETE] do
     Forms.Application.ProcessMessages;


Где? Лыжи не едут?

---

Gero   (2006-10-19 21:35:00) [7]

Потому что body на тот момент еще не существует, не используй OnCreate, используй WebBrowser.OnDocumentComplete

---

Ш-К   (2006-10-19 20:58:00) [8]

А когда делаю так, то работает:

var
 WB: TWebBrowser;

procedure TForm3.Button1Click(Sender: TObject);
begin
 Caption := (WB.Document as IHTMLDocument2).body.innerText;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
 WB := TWebBrowser.Create(nil);
 WB.Navigate('C:\Temp\1.htm');
 while not WB.ReadyState in [READYSTATE_COMPLETE] do
   Forms.Application.ProcessMessages;
end;

Почему?

---

Наверх