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

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

URL [D6, Win95/98, WinME, Win2k]

niko4615 ©   (2002-05-29 10:28:00) 

Здравствуйте
Как проверить загрузилась ли страница по заданому URL через определннное время в компоненте Webbrowser?
И как проверить изменился ли URL в Webbrowser?

---

int64   (2002-05-29 12:23:00) [1]

procedure TForm1.Timer1Timer(Sender: TObject);
Var URL, ReadState: string;
begin
if assigned(WebBrowser1.Document) then
URL:= (WebBrowser1.OleObject.Document.url)
else URL:= "Unknow URL";

case WebBrowser1.readystate of
READYSTATE_COMPLETE: ReadState:= "COMPLETE";
READYSTATE_UNINITIALIZED: ReadState:= "UNINITIALIZED";
READYSTATE_LOADING: ReadState:= "LOADING";
READYSTATE_LOADED: ReadState:= "LOADED";
READYSTATE_INTERACTIVE: ReadState:= "INTERACTIVE";
else ReadState:= "Unknow ReadState";
end;

Caption:= URL+" | "+ReadState;
end;

---

Наверх