Internetverbindung trennen geht nicht?

[Lefko]

Hallo Freunde ,

ich hab ein Problem:

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

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 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

[Lefko]

Zitat von Uncle Cracker:

Das habe ich bei den Schweizern gefunden:

Zitat von Swissdelphicenter.ch:

Code:

...
    InternetAutodialHangup(0); 
...

Bei mir geht es eigentlich

Ä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

[Lefko]

Zitat von Uncle Cracker:

Ok, ich sollte mal anfangen vorher alles zu lesen

[Kamil]

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