delphi - 上传时 FtpOpenFile 返回 nil 而不是文件句柄

Question

我在 Delphi 中使用 ftp 传输文件。

我可以连接到 ftp 帐户，但是当我尝试上传文件时，FtpOpenFile 函数返回 nil 而不是处理要上传的文件。

hintfile := FtpOpenFile(hintconnect,PChar(tgtfn),GENERIC_WRITE,FTP_TRANSFER_TYPE_BINARY,0);

如果我使用 ftp 客户端应用程序和完全相同的凭据登录 ftp 站点，我可以毫无问题地上传文件。

任何建议表示赞赏。

Answer 1

尝试得到最后一个错误，文档说明了一切：

“如果成功则返回句柄，否则返回 NULL。要检索特定错误消息，请调用 GetLastError。”

http://msdn.microsoft.com/en-us/library/aa384166(VS.85).aspx

Answer 2

尝试将 INTERNET_FLAG_PASSIVE 添加到您的 Internetopen 调用中，另请参阅

http://etutorials.org/Programming/Pocket+pc+network+programming/Chapter+2.+WinInet/File+Transfer+Protocol+FTP/