Online/Offline

Mener du kan ordne det i funktioner indstillinger, så connecter den ligusom du havde ADSL

Uses WinInet;

function IsConnectedToInternet: Boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsConnectedToInternet then
    WebBrowser1.Navigate('http://www.eksperten.dk')
  else
    ShowMessage('Fejl - er ikke tilsluttet Internettet')
end;

Snowball

htmlkongen: Prøv og gør det til en vane og kigge hvilken kategori du er i inden du svarer ;)

Snowball

Snowball<< Ok ;) Deal :P

http://borrisholt.com/Eksperten/DNS.zip

Borris> Cannot allocate socket...

fatter_keine lukker hermed...

fatter_keine: Forklar venligst hvorfor du selv tager point i dette spørgsmål !?

Snowball

Da min sidste kommentar har været der i over 1 måned nu....

... og så går der 2s efter man lukker til der er brok... typisk...

fatter_keine: Og ? Du har slet ikke kommentere det jeg skrev til dig, og da jeg ved det virker, så er det da klart nok jeg brokker mig da jeg ikke mener det er korrekt du selv tager alle pointene i dette spørgsmål.

Snowball

Udover det .. Kan jeg ikke bruge en kommentar som "Cannot allocate socket..." til noget .. Det er du nød til selv at debugge

Jens B