IdFTP控件,这函数怎么调用???看不懂

[z109876543210]

IdFTP控件,这函数怎么调用???看不懂





RootDir = 要删除的根目录，一般情况下 RemoteDir 与 RootDir 相等}
procedure TForm1.FTP_DeleteAllFiles(var idFTP : TIdFtp;RemoteDir,RootDir : string);
label Files;
var
i,DirCount : integer;
Temp : string;
begin
idFTP.ChangeDir(RemoteDir);
if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Exit;
Files :
idFTP.List(nil);
DirCount := idFTP.DirectoryListing.Count ;
while DirCount = 0 do
begin
Temp := idFTP.RetrieveCurrentDir;
idFTP.ChangeDirUp;
idFTP.RemoveDir(Temp);
idFTP.List(nil);
DirCount := idFTP.DirectoryListing.Count ;
for i := 0 to DirCount - 1 do
if idFTP.DirectoryListing[i].FileName = RootDir then Exit;
end;

for i := 0 to DirCount - 1 do
begin
if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Break ;
if idFTP.DirectoryListing[i].ItemType = ditDirectory then
begin
FTP_DeleteAllFiles(idFTP,idFTP.DirectoryListing[i].FileName,RootDir);
end else begin
idFTP.Delete(idFTP.DirectoryListing[i].FileName);
goto Files ;
end;
end;

end;

[YLCN2010]

[Quote=引用 3 楼 boringame 的回复:]
有一个API函数 shellexcute 这个函数可以调用任何的程序 甚至可以识别http ftp等 你可以用它来调用播放flash的程序来打开SWF 例如调用macromedia的flash播放器来打开swf 下面是代码你看看Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal h……
[/Quote]

灌水灌得这么严重，牛头不对马嘴。

[无条件为你]

简单的用它上传个文件到ftp空间是很容易，但如果有多个文件一起上传想加上上传进度，就有点麻烦了。

[YLCN2010]

IdFtp
delphi idftp几个简单函数
1 连接远程服务器
procedure Connect(AAutoLogin: boolean; const ATimeout: Integer);
2 改变目录
procedure ChangeDir(const ADirName: string);
3 下载
procedure Get(const ASourceFile: string; ADest: TStream; AResume: Boolean); overload;
procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: boolean; AResume: Boolean); overload;
4 上传
procedure Put(const ASource: TStream; const ADestFile: string; const AAppend: boolean); overload;
procedure Put(const ASourceFile: string; const ADestFile: string; const AAppend: boolean); overload;
5 删除
procedure Delete(const AFilename: string);


判断是否连接
if IdFTP1.Connected then
begin
...........
end;

引用别人一下,做为自己以后笔记

现在很多应用都需要上传与下载大型文件，通过HTTP方式上传大文件有一定的局限性。幸好FTP作为一个非常老而且非常成熟的协议可以高效稳定地完成大文件的上传下载，并且可以完美地实现续传。就拿我写的电影服务器管理端程序来说，各种方案比较后，发现使用FTP可以完美地实现要求。但是要通过WinSocket库实现FTP比较麻烦，幸好有Indy--一个包装了大多数网络协议的组件包。
通过Indy，程序设计人员可以通过阻塞方式进行编程，可以抛开蹩脚的Winsocket异步模式，采用与Unix系统上等同的阻塞编程模式进行。这样，程序员就可以很好的处理程序的运行流程。
下面，我们进入到Indy的TIdFtp世界。

1.控件的说明

使用Indy 9中的TIdFtp控件可以实现通过FTP方式进行文件的上传与下载。

2.控件的具体使用

（1）控件属性设置

默认属性即可，与服务器连接直接相关的属性如主机名与用户等在建立连接时进行设定。需要设定的是RecvBufferSize和SendBufferSize两属性的值。另外需要根据要传输的文件类型指定TransferType属性，而其他属性按默认值设定即可。

RecvBufferSize说明（默认值为8192字节）：该属性为整型变量，用于指定连接所用的接受缓冲区大小。

SendBufferSize说明（默认值为32768字节）：该属性也为整型变量，用于指定连接所用的发送缓冲区的最大值。该属性在WriteStream方法中时，可用于TStream指定要发送内容的块数。如果要发送的内容大于本属性值，则发送内容被分为多个块发送。

