Einzelnen Beitrag anzeigen

endeffects

Registriert seit: 27. Jun 2004
450 Beiträge
 
#1

Methodenaufruf von DialDFUE(..);

  Alt 21. Apr 2005, 13:11
hallo,

ich möchte mit folgender methode eine dfü verbindung herstellen,
allerdings stell ich mich dabei total dusselig an, ich hab nämlich
keine ahnung wie ich die methode korrekt aufrufen soll

Delphi-Quellcode:
function TForm1.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;
// DialDFUE('freenet', 0, 0) funktioniert leider nicht
  Mit Zitat antworten Zitat