Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.06.29;
Скачать: [xml.tar.bz2];

Вниз

Окончание загрузки TWebBrowser   Найти похожие ветки 

 
ajunta ©   (2008-06-01 15:49) [0]

всем доброго времени суток. помогите пожалуйста решить задачку:

надо выполнить процедуру по завершению загрузки странички в TWebBrowser, посмотрел его события - нашел несколько, но все они (OnDownloadComplete, OnDocumetnComplete, OnNavigateComplete) вызывабтся несколько раз, (пробовал заходить на torrents.ru)

как-то можно отловить момет когда уже все загружено?


 
Ум_ще   (2008-06-01 16:15) [1]

Не пробовал такой вариант?

 while WebBrowser1.Busy do Application.ProcessMessages;


 
ajunta ©   (2008-06-01 20:52) [2]

Попробовал, но в такой ситуации например:


procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
   Persist : IPersistFile;
   Document : IHTMLDocument2;
   b : LongBool;

  source:string;
  filename: pWideChar;

begin
for i:= 0 to 10 do begin
 WebBrowser.Navigate("http://www.google.com/search?q="+inttostr(i));
 while WebBrowser.Busy do Application.ProcessMessages;
 Document := WebBrowser.Document as IHTMLDocument2;
 Persist := Document as IPersistFile;
 b:=false;
 source:="page"+inttostr(i)+".html";
 GetMem(filename, sizeof(WideChar) * Succ(Length(source)));
 StringToWideChar(source, filename, Succ(Length(source)));
 Persist.Save(filename,b);
 FreeMem(filename);
end;
log.Lines.Add("OK!")
end;


зада была в том, что бы сохранить результаты поиска для циф от 0 для 10, но в результате во всех файла только результат поиска для 0, а дальше ничего не меняется, хотя Navigate вызывается... :-\


 
имя   (2008-06-01 21:06) [3]

Удалено модератором


 
имя   (2008-06-01 21:08) [4]

Удалено модератором


 
ajunta ©   (2008-06-01 21:09) [5]


> разу после окончания загруки страницы управление передаётся
> DocumentComplete


если WebBrowser1.Navigate("google.com");
OnDocumentComplete выполниться не один раз. оно вызывается еще до того, как страничка прогрузилась на деле.


 
имя   (2008-06-01 21:11) [6]

Удалено модератором


 
имя   (2008-06-01 21:18) [7]

Удалено модератором


 
ajunta ©   (2008-06-01 21:20) [8]

Если бы к гуглю.... значит способ неуниверсальный....


 
Умище-0111   (2008-06-01 22:27) [9]


> ajunta ©   (01.06.08 21:20) [8]
> Если бы к гуглю.... значит способ неуниверсальный....


У меня один раз срабатывает.


 
palva ©   (2008-06-01 23:05) [10]

как-то можно отловить момет когда уже все загружено?
Сначала надо понять, что значит все загружено. Если страничка загрузилась, но через 1 секунду она снова обратится с запросом к Интернету, а через пять секунд еще... Можно ли про нее говорить, что все загружено?

То есть нужно рассматривать конкретный сайт и выяснять, что означает каждый NavigateComplete


 
Vlad Oshin ©   (2008-06-02 09:31) [11]

может такого дожидаться на странице?
</HTML>


 
Vlad Oshin ©   (2008-06-02 09:31) [12]

может такого дожидаться на странице?
</HTML>


 
Vlad Oshin ©   (2008-06-02 09:31) [13]

может такого дожидаться на странице?
</HTML>


 
Правильный_Вася   (2008-06-02 11:21) [14]

OnNavigateComplete2 event (TWebBrowser)
?



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.06.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.056 c
2-1212143583
Сергей
2008-05-30 14:33
2008.06.29
Как описать процедуру чтобы использовать ее в нескольких модулях?


15-1211024318
may be I am noob...
2008-05-17 15:38
2008.06.29
Вопрос по Apache (.htaccess)


6-1189766837
artem779
2007-09-14 14:47
2008.06.29
IdMessage


2-1212566516
n_sch
2008-06-04 12:01
2008.06.29
Строковые функции


2-1212246366
Pi:=3.14...
2008-05-31 19:06
2008.06.29
Переход в папку





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский