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

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

Проверка полной загрузки [D7, Win2k]

Checist [root] ©   (2003-12-27 03:04:00) 

Кто-нибудь дайте сырец функции проверки полной загрузки страницы в WebBrowser, которую можно вставить в OnDocumenteComplete...
Буду очень благодарен...

---

SergP   (2003-12-27 14:13:00) [1]

Наверное что-то типа этого....:

function oncomplete:boolean;
var Doc: IHTMLDocument2;
Coll: IHTMLElementCollection;
frame:integer;
begin
Doc:= IHTMLDocument2(WebBrowser1.Document);
result:=true;
if (Doc <> nil) then
begin
Coll:=IHTMLElementCollection(Doc.All.Tags("FRAME"));
for frame:=0 to coll.length-1 do
begin
with HTMLFrameElement(Coll.item(frame, varEmpty)) do
begin
if readyState<>"complete" then Result:=false;
end;
end;
end;
end;

Если чего неправильно то подправь сам, или пусть еще кто подскажет.

---

Наверх