无法连接到 ftp 服务器

Question

我正在尝试使用 Windows api 函数通过 powerbuilder 应用程序连接到 ftp 服务器。我设法通过 Internet Explorer 连接到 ftp 服务器（所以我不认为这是权限问题），但应用程序由于某种未知原因失败。

String  ls_Null, &
            ls_id
Integer li_rc

li_rc = 1

IF Not InternetAutodial(AUTODIAL_FORCE_UNATTENDED, 0) THEN
    f_write_to_err_log('IMPORT Unable To Connect Internet - Dialup')
    li_rc = -1
ELSE
    SetNull(ls_Null)
    ls_id = "Care_Dsend"
    al_internet_handle = InternetOpen(ls_id, INTERNET_OPEN_TYPE_DIRECT, ls_Null, ls_Null, 0)        

    IF al_internet_handle > 0 THEN
        al_ftp_connect_handle = InternetConnect(al_internet_handle, is_ftp_url, il_ftp_port, is_ftp_user, is_ftp_password, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, al_ref) 
    END IF
END IF

Return li_rc


//al_internet_handle, al_ftp_connect_handle are by ref long parms
//al_ref is a by ref unsignedlong parm
//is_ftp_url, is_ftp_user, is_ftp_password are strings
//il_ftp_port is long

该函数设法从 InternetOpen api 函数返回句柄，但从 InternetConnect 函数返回 0。

有什么想法吗？

Answer 1

好吧，我知道问题出在哪里了。我在函数声明末尾缺少 ;Ansi ，如下所示：

函数 ulong InternetOpen（参考
字符串 lpszAgent, ulong dwAccessType,
参考字符串 lpszProxy，参考字符串
lpszProxyBypass、ulong dwFlags）
库“WININET.DLL”的别名
“InternetOpenA ;Ansi”

Answer 2

您可以发布您的本地外部函数或您用于 InternetAutodial()、InternetOpen() 等的任何函数吗？这些不是内置函数（至少在我的 Powerbuilder 11.2 中不是），而且它们看起来不像 PFC。另外，您使用的是哪个版本的 Powerbuilder。

或者，您可能需要查看以下链接：

• 使用 FTP 上传文件 - Real 的 Powerbuilder HowTo< /a>（也使用 Windows 批处理文件）
• Internet 服务示例 - PFC 指南（使用功率因数校正）