Скачать: CL | DM;

Проверка полной загрузки   Найти похожие ветки 

← →
Checist [root]   (2003-12-27 03:04) [0]

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

---

← →
SergP ©   (2003-12-27 14:13) [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;

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

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.011 c