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.
Ну возможно Forsag уже дал ответ, но если ты спрашиваешь как запретить кеширование, то ответ: никак наверное :-/, но можно попробывать выполнить refresh после go;
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!
Данная функция узнаёт ай-пи, если 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;