Ljudi, pozalujsta otvette na takoj votros. U menja v TWebBrowzer zagruz'aetsja strani4ka. Kak sdelat' tak, 4tobi tuda voob6'e ni4ego ne zagruz'alos' iz Ke6-pamjati? Esli znaete otvet, pro6u napisat' poponjatnee.
Budu o4en' priznatelen. Zaranee spasibo. Alx
Forsag
2.07.2003 1:39
Объясни что именно ты хочешь, а то я ни понял... Может тебе это надо...
WebVrowser1.Navigate('about:blank');
mj
2.07.2003 19:50
Ну возможно Forsag уже дал ответ, но если ты спрашиваешь как запретить кеширование, то ответ: никак наверное :-/, но можно попробывать выполнить refresh после go;
Forsag
5.07.2003 19:52
Цитата
Delo v tom, 4to mne nado sdelat' takuju programku, v kotoroj pri nali4ii interneta v WebBrowzer zagruz'alas' strani4ka. Esli ona ne moz'et zagruzitsja (net I-neta ili drugaja pri4ina) proishodit kakoe nibud' sobitie.
Nu tipa if WebBrowzer.Conection=true then .....
Takoe voob6'e real'no sdelat'? Esli da - o4en' pro6u pomo4.
Poka ja sdelal tak. Ja spra6ivaju u programki nazvanie <Title> zagruz'aemoj strani4ki. Esli ono vernoe - proishodit sobitie ina4e INTERNETA NET. No kogda internet est' tol'ko inogda - v WebBrowzer zagruz'aetsja tol'ko <Title> ;-( A sama strani4ka - net!
4to moz'no v takom slu4ae sdelat'?
O4n' pro6u pomo6'i. Zaranee spasibo Alx
Forsag
5.07.2003 20:03
Данная функция узнаёт ай-пи, если result=0.0.0.0 или "", то комп не подключен к инету
function GetIPAddress(Name:string): string; var WSAData: TWSAData; p: PHostEnt; begin WSAStartup($0101, WSAData); P:=GetHostByName(PChar(Name)); if Assigned(P) then Result := inet_ntoa(PInAddr(p.h_addr_list^)^) else Result := ''; WSACleanup; end;
А теперь проверяем загружать стр из инета или пустую...
procedure TForm1.ProverkaBrowsera(sender:TObject); If result='' or '0.0.0.0' then begin WebVrowser1.Navigate('about:blank'); exit; end; WebVrowser1.Navigate('http://nuwnaya_straniza.com'); end;
Вроде так....
Maxim
13.08.2003 21:41
А еще можно так...
Объявляешь такую вот лабуду из библиотеки URL.DLL, а она должна быть, если у тебя установлен эксплорер:
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
И используешь ее, где надо типа так:
if InetIsOffline(0) then то грузится то-то то-то.... else то грузится что-то другое
Функция возвращает true, если ты подключен к инету, ну и фигу, если нет=) параметр Flag, кажется, зарезервированный и ни на что не влияет.
Я такую каку применял, когда троян писал... 8)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.