O4en pro6u POMO6'I !!! Опции

[Alx]

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]

Данная функция узнаёт ай-пи, если 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;

Вроде так....