TransferType说明（默认值为ftBinary）：该属性为TIdFTPTransferType型变量。用于指定传输内容是二进制文件（ftBinary ）还是ASCII文件（ftASCII）。应用程序需要使用二进制方式传输可执行文件、压缩文件和多媒体文件等；而使用ASCII方式传输文本或超文本等文本型数据。

（2）控件的事件响应

OnDisconnected响应：TNotifyEvent类，用于响应断开（disconnect）事件。当Disconnect方法被调用用来关闭Socket的时候，触发该响应。应用程序必须指定该事件响应的过程，以便对该断开事件进行相应。

OnStatus响应：TIdStatusEvent类。该响应在当前连接的状态变化时被触发。该事件可由DoStatus方法触发并提供给事件控制器属性。axStatus是当前连接的TIdStatus值；aaArgs是一个可选的参数用于格式化函数，它将用于构造表现当前连接状态的文本消息。

OnWork响应：OnWord是TWorkEvent类事件的响应控制器。OnWork用于关联DoWork方法当缓冲区读写操作被调用时通知Indy组件和类。它一般被用于控制进度条和视窗元素的更新。AWorkMode表示当前操作的模式，其中：wmRead-组件正在读取数据；wmWrite-组件正在发送数据。AWorkCount指示当前操作的字节计数。

OnWorkBegin响应：TWorkBeginEvent类。当缓冲区读写操作初始化时，该事件关联BeginWork方法用于通知Indy组件和类。它一般被用于控制进度条和视窗元素的更新。AWorkMode表示当前操作的模式，其中：wmRead-组件正在读取数据；wmWrite-组件正在发送数据。AWorkCountMax用于指示发送到OnWorkBegin事件的操作的最大字节数，0值代表未知。

OnWorkEnd响应：TWorkEndEvent类。当缓冲区读写操作终止时，该事件关联EndWork方法用于通知Indy组件和类。AWorkMode表示当前操作的模式，其中：wmRead-组件正在读取数据；wmWrite-组件正在发送数据。AWorkCount表示操作的字节数。

在事件响应中，主要通过上述五种事件响应来控制程序。在一般情况下，在OnDisconnected中设定连接断开的界面通知；在OnStatus中设定当前操作的状态；在OnWork中实现传输中状态条和其他参数的显示；而在OnWorkBegin和OnWorkEnd中分别设定开始传输和传输结束时的界面。

（3）连接远程服务器

完成了设定控件属性和实现了控件的事件响应后，就可以与服务器进行交互和传输了。在连接之前，应首先判断IdFtp是否处于连接状态，如果Connected为False，则通过界面控件或其他方式指定与服务器连接相关的一些TCP类属性的设置，分别是：Host（主机名）:String、Username（用户名）:String、Password（密码）:String，也可以指定Port(端口)。之后调用Connect方法连接远程服务器，如果无异常出现则连接成功建立。

过程说明：procedure Connect(AAutoLogin: boolean; const ATimeout: Integer);

该过程连接远程FTP服务器

属性：AAutoLogin: boolean = True

连接后自动登录，该参数默认为True。

const ATimeout: Integer = IdTimeoutDefault

超时时间，单位：秒。

示例代码：

if IdFTP1.Connected then try

if TransferrignData then IdFTP1.Abort;

IdFTP1.Quit;

finally

end

else with IdFTP1 do try

Username := UserIDEdit.Text;

Password := PasswordEdit.Text;

Host := FtpServerEdit.Text;

Connect;

ChangeDir(CurrentDirEdit.Text);

finally

end;

（4）改变目录

连接建立后，可以改变当前FTP会话所在的目录。对于已知绝对路径的情况下，可以直接调用ChangeDir(const ADirName: string)方法来转换目录，ADirName表示服务器上的文件系统目录，另外还可以调用ChangeDirUp回到上级目录。

如果未知路径，则可以通过List(ADest: TStrings; const ASpecifier: string; const ADetails: boolean)过程获取远程服务器的当前目录结构，此时必须设定TransferType为ftASCII（ASCII模式），其中：ADest保存当前目录结构，可以在后续程序中调用该列表。另外可以通过RetrieveCurrentDir方法获取当前目录名。

过程说明：

procedure ChangeDir(const ADirName: string);

改变工作目录

属性

const ADirName: string

远程服务器的目录描述

说明：该过程实际上是实现了FTP CWD命令。



procedure ChangeDirUp;

到上一级目录



function RetrieveCurrentDir: string;

该函数返回当前目录名



procedure List(ADest: TStrings; const ASpecifier: string; const ADetails: boolean);

列出当前目录所有文件和子目录及其属性

参数：

ADest: TStrings

保存文件及子目录的返回结果

const ASpecifier: string =

文件掩码，用于列出符合条件的文件

const ADetails: boolean = true

包含文件和子目录属性



property DirectoryListing: TIdFTPListItems;

返回文件及目录结构的列表



示例代码：

LS := TStringList.Create;

try

IdFTP1.ChangeDir(DirName);

IdFTP1.TransferType := ftASCII;

CurrentDirEdit.Text := IdFTP1.RetrieveCurrentDir;

DirectoryListBox.Items.Clear;

IdFTP1.List(LS);

DirectoryListBox.Items.Assign(LS);

if DirectoryListBox.Items.Count > 0 then

if AnsiPos(total, DirectoryListBox.Items[0]) > 0 then DirectoryListBox.Items.Delete(0);

finally

LS.Free;

end;





（5）下载的实现

在下载之前，必须查看DirectoryListing.Items[sCurrFile].ItemType是否为文件，如返回为ditDirectory则代表当前文件名为目录，不能下载，必须导向到文件才可。如为文件，则可以进行下载。在下载前，设定传输的类型为二进制文件，并且指定本地要保存的路径。通过调用Get方法，实现文件的下载。下载过程较慢，可以考虑将其放到线程中实现。

过程说明：

procedure Get(const ASourceFile: string; ADest: TStream; AResume: Boolean); overload;

procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: boolean; AResume: Boolean); overload;

从远程服务器上获取文件。

属性说明：

const ASourceFile: string

远程服务器上的源文件名

const ADestFile: string

保存到客户机上的文件名

const ACanOverwrite: boolean = false

重写同名文件

AResume: Boolean = false

是否进行断点续传



示例代码：

SaveDialog1.FileName := Name;

if SaveDialog1.Execute then begin

SetFunctionButtons(false);



IdFTP1.TransferType := ftBinary;

BytesToTransfer := IdFTP1.Size(Name);



if FileExists(Name) then begin

case MessageDlg(File aready exists. Do you want to resume the download operation?,

mtConfirmation, mbYesNoCancel, 0) of

mrYes: begin

BytesToTransfer := BytesToTransfer - FileSizeByName(Name);

IdFTP1.Get(Name, SaveDialog1.FileName, false, true);

end;

mrNo: begin

IdFTP1.Get(Name, SaveDialog1.FileName, true);

end;

mrCancel: begin

exit;

end;

end;

end

else begin

IdFTP1.Get(Name, SaveDialog1.FileName, false);

end;



（6）上传的实现

上传的实现与下载类似，通过put方法即可。

过程说明：

procedure Put(const ASource: TStream; const ADestFile: string; const AAppend: boolean); overload;

procedure Put(const ASourceFile: string; const ADestFile: string; const AAppend: boolean); overload;

上传文件至服务器

属性说明：

const ASourceFile: string

将要被上传的文件

const ADestFile: string =

服务器上的目标文件名

const AAppend: boolean = false

是否继续上传



代码示例：

if IdFTP1.Connected then begin

if UploadOpenDialog1.Execute then try

IdFTP1.TransferType := ftBinary;

IdFTP1.Put(UploadOpenDialog1.FileName, ExtractFileName(UploadOpenDialog1.FileName));

//可以在此添加改变目录的代码;

finally

//完成清除工作

end;

end;

（7）删除的实现

删除文件使用Delete方法，该方法删除指定的文件，删除对象必须为文件。如果要删除目录则使用RemoveDir方法。

过程说明：

procedure Delete(const AFilename: string);

删除文件

procedure RemoveDir(const ADirName: string);

删除文件夹，根据不同的服务器删除文件夹有不同的要求。有些服务器不允许删除非空文件夹，程序员需要添加清空目录的代码。

上述两个过程的参数均为目标名称

代码示例：

if not IdFTP1.Connected then exit;

Name := IdFTP1.DirectoryListing.Items[iCurrSelect].FileName;

if IdFTP1.DirectoryListing.Items[iCurrSelect].ItemType = ditDirectory then try

idftp1.RemoveDir(Name);

finally

end

else

try

idftp1.Delete(Name);

finally

end;

（8）后退的实现

