Проверка полной загрузки

← →
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;

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

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