Tjek forbindelse til Internettet

med denne funktion:

Function ConnectionKind :boolean;
var
  flags: dword;
begin
  Result := InternetGetConnectedState(@flags, 0);
  if Result then
  begin
    if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
    begin
      Result := True;
    end
    else
    begin
      Result := False;
    end

  end;
end;

hvis den er true er der modem forbindelse :)

/ZIRON

Tak for det! Jeg vender tilbage til dig, når jeg har afprøvet funktionen.

ziron >> Har du tested den ?

Den virken nemlig ikke hvis du har lan forbindelse ud i verden !!

Jens B

ja jeg har testet. og jo den virker, har selv brugt den. og nej den virker ikke med lan, der findes flere forskelige "parameter" til den, også til lan, finder dem lige. lidt længe siden jeg fik fundet frem til funktionen...

/ZIRON

kig lidt her:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wininet/wininet/internetgetconnectedstate.asp

ellers er der også dette, det er med lan. et gammel et:

http://www.eksperten.dk/spm/103784

/ZIRON

YES YES den kenner jeg godt ...

Så skulle der her virke :

Function  InterNetConnection : String;
var
  lpdwFlags : Dword;
begin
  Result := 'Unknown';
  if InternetGetConnectedState(@lpdwFlags, 0) then
    case lpdwFlags of
      INTERNET_CONNECTION_MODEM  :
        Result := 'Modem';
      INTERNET_CONNECTION_LAN    :
        Result := 'Lan';
      INTERNET_CONNECTION_PROXY  :
        Result := 'Proxy';
      INTERNET_CONNECTION_MODEM_BUSY  :
        Result := 'Modem busy';
    end;

end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := InterNetConnection;
end;

Men min lan forbindelse retunere 18 som type !!!

Jens B

du skal bare kører på en hva :)

men lyder underligt med din lan, da jeg arbejdede med det for 1. års tid siden havde jeg ingen probs...

/ZIRON

hov nej sådan her :

uses
  wininet;

Function  InterNetConnection : String;
var
  Flags : Dword;
begin
  Result := 'Unknown';
  if InternetGetConnectedState(@Flags, 0) then
  begin
      if (Flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
        Result := 'Modem';
      if (Flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
        Result := 'Lan';
      if (Flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
        Result := 'Proxy';
      if (Flags and INTERNET_CONNECTION_MODEM_BUSY) = INTERNET_CONNECTION_MODEM_BUSY then
        Result := 'Modem busy';
  end;
end;


Så virker det også :-)

Jens B

Jeg har desværre ikke mulighed for at teste det nu. Men hvad returnerer funktionen, InterNetConnection, hvis man ikke er på nettet med en modem? "Unknown"?

Hvis du ikke connecter til internetter via Proxy, LAN eller modem ja så retunerer den Unknown.

Den her fuinktion forholder sug KUN til typen af dit internet, ikke til om du er connected til omverden !!!

Jens B

borrisholt > Gider du ikke lige svare, så du også kan få nogle points?