Delphi FTP上传访问冲突

Question

我试图在我的web空间上传一个文件.txt，但是问题开始了，我尝试的代码是这样的：

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
FTP:tidftp;
begin
FTP.Host:='website.altervista.org';
FTP.Username:='website';
FTP.Password:='password';
FTP.Port:=25;
FTP.Connect;
FTP.Put('C:\Users\user\Desktop\text.txt');
FTP.Quit;
end;

我没有得到任何错误，但当我启动程序并单击按钮时，我得到了一个错误：

​

​

紧随其后的是：

​

​

按钮就消失了。

为什么？谢谢!

Answer 1

在访问局部变量FTP之前，必须实例化它的TIdFTP对象。所以试着使用这个：

procedure TForm1.Button1Click(Sender: TObject);
var
  FTP: TIdFTP;
begin
  FTP := TIdFTP.Create(nil);
  try
    FTP.Host := 'serioussamhd.altervista.org';
    FTP.Username := 'serioussamhd';
    FTP.Password := 'password';
    FTP.Port := 21;
    FTP.Connect;
    FTP.Put('C:\Users\user\Desktop\text.txt');
    FTP.Quit;
  finally
    FTP.Free;
  end;
end;

Answer 2

您必须先创建tidftp的实例。

var
FTP:tidftp;
begin
FTP:=Tidftp.Create(nil); //create the instance
try
  FTP.Host:='siteweb.altervista.org';
  FTP.Username:='siteweb';
  FTP.Password:='password';
  FTP.Port:=25;
  FTP.Connect;
  FTP.Put('C:\Users\user\Desktop\text.txt');
  FTP.Quit;
finally
  FTP.Free;
end;
end;