一个简单FTP程序的主要源代码

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, Menus, FileCtrl, ExtCtrls, ComCtrls,ShellApi,IniFiles;
const
WM_BARICON=WM_USER+200;
type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
GroupBox1: TGroupBox;
conn_status: TLabel;
Timer1: TTimer;
SaveDialog1: TSaveDialog;
Label7: TLabel;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
UserIDEdit: TEdit;
PasswordEdit: TEdit;
FtpServerEdit: TEdit;
conn_btn: TButton;
Button2: TButton;
portedit: TEdit;
Label9: TLabel;
GroupBox2: TGroupBox;
exec_btn: TButton;
sjjg: TEdit;
Label10: TLabel;
Label11: TLabel;
UpDown1: TUpDown;
Label4: TLabel;
dirname: TEdit;
Label5: TLabel;
LocalPath: TEdit;
Button5: TButton;
N3: TMenuItem;
N7: TMenuItem;
downloadtitle: TLabel;
Label6: TLabel;
N8: TMenuItem;
Label8: TLabel;
Label12: TLabel;
file1: TEdit;
file2: TEdit;
Label13: TLabel;
jymin: TEdit;
UpDown2: TUpDown;
Label14: TLabel;
Label15: TLabel;
jyto: TEdit;
Button1: TButton;
Label16: TLabel;
jyhname1: TEdit;
Label17: TLabel;
jyhname2: TEdit;
N10: TMenuItem;
WINRAR1: TMenuItem;
downloadtitle2: TLabel;
procedure N2Click(Sender: TObject);
procedure conn_btnClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure exec_btnClick(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
procedure FtpServerEditKeyPress(Sender: TObject; var Key: Char);
procedure porteditKeyPress(Sender: TObject; var Key: Char);
procedure UserIDEditKeyPress(Sender: TObject; var Key: Char);
procedure PasswordEditKeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure FTP1Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure WINRAR1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure IdFTP1Disconnected(Sender: TObject);
procedure N5Click(Sender: TObject);

private
procedure copyfile(Const sourcefilename, targetfilename: String);
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
procedure WMBarIcon(var Message:TMessage);message WM_BARICON;
procedure down_file(); //下载不是0时的文件
procedure Down_File_0s(); //下载是0时的文件
procedure Jy_File(); //解压不是0时的文件
procedure Jy_File_0s(); //解压是0时的文件
{ Private declarations }
public
exec_switch,conn_switch,quit_conn_switch:integer;//程序开执行的开关，1执行0不执行
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses unit2,unit3,unit4,parameter_unit;
{$R *.dfm}

procedure TForm1.WMSysCommand
(var Message:TMessage);
var
lpData:PNotifyIconData;
begin
if Message.WParam = SC_ICON then
begin
//如果用户最小化窗口则将窗口
//隐藏并在任务栏上添加图标
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;
//SizeOf(PNotifyIconDataA);
lpData.Wnd := Form1.Handle;
lpData.hIcon := Form1.Icon.Handle;
lpData.uCallbackMessage := WM_BARICON;
lpData.uID :=0;
lpData.szTip := 'Samples';
lpData.uFlags := NIF_ICON
or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,lpData);
dispose(lpData);
Form1.Visible := False;
end
else
begin
//如果是其它的SystemCommand
//消息则调用系统缺省处理函数处理之。
DefWindowProc(Form1.Handle,Message.
Msg,Message.WParam,Message.LParam);
end;
//
end;

procedure TForm1.WMBarIcon(var Message:TMessage);
var
lpData:PNotifyIconData;
begin
if (Message.LParam = WM_LBUTTONDOWN) then
begin
//如果用户点击任务栏图标则将图标删除并回复窗口。
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);
lpData.Wnd := Form1.Handle;
lpData.hIcon := Form1.Icon.Handle;
lpData.uCallbackMessage := WM_BARICON;
lpData.uID :=0;
lpData.szTip := 'Samples';
lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_DELETE,lpData);
dispose(lpData);
Form1.Visible := True;
end;
end;
//以上是最小化到任务栏，只显图标的二个东西
procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.conn_btnClick(Sender: TObject);
var
myinifile:Tinifile;
inifilename:string;
begin

//把设置保存到INI文件
inifilename:=ExtractFilePath(Paramstr(0))+'config.ini';
myinifile:=Tinifile.Create(inifilename);
myinifile.WriteString('ftp_conn','host',ftpserveredit.Text);
myinifile.WriteString('ftp_conn','port',portedit.Text);
myinifile.WriteString('ftp_conn','username',useridedit.Text);
myinifile.WriteString('ftp_conn','password',passwordedit.Text);
//加一个如果连接超时
if idftp1.Connected then
begin
showmessage('已连接上！');
end
else
begin
conn_status.Caption:='正在连接...';
application.ProcessMessages;
with IdFTP1 do
try
if UserIDEdit.Text<>'' then
begin
Username := UserIDEdit.Text;
end;
if PasswordEdit.Text<>'' then
begin
Password := PasswordEdit.Text;
end;
if portedit.Text<>'' then Port:=strtoint(portedit.text);
Host:= FtpServerEdit.Text;
Connect;
conn_switch:=1; //连接上为1
conn_status.Caption:='已连接FTP服务器：'+FtpServerEdit.Text;
finally
conn_status.Caption:='连接失败！';
end;

end;

end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if conn_switch=1 then
begin
conn_status.Caption:='连接已断开';
quit_conn_switch:=1;
conn_switch:=0;
idftp1.Quit;
end;
end;

procedure TForm1.exec_btnClick(Sender: TObject);
var
myinifile:Tinifile;
inifilename:string;
begin
if idftp1.Connected then
begin
//把设置保存到INI文件
inifilename:=ExtractFilePath(Paramstr(0))+'config.ini';
myinifile:=Tinifile.Create(inifilename);
myinifile.WriteString('canshu','sjjg',sjjg.Text);
myinifile.WriteString('canshu','jysj',jymin.Text);
myinifile.WriteString('canshu','jyto',jyto.Text);
myinifile.WriteString('canshu','mulu_server',dirname.Text);
myinifile.WriteString('canshu','localpath',localpath.Text);
myinifile.WriteString('canshu','file1qz',file1.Text);
myinifile.WriteString('canshu','file2qz',file2.Text);
myinifile.WriteString('canshu','jyhfile1_name',jyhname1.Text);
myinifile.WriteString('canshu','jyhfile2_name',jyhname2.Text);
myinifile.Free;
IdFTP1.ChangeDir(dirname.Text); //转目录到dirname中定义的。
if exec_switch=0 then
begin
exec_switch:=1;
//showmessage(inttostr(exec_switch));//打开执行开关
exec_btn.Caption:='暂停执行';
end
else
begin
exec_switch:=0;
// showmessage(inttostr(exec_switch));//打开执行开关
exec_btn.Caption:='应用设置并执行';
end;
end
else
begin
showmessage('还没有连接FTP服务器！');
end;

end;

procedure TForm1.Button5Click(Sender: TObject);
var
s:string;
begin
if SelectDirectory('请选择一个目录', '', s) then
begin
if s[Length(s)] <> '/' then
s := s + '/';
localpath.Text:=s;
end;

//if savedialog1.Execute then
// LocalPath.Text:=savedialog1.FileName;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
if conn_switch=1 then
begin
conn_status.Caption:='连接已断开';
quit_conn_switch:=1;
showmessage(inttostr(quit_conn_switch));
idftp1.Quit;
end;
end;

procedure TForm1.down_file(); //此过程用过下载不是0时的文件
var
muluname_server,filename_server1,filename_server2,filename1,filename2:string;
begin
try
muluname_server:=FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now);
filename_server1:=file1.text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1)+'.Z';
filename_server2:=file2.Text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1)+'.Z';

downloadtitle.Caption:='正在下载文件：'+muluname_server+'/'+filename_server1;
downloadtitle2.Caption:='正在下载文件：'+muluname_server+'/'+filename_server2;
application.ProcessMessages;
//showmessage(filename_server);
if not DirectoryExists(localpath.Text+muluname_server) then
begin
CreateDirectory(PChar(localpath.Text+muluname_server),nil);
end;

IdFTP1.ChangeDir(muluname_server); //首先进入到要拷贝的目录
try
IdFTP1.Get(filename_server1,LocalPath.Text+muluname_server+'/'+filename_server1,true);
IdFTP1.Get(filename_server2,LocalPath.Text+muluname_server+'/'+filename_server2,true);
finally
end;
IDfTP1.ChangeDirUp; //回到上一级目录

except
end;
end;

procedure TForm1.Down_File_0s();
var
muluname_server,filename_server1,filename_server2,filename1,filename2:string;
begin
try
muluname_server:=FormatDateTime('yyyy',now()-1)+FormatDateTime('mm',now()-1)+FormatDateTime('dd',now()-1);
filename_server1:=file1.text+FormatDateTime('yyyy',now()-1)+FormatDateTime('mm',now()-1)+FormatDateTime('dd',now()-1)+'23'+'.Z';
filename_server2:=file2.Text+FormatDateTime('yyyy',now()-1)+FormatDateTime('mm',now()-1)+FormatDateTime('dd',now()-1)+'23'+'.Z';

downloadtitle.Caption:='正在下载文件：'+muluname_server+'/'+filename_server1;
downloadtitle2.Caption:='正在下载文件：'+muluname_server+'/'+filename_server2;
application.ProcessMessages;
//showmessage(filename_server);
if not DirectoryExists(localpath.Text+muluname_server) then
begin
CreateDirectory(PChar(localpath.Text+muluname_server),nil);
end;

IdFTP1.ChangeDir(muluname_server); //首先进入到要拷贝的目录
try
IdFTP1.Get(filename_server1,LocalPath.Text+muluname_server+'/'+filename_server1,true);
IdFTP1.Get(filename_server2,LocalPath.Text+muluname_server+'/'+filename_server2,true);
finally
end;
IDfTP1.ChangeDirUp; //回到上一级目录
except
end;
end;

procedure TForm1.Jy_File(); //解压不是0时时的文件
var
myinifile:Tinifile;
inifilename,winrarpath:string;
muluname_server,filename_server1,filename_server2,filename1,filename2:string;
//解压用的变量
s,s1: String;
StartupInfo,StartupInfo1:TStartUpInfo;
ProcessInfo,ProcessInfo1:TProcessInformation;
begin
try
inifilename:=ExtractFilePath(Paramstr(0))+'config.ini';
myinifile:=Tinifile.Create(inifilename);
//WINRAR路径参数设置
winrarpath:=myinifile.ReadString('parameter','winrar_path','');
myinifile.Free;

muluname_server:=FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now);
filename_server1:=file1.text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1)+'.Z';
filename_server2:=file2.Text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1)+'.Z';
filename1:=file1.text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1);//解压后的文件一名
filename2:=file2.Text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1);//解压后的文件二名 注意：当前小时下载前一小时的文件。

downloadtitle.Caption:='正在解压文件：'+muluname_server+'/'+filename_server1;
downloadtitle2.Caption:='正在解压文件：'+muluname_server+'/'+filename_server2;
application.ProcessMessages;
//开始解压
//加压缩s:= 'D:/Program Files/WINRAR/winrar a -ep e:/p/B.RAR e:/p/*.txt';
s:= winrarpath+' x '+LocalPath.Text+muluname_server+'/'+filename_server1+' '+LocalPath.Text+muluname_server;
//Log.Lines.Append(s);
FillChar(ProcessInfo, sizeof(TProcessInformation), 0);
FillChar(StartupInfo, sizeof(TStartupInfo), 0);
StartupInfo.cb := SizeOf(TStartupInfo);
if CreateProcess(nil,PChar(s),nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,StartUpInfo,ProcessInfo)
then
begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
CloseHandle(ProcessInfo.hProcess);
//ShowMessage('程序完毕!');
end
else
begin
MessageBox(0,'调用WinRAR失败，请检查WinRAR程序！','提示',64);
Exit;
end;
//解压完毕
s1:= winrarpath+' x '+LocalPath.Text+muluname_server+'/'+filename_server2+' '+LocalPath.Text+muluname_server;
FillChar(ProcessInfo1, sizeof(TProcessInformation), 0);
FillChar(StartupInfo1, sizeof(TStartupInfo), 0);
StartupInfo1.cb := SizeOf(TStartupInfo);
if CreateProcess(nil,PChar(s1),nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,StartUpInfo1,ProcessInfo1)
then
begin
WaitForSingleObject(ProcessInfo1.hProcess, INFINITE);
CloseHandle(ProcessInfo1.hProcess);
//ShowMessage('程序完毕!');
end
else
begin
MessageBox(0,'调用WinRAR失败，请检查WinRAR程序！','提示',64);
Exit;
end;
//解压完毕,把解压后的文件COPY到SQL要读取的文件夹
copyfile(localpath.Text+muluname_server+'/'+filename1,jyto.Text+jyhname1.Text+'.txt');
copyfile(localpath.Text+muluname_server+'/'+filename2,jyto.Text+jyhname2.Text+'.txt');
except
end;
end;

procedure TForm1.Jy_File_0s(); //解压是0时时的文件
var
myinifile:Tinifile;
inifilename,winrarpath:string;
muluname_server,filename_server1,filename_server2,filename1,filename2:string;
//解压用的变量
s,s1: String;
StartupInfo,StartupInfo1:TStartUpInfo;
ProcessInfo,ProcessInfo1:TProcessInformation;
begin
try
inifilename:=ExtractFilePath(Paramstr(0))+'config.ini';
myinifile:=Tinifile.Create(inifilename);
//WINRAR路径参数设置
winrarpath:=myinifile.ReadString('parameter','winrar_path','');
myinifile.Free;

muluname_server:=FormatDateTime('yyyy',now()-1)+FormatDateTime('mm',now()-1)+FormatDateTime('dd',now()-1);
filename_server1:=file1.text+FormatDateTime('yyyy',now()-1)+FormatDateTime('mm',now()-1)+FormatDateTime('dd',now()-1)+'23'+'.Z';
filename_server2:=file2.Text+FormatDateTime('yyyy',now()-1)+FormatDateTime('mm',now()-1)+FormatDateTime('dd',now()-1)+'23'+'.Z';
filename1:=file1.text+FormatDateTime('yyyy',now-1)+FormatDateTime('mm',now-1)+FormatDateTime('dd',now-1)+'23';//解压后的文件一名
filename2:=file2.Text+FormatDateTime('yyyy',now-1)+FormatDateTime('mm',now-1)+FormatDateTime('dd',now-1)+'23';//解压后的文件二名 注意：当前小时下载前一小时的文件。

downloadtitle.Caption:='正在解压文件：'+muluname_server+'/'+filename_server1;
downloadtitle2.Caption:='正在解压文件：'+muluname_server+'/'+filename_server2;
application.ProcessMessages;
//开始解压
//加压缩s:= 'D:/Program Files/WINRAR/winrar a -ep e:/p/B.RAR e:/p/*.txt';
s:= winrarpath+' x '+LocalPath.Text+muluname_server+'/'+filename_server1+' '+LocalPath.Text+muluname_server;
//Log.Lines.Append(s);
FillChar(ProcessInfo, sizeof(TProcessInformation), 0);
FillChar(StartupInfo, sizeof(TStartupInfo), 0);
StartupInfo.cb := SizeOf(TStartupInfo);
if CreateProcess(nil,PChar(s),nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,StartUpInfo,ProcessInfo)
then
begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
CloseHandle(ProcessInfo.hProcess);
//ShowMessage('程序完毕!');
end
else
begin
MessageBox(0,'调用WinRAR失败，请检查WinRAR程序！','提示',64);
Exit;
end;
//解压完毕
s1:= winrarpath+' x '+LocalPath.Text+muluname_server+'/'+filename_server2+' '+LocalPath.Text+muluname_server;
FillChar(ProcessInfo1, sizeof(TProcessInformation), 0);
FillChar(StartupInfo1, sizeof(TStartupInfo), 0);
StartupInfo1.cb := SizeOf(TStartupInfo);
if CreateProcess(nil,PChar(s1),nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,StartUpInfo1,ProcessInfo1)
then
begin
WaitForSingleObject(ProcessInfo1.hProcess, INFINITE);
CloseHandle(ProcessInfo1.hProcess);
//ShowMessage('程序完毕!');
end
else
begin
MessageBox(0,'调用WinRAR失败，请检查WinRAR程序！','提示',64);
Exit;
end;
//解压完毕,把解压后的文件COPY到SQL要读取的文件夹
copyfile(localpath.Text+muluname_server+'/'+filename1,jyto.Text+jyhname1.Text+'.txt');
copyfile(localpath.Text+muluname_server+'/'+filename2,jyto.Text+jyhname2.Text+'.txt');
except
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
muluname_server,filename_server1,filename_server2,filename1,filename2:string;
//解压用的变量
s,s1: String;
StartupInfo,StartupInfo1:TStartUpInfo;
ProcessInfo,ProcessInfo1:TProcessInformation;
begin
if exec_switch=1 then //如果执行开关没有打开就不能执行
begin
//定义目录名，文件一名，文件二名。
muluname_server:=FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now);
filename_server1:=file1.text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1)+'.Z';
filename_server2:=file2.Text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1)+'.Z';
filename1:=file1.text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1);//解压后的文件一名
filename2:=file2.Text+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+FormatDateTime('dd',now)+inttostr(strtoint(FormatDateTime('hh',now))-1);//解压后的文件二名 注意：当前小时下载前一小时的文件。
//如果连接断开就连接上
if not idftp1.Connected then
begin
idftp1.Connect;
idftp1.Noop;
conn_status.Caption:='已连接FTP服务器：'+FTPServerEdit.Text;
end;
//下载文件

if idftp1.Connected then
begin
if strtoint(copy(datetimetostr(now()),15,2))=strtoint(sjjg.Text) then
begin
if strtoint(FormatDateTime('hh',now))=0 then
begin
Down_File_0s(); //下载0时时的文件
end
else
begin
Down_File(); //下载不是0时时的文件过程
end;
end;
end;
//解压
if strtoint(copy(datetimetostr(now()),15,2))=strtoint(jymin.Text) then
begin
if strtoint(formatDateTime('hh',now))=0 then
begin
Jy_File_0s(); //解压是0时时的文件
end
else
begin
Jy_File(); //解压不是0时时的文件
end;
end;
downloadtitle.Caption:='没有文件在下载或解压';
downloadtitle2.Caption:='没有文件在下载或解压';
end;
end;

//copy file's procedure
Procedure TForm1.copyfile( Const sourcefilename, targetfilename: String );
Var
S, T: TFileStream;
Begin
S := TFileStream.Create( sourcefilename, fmOpenRead );
try
T := TFileStream.Create( targetfilename,fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size ) ;
finally
T.Free;
end;
finally
S.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
myinifile:Tinifile;
inifilename:string;
hh,mm,ss,ms:Word;

begin
form1.Icon.LoadFromFile('img/logo.ico'); //加载系统图标
inifilename:=ExtractFilePath(Paramstr(0))+'config.ini';
myinifile:=Tinifile.Create(inifilename);
//连接FTP服务器参数设置
ftpserveredit.Text:=myinifile.ReadString('ftp_conn','host','');
portedit.Text:=myinifile.ReadString('ftp_conn','port','');
UserIDEdit.Text:=myinifile.ReadString('ftp_conn','username','');
PasswordEdit.Text:=myinifile.ReadString('ftp_conn','password','');
//参数设置
updown1.Position:=strtoint(myinifile.ReadString('canshu','sjjg',''));
updown2.Position:=strtoint(myinifile.ReadString('canshu','jysj',''));
jyto.Text:=myinifile.ReadString('canshu','jyto','');
localpath.Text:=myinifile.ReadString('canshu','localpath','');
dirname.Text:=myinifile.ReadString('canshu','mulu_server','');
file1.Text:=myinifile.ReadString('canshu','file1qz','');
file2.Text:=myinifile.ReadString('canshu','file2qz','');
jyhname1.Text:=myinifile.ReadString('canshu','jyhfile1_name','');
jyhname2.Text:=myinifile.ReadString('canshu','jyhfile2_name','');

myinifile.Free;

timer1.Interval:=60000;//60秒刷新一次
exec_switch:=0; //初始状态执行开关不打开
downloadtitle.Caption:='';
downloadtitle2.Caption:='';
end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
sjjg.Text:=inttostr(self.updown1.Position);
end;

procedure TForm1.FtpServerEditKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
portedit.SetFocus;
end;

procedure TForm1.porteditKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
useridedit.SetFocus;
end;

procedure TForm1.UserIDEditKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
passwordedit.SetFocus;
end;

procedure TForm1.PasswordEditKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
conn_btn.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
if SelectDirectory('请选择一个目录', '', s) then
begin
if s[Length(s)] <> '/' then
s := s + '/';
jyto.Text:=s;
end;
end;

procedure TForm1.FTP1Click(Sender: TObject);
begin
if not idftp1.Connected then
begin
showmessage('还没有连接FTP服务器');
end
else
form2.ShowModal;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
about.ShowModal;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
sg_down.ShowModal;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
parameter.ShowModal;
end;

procedure TForm1.WINRAR1Click(Sender: TObject);
var
spath:string;
begin
if(MessageBox(handle,'确定要安装winrar软件吗?','提 示',mb_IconInformation+mb_YesNo)=mryes) then
begin
sPath:=ExtractFilePath(application.ExeName);
ShellExecute(Handle, 'open', PChar(''+sPath+'winrar342.exe'), nil, nil, SW_SHOW);
end;
end;

procedure TForm1.N3Click(Sender: TObject);
var
myinifile:Tinifile;
inifilename:string;
begin

//把设置保存到INI文件
inifilename:=ExtractFilePath(Paramstr(0))+'config.ini';
myinifile:=Tinifile.Create(inifilename);
myinifile.WriteString('ftp_conn','host',ftpserveredit.Text);
myinifile.WriteString('ftp_conn','port',portedit.Text);
myinifile.WriteString('ftp_conn','username',useridedit.Text);
myinifile.WriteString('ftp_conn','password',passwordedit.Text);
//加一个如果连接超时
if idftp1.Connected then
begin
showmessage('已连接上！');
end
else
begin
conn_status.Caption:='正在连接...';
application.ProcessMessages;
with IdFTP1 do
try
if UserIDEdit.Text<>'' then
begin
Username := UserIDEdit.Text;
end;
if PasswordEdit.Text<>'' then
begin
Password := PasswordEdit.Text;
end;
Host:= FtpServerEdit.Text;
Port:=strtoint(portedit.text);
Connect;
conn_switch:=1; //连接上为1
conn_status.Caption:='已连接FTP服务器：'+FtpServerEdit.Text;
finally
//showmessage('请检查主机地址，端口号，用户名，密码是否正确！');
end;

end;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
try
if Application.MessageBox('确定退出本软件吗？','询问',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
begin
CanClose:=True;
end
else
CanClose:=False;
except
Exit;
end;
end;

procedure TForm1.IdFTP1Disconnected(Sender: TObject);
begin

//if (conn_switch=1) then
// begin
//if (quit_conn_switch<>1) then
//begin
idftp1.Connect;
conn_status.Caption:='已连接FTP服务器：'+ftpserveredit.Text;
//end;
//end;
end;

procedure TForm1.N5Click(Sender: TObject);
var
sPath:string;
begin
sPath:=ExtractFilePath(application.ExeName);
ShellExecute(Handle, 'open', PChar(''+sPath+'ftp_help.chm'), nil, nil, SW_SHOW);
end;

end.