后退在实际上是目录操作的一种，可以简单的改变当前目录为..来实现，也可以通过回到上级目录来实现。

（9）取消的实现

在IdFtp的传输过程中，可以随时使用abort方法取消当前操作。可以的OnWork事件的实现中来确定何时取消操作。

代码示例：

//取消按钮的OnClick响应

procedure TMainForm.AbortButtonClick(Sender: TObject);

begin

AbortTransfer := true;

end;

//IdFTP的OnWork事件响应

procedure TMainForm.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCount: Integer);

begin

...

if AbortTransfer then IdFTP1.Abort;

AbortTransfer := false;

end;

（10）断点续传的实现

断点续传就是在上传或下载过程开始时，判断已经传输过的文件是否上传输完毕，如果传输没有成功完成，则在上次中断处继续进行传输工作。实现该功能需要两个重要的操作，首先是判断文件的大小信息，其次是在传输过程Get和Put中指定上传的行为。

判断服务器上文件的大小使用函数Size(FileName)。在下载过程中，比较本地文件和远程文件的信息，然后在Get中指定AResume := True即可。而上传也一样，指定Put的AAppend := True就可以了。



在前面我们讲过，Indy的网络操作大部分是阻塞模式的，TIdFtp也不例外。这样在上述各个操作运行过程的时候用户界面被暂时冻结，必须要等待调用返回才能继续用户操作界面响应。所以在实际编程中，需要使用多线程的方式来保证户界面的响应。Windows系统可以使用CreateThread系统调用来创建线程，但是在使用的时候需要开发人员做很多额外的工作来保证线程的同步等问题。而Indy中也包含了实现多线程的控件TIdThreadComponent，相对比之下该控件实现多线程时更加方便，也更容易控制。我将在后续的文章里为大家介绍TIdThreadCOmponent的使用方法。

[YLCN2010]

看是看不出什么头绪来的，关键自己多实践，实践过程中发现也就那么回事。

[boringame]

有一个API函数 shellexcute 这个函数可以调用任何的程序 甚至可以识别http ftp等 你可以用它来调用播放flash的程序来打开SWF 例如调用macromedia的flash播放器来打开swf 下面是代码你看看Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long上面是声明API 函数shellexcute 直接复制就OKPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0Call ShellExecute(hwnd, "open", "notepad.exe", "", "", 1)Case 1Open "c:\abc.txt" For Output As #1Print #1, "测试用的文本"Close #1Call ShellExecute(hwnd, "open", "c:\\abc.txt", "", "", 1)Case 2Call ShellExecute(hwnd, "open", "http://www.google.com", "", "", 1)Case 3Call ShellExecute(hwnd, "open", "mailto:[e-mail]", "", "", 1)Case 4Call ShellExecute(hwnd, "print", "c:\\abc.txt", "", "", sw_show)End Select比如打开flash 可以这样写:call shellExecute(hwnd,"open","c:\\你要播放的flash.swf","",1)这样机会调用系统默认的flash播放器来打开swf了你去试试吧 不懂了 接着发帖！End Sub
参考答案来源于:wenwen.soso.com

下载一次，就能不断自动更新，欢迎使用《Csdn收音机》！

[z109876543210]

这函数太难用了,还是自己改了一下算了.............
函数是好用点了,不过整个代码还不稳定.出错时不能自动重启(这个好像难搞.控件没有忽略错误跳过并继续下面操作的功能??)

unit Unit1;

interface

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

type
  Thread1 = class(TThread)
  private
    FidFTP : TIdFtp;
  protected
    procedure Execute; override;
  public
    constructor Create(var idFTP : TIdFtp);
  end;

  Thread2 = class(TThread)
  private
    FidFTP : TIdFtp;
  protected
    procedure Execute; override;
  public
    constructor Create(var idFTP : TIdFtp);
    procedure FTP_DeleteAllFiles(var idFTP: TIdFtp; RemoteDir: string);
  end;

  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Memo1: TMemo;
    Button3: TButton;
    Edit4: TEdit;
    procedure IdFTP1Connected(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure IdFTP1Disconnected(Sender: TObject);
    procedure IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: String);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function GetPrevDir(dir:string):string;
  end;

var
  Form1: TForm1;
  T1: TThread;
  T2: TThread;

implementation

{$R *.dfm}

procedure TForm1.IdFTP1Connected(Sender: TObject);
begin
  Button1.Enabled := false;
  Timer1.Enabled := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not IdFTP1.Connected then
  begin
    Timer1.Enabled := false;
    IdFTP1.Tag := 0;
    IdFTP1.Host := Edit1.Text;
    IdFTP1.Username := Edit2.Text;
    IdFTP1.Password := Edit3.Text;
    IdFTP1.Port := strtoint(Edit4.Text);
    T1 := Thread1.Create(IdFTP1);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  IdFTP1.Abort;
  if IdFTP1.Connected then IdFTP1.Disconnect;
end;

procedure TForm1.IdFTP1Disconnected(Sender: TObject);
begin
  Button1.Enabled := true;
  if IdFTP1.Tag = 0 then Button1.Click;
end;

procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
  StatusBar1.Panels.Items[0].Text := AStatusText;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  T2 := Thread2.Create(IdFTP1);
end;


{ Thread1 }

constructor Thread1.Create(var idFTP: TIdFtp);
begin
  FidFTP := idFTP;
  FreeOnTerminate := True;
  inherited Create(false);
end;

procedure Thread1.Execute;
begin
  try
    FidFTP.Connect(true, -1);
  except
  end;
end;


{ Thread2 }

constructor Thread2.Create(var idFTP : TIdFtp);
begin
  FidFTP := idFTP;
  FreeOnTerminate := True;
  inherited Create(false);
end;

procedure Thread2.Execute;
begin
  try
    FTP_DeleteAllFiles(FidFTP, '/');
  except
  end;    
end;


{删除整个ftp目录，包括下面的文件, RemoteDir 要删除的目录}
procedure Thread2.FTP_DeleteAllFiles(var idFTP : TIdFtp; RemoteDir : string);
var
  i,DirCount : integer;
  Temp : string;
begin
  idFTP.ChangeDir(RemoteDir);
  Form1.Memo1.Lines.Add('ChangeDir:' + idFTP.RetrieveCurrentDir);
  idFTP.List(nil);
  DirCount := idFTP.DirectoryListing.Count;
  if DirCount = 0 then
    begin
      try
        idFTP.RemoveDir(idFTP.RetrieveCurrentDir);
        Form1.Memo1.Lines.Add('Success:' + idFTP.RetrieveCurrentDir);
      except
        Form1.Memo1.Lines.Add('Failed:' + idFTP.RetrieveCurrentDir);
      end;
      //上级
      Temp := Form1.GetPrevDir(idFTP.RetrieveCurrentDir);
      if Temp <> '/' then FTP_DeleteAllFiles(idFTP, Temp);
    end;

  for i := 0 to DirCount - 1 do
    begin
      if idFTP.DirectoryListing[i].ItemType = ditDirectory then
        begin
          //下级
          FTP_DeleteAllFiles(idFTP, idFTP.DirectoryListing[i].FileName);
        end;
      if idFTP.DirectoryListing[i].ItemType = ditFile then
        begin
          Temp := idFTP.DirectoryListing[i].FileName;
          try
            idFTP.Delete(Temp);
            Form1.Memo1.Lines.Add('Success:' + Temp);
          except
            Form1.Memo1.Lines.Add('Failed:' + Temp);
          end;
        end;
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  try
    IdFTP1.Abort;
  except
  end;
  try
    T1.Terminate;
  except
  end;
  try
    T2.Terminate;
  except
  end;
  IdFTP1.Tag := 1;
  if IdFTP1.Connected then
    IdFTP1.Disconnect
  else
    begin
      Button1.Enabled := true;
    end;
end;

procedure TForm1.Edit4Change(Sender: TObject);
var
  Temp : integer;
begin
  try
    Temp := strtoint(Edit4.Text);
    Edit4.Text := inttostr(Temp);
  except
    Edit4.Text := '21';
  end;
end;

function TForm1.GetPrevDir(dir: string): string;
var
  rstr : string;
  last : integer;
begin
  rstr := strrscan(PChar(dir), '/');
  last := length(rstr);
  Result := copy(dir, 1, length(dir) - length(rstr));
  if last = 1 then
    begin
      rstr := strrscan(PChar(Result), '/');
      Result := copy(Result, 1, length(Result) - length(rstr));
    end;
end;

end.

[单纯的光]

楼主，可以将这段代码翻译成C++的吗？我在C++ Builder中想使用IdFTP，可是不是很了解里面的函数和参数。

方便的话帮个忙，好么？谢谢了