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
Объясни что именно ты хочешь, а то я ни понял...
Может тебе это надо...
WebVrowser1.Navigate('about:blank');
Ну возможно Forsag уже дал ответ, но если ты спрашиваешь как запретить кеширование, то ответ: никак наверное :-/, но можно попробывать выполнить refresh после go;
Данная функция узнаёт ай-пи, если 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;
А еще можно так...
Объявляешь такую вот лабуду из библиотеки URL.DLL, а она должна быть,
если у тебя установлен эксплорер:
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
И используешь ее, где надо типа так:
if InetIsOffline(0) then
то грузится то-то то-то....
else
то грузится что-то другое
Функция возвращает true, если ты подключен к инету, ну и фигу, если нет=)
параметр Flag, кажется, зарезервированный и ни на что не влияет.
Я такую каку применял, когда троян писал... 8)