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

URL   Найти похожие ветки 

← →
niko4615   (2002-05-29 10:28) [0]

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

---

← →
int64 ©   (2002-05-29 12:23) [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;

---

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

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



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