Internetverbindung unter XP und anderen WinOs'

[daniel8520]

Hallo Leute,

ich wollte eben mal schnell versuchen, wie man feststellt, ob eine Verbindung zum Internet besteht.
Ich hab es mit InternetGetConnectedState gemacht. Klappt zur hälfte auch einwandfrei. Er meldet "true", wenn ich online bin, er meldet aber auch "true" wenn ich offline bin.
Ich hab jetzt die Vermutung, dass es entwerder an XP, oder daran liegt dass ich DSL nutze. Wobei die vermutung mit DSL näher liegt, oder!?


Kann mir jemand weiter helfen?

[Smokey]

lesen :

http://www.marian-aldenhoevel.de/dojo/internet.html

[daniel8520]

Willst du mir jetzt wirklich sagen, dass es nicht möglich ist, zu prüfen, ob eine Verbindung besteht?
Sorry, aber das kann ich mir nicht vorstellen. Es gibt hunderte von Programmen, die es feststellen können. Es muss doch einen Weg geben!

Weiß vielleicht jemand einen?

[SirThornberry]

Und hunderte von Programmen nehmen den Weg der Mist Pinguin so wütend gemacht hat ICQ versucht einfach eine Vebindung aufzubauen und wenn das fehlschläft kommt die meldung das keine verbindung besteht. Wenn autodial aktiviert ist wird sogar versucht die verbindung herzustellen. Und wenn die verbindung des routers ins i-net getrennt wird bekommt icq das gar nicht mit weil die verbindung zum router weiterhin besteht... Eigentlich solltest du aus den fehlern von dem schüler gelernt haben und eingesehen haben das es keine möglichkeit gibt (außer die anfänglichen erfolge die allerdings nicht sicher sind)

[daniel8520]

Na gut. Ich hab's ja eingesehen.

Trotzdem dank für euere Hilfe!

[Delphi-Noobie]

Hi,

also bei klappt meine Function einwandfrei aber ich hab Isdn hier der Code dafür:

Code:

function RasConnectionCount: Integer;
var
  RasDLL:    HInst;
  Conns:     array[1..4] of TRasConn;
  RasEnums:  TRasEnumConnections;
  BufSize:   DWORD;
  NumConns:  DWORD;
  RasResult: Longint;
begin
  Result := 0;
  RasDLL := LoadLibrary('rasapi32.dll');
  if RasDLL = 0 then Exit;

  try
    RasEnums := GetProcAddress(RasDLL, 'RasEnumConnectionsA'); 
    if @RasEnums = nil then
      raise ERasError.Create('RasEnumConnectionsA not found in rasapi32.dll'); 

    Conns[1].dwSize := SizeOf(Conns[1]); 
    BufSize         := SizeOf(Conns);

    RasResult := RasEnums(@Conns, BufSize, NumConns);

    if (RasResult = 0) or (Result = cERROR_BUFFER_TOO_SMALL) then Result := NumConns;
  finally
    FreeLibrary(RasDLL);
  end;
end;

Function Online():String;
begin
if rasconnectioncount = 0 then
result:='Offline'
else
result:='Online'
end;

[SirThornberry]

@Delphi-Noobie: wenn du den artikel gelesen hättest wüsstest du das es nicht geht. Deine Methode überprüft nur ob eine DFÜ-Verbindung besteht. Allerdings würde deine Methode auch sagen das ich online bin obwohl ich über DFÜ nur eine Verbindung zu meiner Arbeitsstelle hergestellt hab