怎样用idftp下载文件，下载后删除服务器上的这个文件

Question

用的是d7，里面没有demo，找了很多帖子，没一个运行成功的，请给出完整的代码？

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP;type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Host:='127.0.0.1';
  IdFTP1.Username:='user';
  IdFTP1.Password:='user';
  IdFTP1.Connect(true,-1);
  IdFTP1.Get('123.txt','d:/123.txt',true);
  IdFTP1.Delete('123.txt');
end;end.

Answer 2

可以下载，但不能删除,123.txt:Access is denied?

Answer 3

是不是在iis还要配置什么啊?我在本地测试都不能删除？
另外，怎样判断ftp服务器上是否存在某个文件？

Answer 4

procedure TForm1.Button3Click(Sender: TObject);
var
  List : TStringList;
  filename : String;
begin
  filename:='123.txt';
  IdFTP1.List(List,true);
  IdFTP1.
  if List.IndexOf(filename)>0 then
  showmessage('ssssssssssss');end;

Answer 5

IdFTP1.List(List,true);
这句有错
Incompatible types:'String'and 'Boolean'

Answer 6

procedure TForm1.Button3Click(Sender: TObject);
var
  List : TStringList;
  filename : String;
begin
  List:=TStringList.Create;
  filename:='123.txt';
  IdFTP1.List(List,true);
  IdFTP1.
  if List.IndexOf(filename)>0 then
  showmessage('ssssssssssss');end;对不起，掉了 List:=TStringList.Create;

Answer 7

procedure TForm1.Button3Click(Sender: TObject);
var
  List : TStringList;
  filename : String;
begin
  List:=TStringList.Create;
  filename:='123.txt';
  IdFTP1.List(List,true);
  IdFTP1.
  if List.IndexOf(filename)>0 then
  showmessage('ssssssssssss');
  freeandnil(List);
end;
晕死，又掉了freeandnil(List);

Answer 8

我晕，进天我怎么了
procedure TForm1.Button3Click(Sender: TObject);
var
  List : TStringList;
  filename : String;
begin
  List:=TStringList.Create;
  filename:='123.txt';
  IdFTP1.List(List,true);
  if List.IndexOf(filename)>0 then
  showmessage('ssssssssssss');
  freeandnil(List);
end;

Answer 9

不行啊，大哥，还是
IdFTP1.List(List,true);
这句有错
Incompatible types:'String'and 'Boolean'
改成这样
procedure TForm1.Button2Click(Sender: TObject);
var
  List : TStringList;
  filename : String;
begin
  List:=TStringList.Create;
  filename:='123.txt';
  IdFTP1.List(List,'*.txt',true);
  if List.IndexOf(filename)>0 then
  showmessage('ssssssssssss');
  freeandnil(List);
end;
又说这句if List.IndexOf(filename)>0 then有错
Access violation at address...