Consultor Eletrônico

Status: Unverified

GOAL:

How to establish an Internet dial-up connection using the 4GL

GOAL:

Using wininet.dll to call the windows dial-up

GOAL:

How to call the windows dial-up dialog

FIX:

The 4GL below demonstrates how to establish an Internet connection by calling the wininet.dll?s InternetDial function.

Procedure InternetDial External "wininet.dll":
define INPUT parameter hwind as long.
define INPUT PARAMETER nome as CHAR.
define INPUT PARAMETER Flags as long.
define OUTPUT PARAMETER connection as long.
define INPUT PARAMETER Reserved as long.
DEFINE RETURN PARAMETER ret as LONG.
end.
DEF VAR hwind as INT NO-UNDO.
DEF VAR connection AS INT NO-UNDO INITIAL 0.
DEF VAR return-code as INT no-undo.
run InternetDial(input hwind,
input "<Name of DUN Phonebook Entry to Dial>",
input 0, /* NO USER INTERFACE; CAUSES DIAL-UP WINDOW TO DISAPPEAR
WHEN CONNECTION IS MADE OR CAN'T BE MADE*/
output connection,
input 0,
output (return-code).