Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

Полная загрузка страницы в WebBrowser   Найти похожие ветки 

 
Checist [root]   (2003-12-12 17:41) [0]

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


 
Checist [root]   (2003-12-17 16:02) [1]

Ну, дайте, я прошу!


 
VAleksey ©   (2003-12-17 16:15) [2]


procedure TBSPLinkWorker.WaitForComplete;
consts
cDocComplete = "complete";
var
vDoc:IHTMLDocument2;
IDisp:IDispatch;
vDocs:TFramesObject;
i, k:integer;
begin
While true do
begin
IDisp := fWeb.ControlInterface.Document;
IDisp.QueryInterface(IID_IHTMLDocument2,vDoc);
//Получает список всех IHTMLDocument2 из фреймов
vDocs := TFramesObject.Create(vDoc);
k:=0;
try
for i:=0 to vDocs.Count-1 do
begin
if AnsiLowerCase(vDocs.items[i].readyState) <> cDocComplete then
k:=k+1;
end;
if k=0 then Break;
finally
vDocs.Free;
end;
Application.ProcessMessages;
end;
end;


PS
если я не прав или кто-нибудь имеет более продвинутый вариант просьба сказать в данной веточке или на мыло.


 
VAleksey ©   (2003-12-17 16:17) [3]

Т.е. суть такая, что тебе нужно получить список всех IHTMLDocument2 из фреймов и проверить их readyState.


 
Checist [root]   (2003-12-24 17:53) [4]

Тип TFramesObject как его подключить, какой юнит нужен и где его взять?
А есть, ли еще методы?


 
Checist [root]   (2003-12-24 18:23) [5]

Ну, давайте, помогите!


 
Checist [root]   (2003-12-24 19:02) [6]

Меня, чего, игнорируют?



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

Текущий архив: 2004.01.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
1-25378
_hunter_
2003-12-25 11:03
2004.01.09
создание компонент


4-25650
Prov
2003-11-06 09:35
2004.01.09
MessageBoxIndirect - don t work


3-25184
Sirus
2003-12-13 07:46
2004.01.09
Backup / Restore влияет на ORDER BY???


1-25398
hfa
2003-12-24 16:45
2004.01.09
Доброе время суток мастера! Подскажите как написать простой exe


3-25263
3LoBit
2003-12-08 14:30
2004.01.09
Странное выполнение OnCalcFields в TSQLQuery