Mit folgende Funktionen kann eine DFÜ-Verbindung hergestellt und
beendet werden:
Der erste Parameter ist der Name der DFÜ-Verbindung,
der zweite liefert den Error-Code, der dritte eine
ID-Nummer die man beim beenden der DFÜ-Verbindung mit angeben muss. (ConID)
Konnte eine Verbindung aufgebaut werden, wird true zurück geliefert,
sonst false.
Die Funktion beendet erst wenn die Verbindung steht.
(jedenfalls bei mir: Win Me/98)
Code:
uses WinInet;
{ INTERNET_AUTODIAL_FORCE_ONLINE -> Forces an online connection.
INTERNET_AUTODIAL_FORCE_UNATTENDED -> Forces an unattended Internet dial-up. If user intervention is required, the function will fail.
INTERNET_DIAL_FORCE_PROMPT -> Ignores the "dial automatically" setting and forces the dialing user interface to be displayed.
INTERNET_DIAL_UNATTENDED -> Connects to the Internet through a modem, without displaying a user interface, if possible. Otherwise, the function will wait for user input.
INTERNET_DIAL_SHOW_OFFLINE -> Shows the Work Offline button instead of Cancel button in the dialing user interface. }
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);
{Returns ERROR_SUCCESS if successful, or an error value otherwise. The error code can be one of the following:
ERROR_INVALID_PARAMETER One or more of the parameters are incorrect.
ERROR_NO_CONNECTION There is a problem with the dial-up connection.
ERROR_USER_DISCONNECTION The user clicked either the Work Offline or Cancel button on the Internet connection dialog box.}
ErrorCode := ReturnCode;
if ReturnCode = ERROR_SUCCESS then
begin
result := true;
ConId := ConNum^;
end;
finally
Dispose(ConNum);
end;
end;
------------------------------------------------------------
Zum beenden einer DFÜ-Verbindung folgende Funktion
benutzen: (Die Funktion ist in WinInt implementiert)
InternetHangUp(ConID, 0);