Entwickler-Ecke
Internet / Netzwerk - Pingen
Borlox - Di 29.10.02 20:33
Titel: Pingen
Hi,
ich möchte die Internetverbindung prüfen und habe es versucht mit einem Ping auf eine andere Site zu prüfen, aber ich möchte wenn ich das prüfe nicht, dass er anwählt, wie kann ich das machen?
Mein Code:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| procedure TForm1.Timer1Timer(Sender: TObject);
begin
NMEcho1.Host:=edit1.text; // host auswählen zb. www.auq.de
try NMEcho1.Connect;
except;
end;
end;
procedure TForm1.NMEcho1Connect(Sender: TObject);
begin
label1.caption:='Status: Ping!';
NMEcho1.Echo('pling'); // pling kannst du auch durch ping ersetzen
label1.caption:='Status: '+FloatToStr(NMEcho1.ElapsedTime)+'ms';
NMEcho1.Disconnect;
end;
procedure TForm1.NMEcho1ConnectionFailed(Sender: TObject);
begin
label1.caption:='Status: Falscher Host';
end; |
Hat jemand eine Idee?
Borlox
DataCool - Di 12.11.02 09:57
Hi,
der folgende Code die Standard-Internetverbindung, wenn eine eingerichtet ist.
function ConnectWWW : Boolean;
var
dwConnectionTypes: DWORD;
begin
result := true;
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
//if not InternetGetConnectedState(@dwConnectionTypes, 0) then
// not connected
if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
begin
// error
result := false;
end;
end;
Verbindung wieder auflegen :
Procedure DisConnectWWW;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if InternetGetConnectedState(@dwConnectionTypes, 0) then
// connected
InternetAutodialHangup(0);
end;
LCS - Di 12.11.02 12:28
Hi
soweit ich weiss, kannst du das überhaupt nicht verhindern, solange in deinen Internetoptionen eingestellt ist, dass die Verbindung automatisch hergestellt werden soll.
Gruss Lothar
DataCool - Di 12.11.02 12:34
Es ging ja auch nicht darum irgentetwas zu verhindern, sondern um eine Verbindung herzustellen :shock:
Data
LCS - Di 12.11.02 13:12
@DataCool
| Borlox hat folgendes geschrieben: |
ich möchte die Internetverbindung prüfen und habe es versucht mit einem Ping auf eine andere Site zu prüfen, aber ich möchte wenn ich das prüfe nicht, dass er anwählt, wie kann ich das machen?
|
Wer lesen kann ist klar im Vorteil :mrgreen:
Gruss Lothar
DataCool - Di 12.11.02 13:32
:oops: :oops: :oops:
Asche auf mein Haupt :autsch:
Udontknow - Di 12.11.02 13:39
Oh... :oops: Die Katze beisst sich in den Schwanz...
LCS - Di 12.11.02 13:52
Sind wir heute alle ein bisschen konfus? :mrgreen:
Ich gebs jetzt auch auf. Bei dem Wetter draussen: :wave:
Gruss Lothar
DataCool - Di 12.11.02 14:12
Da ich die Frage jetzt ja verstanden haben :D
Hier die Antwort : 8)
Benutze einfach die NMHTTP Komponente :
function checkOnline : Boolean;
begin
try
NMHTTP.Get('www.auq.de');
Result := true;
except
Result := false;
end;
end;
So wird auf jeden Fall keine Verbindung hergestellt, sondern nur überprüft ob eine besteht !
Data
Udontknow - Di 12.11.02 14:37
Ja, aber da springt doch dann die automatische Verbindungsherstellung vom Betriebssystem auch an, oder irre ich?
Ist das etwa vielleicht die Lösung? LCS sagte es ja bereits: Borlox, du weisst, das du das automatische Verbinden in Windows deaktivieren kannst?
Cu,
Udontknow
DataCool - Di 12.11.02 14:40
Nein, dabei sollte die automatische Verbindung nicht anspringen !!!
8) 8) 8)
Udontknow - Di 12.11.02 14:50
Jo, hast recht!
Allerdings ist es natürlich ein wenig nervig, daß er dann
a) im Offline-Fall Exceptions rauswirft
b) Im Online-Fall den kompletten URL-Inhalt lädt.
Eigentlich sollte es dann ja ein Host-Lookup schon tun... Mal sehen...
*Grummel* Natürlich gibt´s keine Quellen zu FastNet-Komponenten. Ich hasse Komponenten ohne Quellen! :evil:
Cu,
Udontknow
Cashels - Di 12.11.02 17:55
Kann man diesen try..except Block denn nicht mit einem Ping machen. Ich benutze das in einem Programm um zu kucken ob ein Update verfügbar ist. Dabei wird nie gefragt, ob ich eine Verbindungen aufbauen will...
Gruss,
tom
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!