Internetverbindung trennen geht nicht?

[Lefko]

Hallo Freunde :hi: ,

ich hab ein Problem:

Normalerweise ging das immer gut, mit InternetAutoDialHangUp(0) die Inet-verbindung zu trennen!
NUN aber, geht es nicht mehr! :shock:

Woran kann das liegen?!

Delphi-Quellcode:

if InternetGetConnectedState(nil, 0) then //Wenn Interverbindung...
  begin
   repeat
    InternetAutoDialHangUp(0);      //...dann sooft trennen...
   until not InternetGetConnectedState(nil, 0); //...bis keine Verbindung mehr
   getrennt := true;
  end;

(Ich weiss, der Befehl kann auch eine herstellen, aber er soll das ja machen, bis sie nicht mehr da ist, also kann daran der Fehler ja nicht liegen...)

MfG Lefko.

[Kamil]

Zitat:

InternetAutodialHangup
Disconnects an automatic dial-up connection.

Zitat:

InternetHangUp
Instructs the modem to disconnect from the Internet.

Establishing a Dial-Up Connection to the Internet

[Lefko]

Oke, alles klar, danke :)

[Lefko]

oh man, ich finde einfach nicht raus, welchen parameter ich übergeben muss für ConnectionID!!

InternetHangUp(????, 0);

Da muss da Handle der verbindung hin, aber wie bekomme ich das?! bitte QT wenns geht, danke :)


MfG Lefko.

[Lefko]

weiss denn niemand, wie ich das machen kann?

[Uncle Cracker]

Das habe ich bei den Schweizern gefunden:

Zitat:

Zitat von "Swissdelphicenter.ch

Code:

uses 
  WinInet; 

// Causes the modem to automatically dial the default Internet connection. 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  dwConnectionTypes: DWORD; 
begin 
  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 
    end; 
end; 


// hangup the default Internet connection. 
procedure TForm1.Button2Click(Sender: TObject); 
var 
  dwConnectionTypes: DWORD; 
begin 
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + 
    INTERNET_CONNECTION_PROXY; 
  if InternetGetConnectedState(@dwConnectionTypes, 0) then 
    // connected 
    InternetAutodialHangup(0); 
end;

Bei mir geht es eigentlich :roll:

[Lefko]

Zitat:

Zitat von Uncle Cracker

Das habe ich bei den Schweizern gefunden:

Zitat:

Zitat von Swissdelphicenter.ch

Code:

...
    InternetAutodialHangup(0); 
...

Bei mir geht es eigentlich :roll:

Ähm, hättest du den ersten Post hier (von mir) gelesen und die antwort darauf, wüsstest du, dass das nicht geht, da die verbindung nicht mit delphi aufgebaut wurde...also kein internetAUTODIALhangup.

Weiss es sonst jemand, wie man das Handle der Internetverbindung erfährt?

MfG Lefko.

[Uncle Cracker]

Ok, ich sollte mal anfangen vorher alles zu lesen :roll:

[Lefko]

Zitat:

Zitat von Uncle Cracker

Ok, ich sollte mal anfangen vorher alles zu lesen :roll:

:mrgreen:

[Kamil]

Wenn du die Verbindung nicht selber (mit Delphi) aufgebaut hast, dann kannst du sie auch nicht beenden. (zumindest mit dieser Funktion)

[Lefko]

@Kamil:

ach ne, soweit war ich auch schon :zwinker:

Jetzt will ich ja auch das Handle der Verbindung bekommen, um das Auszuführen :)

MfG Lefko.

[Kamil]

Das Handle bekommst du wenn du eine Verbindung aufbaust...

Versuchs mal damit:
http://www.torry.net/ras.htm

[Lefko]

Hm, hab mir 2 RAS - kompos runtergeladen, aber hat nix gebracht, die können das auch nur, wenn man damit auch die verbindung aufgebaut hat...

gibt es echt keine möglichkeit, das handle einer verbindung zu bekommen, die man manuell aufgestellt hat?
wäre echt hilfreich für mich!!

MfG Lefko.

[Kamil]

Ich bin mir ziemlich sicher, dass das nicht stimmt:
mit RasEnumConnections kommst du an alle Verbindungen und mit RasHangUp kannst du sie dann beenden.

[Lefko]

Oke, da hast du recht.. mit der MSDN kenn ich mich gar nicht aus, da hab ich auch nicht nachgeschaut...


ich werd s nochmal versuchen.. mfg Lefko.

EDIT:

Ja, wunderbar, hab das jetzt mit 2 Zeilen Code geschafft! :mrgreen:

Delphi-Quellcode:

var ConnDetails : TRASConnectionDetails;
...
RasMonitor1.GetConnectionDetails(ConnDetails);
RasMOnitor1.HangUpRasConnection(ConnDetails.ConnRas);
...

bei torry gibt's eine RasMonitor - Komponente zum DL: RAS Internet Monitor von Torry.net

MfG Lefko :spin2: