Besteht eine Internetverbindung?

[DeCodeGuru]

Hi Leute,

mir fiel letztens auf (als ich vor einem Rechner, der über nen Router ins iNet geht, saß), dass ich nicht richtig überprüfen konnte, ich ich jetzt eingewählt bin oder nicht.

Normalerweise macht man das ja mit InternetGetConnectedState, aber das hat da nicht funktioniert. Das Ergebnis war immer, dass eine Verbindung hergestellt war, was aber nicht stimmte.

Hat da jemand ne Frage??

MfG DeCodeGuru

[Christian Seehase]

Moin DeCodeGuru,

probier's mal so

Code:

const
  _asConnectionState : array [Boolean] of string = ('OFFLINE','ONLINE');
  INTERNET_CONNECTION_OFFLINE = $20;

var
  dwResult : DWord;

begin
  InternetGetConnectedState(@dwResult,0);
  ShowMessage(_asConnectionState[(dwResult and INTERNET_CONNECTION_OFFLINE) = 0]);
end;

[/code]

[Yheeky]

Hi!

Mein erstes Posting
Also schau mal, vielleicht hilft dir folgendes.

http://www.swissdelphicenter.ch/de/showcode.php?id=70

Gruß Yheeky

[DeCodeGuru]

Hi!

@Christian: Ich habe das jetzt mal ausprobiert und es funktioniert ohne Router einwandfrei. Mit Router konnte ich noch nicht testen, habe das Prog meinem Freund aber schon mal per Mail geschickt.

@Yheeky: Ich werde das gleich auch nochmal ausprobieren (kann ja nicht schaden )

MfG DeCodeGuru

[DeCodeGuru]

Moin Leute,

also ich habe das ausprobieren lassen und es hat nicht funktioniert. Leider!!

Hat nochjemand eine Idee?

MfG DeCodeGuru

[thomasdrewermann]

Vielleicht kannst du es mit einer NMHTTP Komponente probieren. Kannst ja einfach ne Seite Aufrufen lassen und wenn der aufruf scheitert den Fehlercode auswerten. Wenn der Fehlercode besagt, dass der Name nicht aufgelöst werden kann, dann bist du offline. Andernfalls bist du online. Zur Verwendung der NMHTTP Kompo gibts bei den Demo's unter Fastnet ein Beispiel.

[DeCodeGuru]

Hi Thomas,

ich werde es probieren.

Zitat:

Ich hoffe ich habe dir damit weitergeholfen

Ja, hast du

Zitat:

Ich versuch das ganze mal in Code zu verfassen

Das wäre echt super.

MfG DeCodeGuru

[Darty]

Hi,

hier mein Code, auch wenn der ähnlich wie die von Christian Seehase ist. Ich konnte mein Freund nicht erreichen, aber er hat auch einen Router und ich vermute bei ihm hatte es geklappt ..

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  dwResult : cardinal;
begin
  dwResult := 0;
  if internetgetconnectedstate(@dwResult,0) = FALSE then
    begin
      ShowMessage('Keine Verbindung');
    end
  else
    begin
      ShowMessage('Verbindung vorhanden');
    end
end;

Und in Uses muss noch WININET eingefügt werden.

[Luckie]

@Darty: Hat das nichts schon Christian gepostet? das hat doch nicht funktioniert..

Wenn du das mit dem HTTP-Download machst, dann nimm aber eine Seite, die auch relativ stabil, Google oder so.

[Darty]

@Luckie: Du redest mich mit meinen Nick an , für alle unwissende .. Man nennt mich auch Darty Ja Luckie, ich sagte es doch, dass Christian es schon ähnlich postete, aber ich meine das geht mit dem Router auch ...

Aber die Idee eine Seite aufzurufen und bei nicht erreichen dann davon ausgehen dass die Verbindung nicht besteht ist gut. Aber auch nicht 100%, den eine Seite ist nie 100% erreichbar !!! Also würde diese "Not-Lösung" in den meisten Fällen bei einer immer gut erreichbare Seite funktionieren, aber in Einzelfällen wenn diese Seite off ist oder was auch immer würde dann der Schuss nach hinten losgehen ...