The FUNCTION Long InternetConnect (Long hInternet, String lpszServerName, Long nServerPort, String lpszUserName, String lpszPassword, Long dwService, Long dwFlags, REF Long dwContext) LIBRARY "WinInet. DLL" ALIAS FOR "InternetConnectA
"
//- connect to the server at the same time record the connection handle -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Il_FTPHandle=InternetConnect (il_InternetHandle, & amp;
As_ServerName, & amp;
INTERNET_DEFAULT_FTP_PORT, & amp;
As_UserName, & amp;
As_Password, & amp;
INTERNET_SERVICE_FTP, & amp;
Ll_Flags, & amp;
Ll_Context)

//- check whether the connection is successful -- -- --
IF il_FTPHandle & gt; 0 then
Is_ServerURL=as_ServerName
The Else
Il_FTPHandle=1
End the if
Always returns 0

CodePudding user response:

If after PB10 statement
The Function Long InternetOpen (String sAgent, Long lAccessType, String sProxyName, String sProxyBypass, Long lFlags) Library "wininet. DLL" Alias For "InternetOpenA; Ansi
"The Function Long InternetConnect (Long hInternetSession, String sServerName, Integer nServerPort, String sUsername, String sPassword, Long lService, Long lFlags, Long lContext) Library "wininet. DLL" Alias For "InternetConnectA; Ansi
"

CodePudding user response:

Should be the problem of unicode, it is recommended that the floor on the ground floor of try to answer