用delphi写下载程序
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, StdCtrls, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdFTP, ComCtrls,md5;
type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
Button1: TButton;
Button2: TButton;
ProgressBar1: TProgressBar;
m_Log: TMemo;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{===========================================================
FTP 文件下载程序 2002-07-03 Hanfi
功能：下在指定目录下的所有文件（不包含子目录）
输入：Telecom.ini 文件的[FTP]段
输出：下载文件保存至当前目录下
设置Telecom.ini文件的[FTP]段
[ftp]
system=UNIX //设置目标服务器类型 UNIX,DOS
IP=127.0.0.1 //设置目标服务器的IP地址
USER=guest //设置下载用户名
PASSWORD=guest //设置下载用户密码（应将此部分加密）
SERVERPATH=/app/download //设置下载目录
===========================================================}
implementation
{$R *.dfm}
var
// 服务器信息变量
S_System,S_Host,S_Pass,S_User,S_Dir: String;
S_Files:TStrings;
procedure TForm1.FormCreate(Sender: TObject);
var
ServerIni: TIniFile;
begin
Top:=(Screen.Height-Height) div 2;
Left:=(screen.Width-width) div 2;
ServerIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'telecom.ini');
S_System:= ServerIni.ReadString('Ftp', 'SYSTEM', 'UNIX');
S_Host:= ServerIni.ReadString('Ftp', 'IP', 'IP');
S_User:=ServerIni.ReadString('Ftp', 'USER', 'USER');
S_Pass:=ServerIni.ReadString('Ftp', 'PASSWORD', 'Password');
S_Dir:=ServerIni.ReadString('Ftp', 'SERVERPATH', '/app/download');
ServerIni.Free;
with IdFTP1 do try
Button1.Enabled := False;
User := S_User;
Password := S_Pass;
Host := S_Host;
finally
Button1.Enabled := true;
end;
end;
function GetNameFromDirLine(Line: String; Var IsDirectory: Boolean): String;
Var
//在字符串中取得文件名
i: Integer;
DosListing: Boolean;
begin
IsDirectory := Line[1] = 'd';
DosListing := false;
for i := 0 to 7 do begin
if (i = 2) and not IsDirectory then begin
IsDirectory := Copy(Line, 1, Pos(' ', Line) - 1) = '<DIR>';
if not IsDirectory then
DosListing := Line[1] in ['0'..'9']
else DosListing := true;
end;
Delete(Line, 1, Pos(' ', Line));
While Line[1] = ' ' do Delete(Line, 1, 1);
if DosListing and (i = 2) then break;
end;
Result := Line;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
name,Line: String;
i:integer;
IsDirectory: Boolean;
i_Start:integer;
begin
Button1.Enabled:=False;
Button2.Enabled:=False;
m_Log.Lines.Clear;
if not IdFTP1.Connected then
begin
m_Log.Lines.Add('## 开始下载任务');
m_Log.Lines.Add('=========================================');
try
IdFTP1.Connect;
IdFTP1.ChangeDir(S_Dir);
IdFTP1.TransferType := ftASCII;
S_Files:=TStringList.Create;
IdFTP1.List(S_Files);
m_Log.Lines.Add('');
m_Log.Lines.Add('## '+datetimetostr(Now)+' 连接服务器'+S_Host+'成功!');
m_Log.Lines.Add('');
except
Button1.Enabled:=True;
Button2.Enabled:=True;
Button2.SetFocus;
m_Log.Lines.Add('');
m_Log.Lines.Add('## '+datetimetostr(Now)+' 连接服务器失败!');
m_Log.Lines.Add('');
m_Log.Lines.Add('=========================================');
m_Log.Lines.Add('## 数据下载失败');
m_Log.Lines.SaveToFile('log_'+datetimetostr(Date())+'.log');
m_Log.Lines.Add('## 数据下载完毕,生成日志文件：log_'+datetimetostr(Date())+'.log');
exit;
end;
end;
ProgressBar1.Position:=0;
ProgressBar1.Max:=S_Files.Count;
ProgressBar1.Min:=0;
ProgressBar1.Step:=1;
if S_System='UNIX' then
i_Start:=1
else
i_Start:=0;
for i:=i_Start to S_Files.Count-1 do
begin
Line := S_Files[i];
Name:=GetNameFromDirLine(Line, IsDirectory);
if not IsDirectory then
begin
try
IdFTP1.TransferType := ftBinary;
IdFTP1.Get(Name, Name, true);
ProgressBar1.StepIt;
m_Log.Lines.Add('文件：'+Name+' 下载完成;');
except
m_Log.Lines.Add('下载：'+Name+' 失败，无法覆盖本地 '+Name+' 文件;');
end;
end;
end;
try
ProgressBar1.Position:=ProgressBar1.Max;
Button1.Enabled:=True;
Button2.Enabled:=True;
Button2.SetFocus;
m_Log.Lines.Add('=========================================');
IdFTP1.Disconnect ;
m_Log.Lines.Add('## '+datetimetostr(Now)+' 断开服务器连接！');
m_Log.Lines.SaveToFile('log_'+datetimetostr(Date())+'.log');
m_Log.Lines.Add('## 数据下载完毕,生成日志文件：log_'+datetimetostr(Date())+'.log');
except
m_Log.Lines.SaveToFile('Err.log');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
S_Files.Free;
end;
end.[/code]
附录： telecom.ini
[ftp]
SYSTEM=UNIX
IP=127.0.0.1
USER=guest
PASSWORD=guest
SERVERPATH=/app/download
使用 D6 中的 TIdFTP 控件，DEMO中有完整的例子