为什么我的程序没有在远程 ftp 服务器上上传文件？

Question

我编写了这个程序以使用 ftpput api 将文件上传到服务器上，它无法运行，但文件未删除！

代码如下：

unit ftp3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,wininet;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);

       var hInet, hConnect: HINTERNET; 

    local_file, 
    remote_file,
    user,remote_server,
    pass: pchar;

    begin 
    local_file := 'C:\Documents and Settings\Omair\Desktop\loggen.txt';
    remote_file := 'loggen.txt';
    user := 'my user';
    pass := 'my pass';
    remote_server := ' ftp.drivehq.com';

    hInet := InternetOpen(0, INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0);
    hConnect := InternetConnect(hInet,
        remote_server, 
        INTERNET_DEFAULT_FTP_PORT,
        user, pass,
        INTERNET_SERVICE_FTP,
        INTERNET_FLAG_PASSIVE,
        0);

    ftpPutFile(hConnect, local_file, remote_file, FTP_TRANSFER_TYPE_BINARY, 0);

    InternetCloseHandle(hInet);
    InternetCloseHandle(hConnect);

    end;   

  end.

Answer 1

检查FtpPutFile 的返回值（成功时应返回TRUE）并通过GetLastError 获取详细错误。

Answer 2

您为什么不更加努力地通过测试所有返回码来确定它失败的地方？

procedure TForm1.Button1Click(Sender: TObject);
var
  hInet, hConnect: HINTERNET;
  local_file, remote_file, user,remote_server, pass: PChar;
begin
  local_file := 'C:\Documents and Settings\Omair\Desktop\loggen.txt';
  remote_file := 'loggen.txt';
  user := 'my user';
  pass := 'my pass';
  remote_server := ' ftp.drivehq.com';

  hInet := InternetOpen(0, INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0);
  if hInet = nil then
    RaiseLastOSError;

  hConnect := InternetConnect(hInet,
    remote_server,
    INTERNET_DEFAULT_FTP_PORT,
    user, pass,
    INTERNET_SERVICE_FTP,
    INTERNET_FLAG_PASSIVE,
    0);
  if hConnect = nil then
    RaiseLastOSError;

  if not ftpPutFile(hConnect, local_file, remote_file, FTP_TRANSFER_TYPE_BINARY, 0) then
    RaiseLastOSError;

  if not InternetCloseHandle(hConnect) then
    RaiseLastOSError;
  if not InternetCloseHandle(hInet) then
    RaiseLastOSError;
end;

您甚至都不知道在尝试发送文件之前是否已建立连接...（正如预期的那样，使用这些站点/用户/密码运行代码时，我得到了值）

如果你克服了这个问题，你实际上可能会得到一个关于 ftpPutFile 失败原因的详细解释，就像这个例子一样：

System Error.  Code: 3.

The system cannot find the path specified.

Answer 3

首先，通过检查您是否可以使用 Microsoft 的内置 FTP 程序 FTP 相同的文件，排除程序中的任何重大错误（或排除它们，如果您愿意）。

在命令行中输入

FTP ftp.drivehq.com（返回）

如果这没有通过登录提示返回给您，那么您的 Delphi 代码之外的问题。可能是您的 Internet 连接受限（可能是端口 25，即 FTP 端口，被您的防火墙/路由器阻止），或者 FTP 地址本身存在问题。

如果您收到提示，请在询问时输入您的用户名和密码。现在输入

BIN（返回） PUT 'C:\Documents and Settings\Omair\Desktop\loggen.txt'（返回）

如果这似乎发送了您的文件，（顺便说一下，输入 BYE 离开 FTP 程序）那么您的问题在于您的 Delphi 代码而不是 FTP 进程本身（此处的其他答案有助于指出您需要检查 Delphi 代码本身）。如果它似乎没有发送文件，我再次建议你在分割你的 Delphi 代码之前解决这个问题。

 

当我做任何这样的“在线”工作时，我总是尝试获得一个单独的进程来测试系统的“另一端”，这个进程不使用我自己的任何代码。