Einzelnen Beitrag anzeigen

Magier

Registriert seit: 2. Okt 2004
Ort: Bergisch Gladbach
39 Beiträge
 
Delphi 7 Personal
 
#4

Re: Internetverbindungen anzeigen und wählen

  Alt 11. Feb 2007, 21:30
anzeigen kann man mit Komponente JvRas32 von Jedi auf dem Registerblatt Internet so:

combobox1.Items := jvras321.PhoneBook; und verbinden geht dann mit folgender Funktion:

Delphi-Quellcode:
//Hier ist eine Funktion zum verbinden der Internetverbindung

uses WinInet;

function DialDFUE(DFUEName: string; var ErrorCode: integer; var ConId: DWord):
  boolean;
var
  ConNum: LPDWORD;
  ReturnCode: DWord;
begin
  result := false;
  ErrorCode := 0;
  New(ConNum);
  try
    ReturnCode := InternetDial(Application.Handle, PChar(DFUEName),
      INTERNET_AUTODIAL_FORCE_UNATTENDED, ConNum, 0);
    ErrorCode := ReturnCode;
    if ReturnCode = ERROR_SUCCESS then
    begin
      result := true;
      ConId := ConNum^;
    end;
  finally
    Dispose(ConNum);
  end;
end;
aufgerufen z.b. mit folgendem aufruf:
Delphi-Quellcode:
    if DialDFUE(form3.Edit4.Text, i, con) = false then
    begin
      MessageDlg('Die DFÜ Verbindung konnte nicht aufgebaut werden.', mterror,
        [mbok], 0);
      exit;
    end;
con ist eine Variable vom Typ Cardenal

http://www.dsdt.info/tipps/?id=160

Mir ist gerade aufgefallen dass du die wohl selber gefunden hast.. also bei mir funzt die auch mit dsl.. glaube zumindest dass es dsl war.. ist schon lange her dass ich das prog das letzte mal benutzt habe, da ist jetzt per router surfe.

MFG
Magier
  Mit Zitat antworten Zitat