detect internet

Det er faktisk ikke helt nemt, der findes nogle metoder men jeg har endnu ikke prøvet en der virker (for mig).
Har du modem?

Følger lige med...

Har ganske alm. 56k modem.. Jeg skal kun bruge programmet herhjemme og på den samme computer, så det behøver ikke at virke med alle mulige skøre former for opkoblinger..

/Herb

Hvorfor er det svært i delphi?? man kan vel gøre det med winsock.. jeg ka bare ik finde ud af det..

uses
  .., WinInet;

var
  Flags,Reserved : DWORD;
...
  if InternetGetConnectedState(@Flags,Reserved) then
    begin
    // yihaa - got a connection
    end;

læs mere i Windows SDK. Du kan via flags finde ud af din connection type etc.

Prøv denne kode:

uses
..,Wininet;

function InternetConnected: Boolean;
CONST
  INTERNET_CONNECTION_MODEM      = 1;
  INTERNET_CONNECTION_LAN        = 2;
  INTERNET_CONNECTION_PROXY      = 4;
  INTERNET_CONNECTION_MODEM_BUSY = 8;
var
  dwConnectionTypes : DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes,0);
end;

Jeg kan ikke få nogen af kodeeksemplerne til at virke.. Jeg har fundet en fiks lille komponent som kan fortælle mig om jeg er online eller ikke er online..

http://www.torry.net/vcl/internet/other/mginetdetect.zip

Hvis du bruger den componet sammen med en ISDN router f.eks., så hiver du linien op hvert sekund....not good...

Iøvrigt er der intet galt med kode eksemplerne

Jo, hvis man ikke har Wininet (har det heller ikke) :(