1   //获取FTP信息
 2   with qTmp do
 3   begin
 4     Close;
 5     SQL.Clear;
 6     SQL.Text := 'SELECT * FROM SYS_FTP_INFO WHERE NAME = ''Test'' ';
 7     Open;
 8     SYS_FTPUSER := FieldByName('USERNAME').AsString;
 9     SYS_FTPPASSWORD := FieldByName('PASSWORD').AsString;
10     SYS_FTPSERVER := FieldByName('IP').AsString;
11     SYS_FTPDIR := FieldByName('PATH').AsString;
12   end;

 1   try
 2     MsgDsp('开始获取文件，请稍等！');
 3     with idFTP do
 4     begin
 5       if Connected then Disconnect;
 6       Username := SYS_FTPUSER;
 7       Password := SYS_FTPPASSWORD;
 8       Host := SYS_FTPSERVER;
 9       Port := 21;
10       Connect;
11       ChangeDir(SYS_FTPDIR);
12       Get(FILENAME, 'C:\tmp\' + FILENAME, True);
13       if Connected then Disconnect;
14     end;
15     MsgDsp('Recipe文件获取成功！')
16   except
17     on E: Exception do
18     begin
19       MsgDsp('文件获取失败，请联系IT处理！错误信息：' + E.Message);
20       Abort;
21     end;
22   end;

 1   try
 2     MsgDsp('开始上传文件，请稍等！');
 3     with idFTP do
 4     begin
 5       if Connected then Disconnect;
 6       Username := SYS_CLIENTFTPUSER;
 7       Password := SYS_CLIENTFTPPASSWORD;
 8       Host := SYS_CLIENTTPSERVER;
 9       Port := SYS_PORT;
10       Connect;
11       ChangeDir(SYS_CLIENTFTPDIR);
12       Put('C:\tmp\' + FILENAME, ExtractFileName(FILENAME));13       if Connected then Disconnect;
14     end;
15     MsgDsp('文件上传成功！');
16   except
17     on E: Exception do
18     begin
19       MsgDsp('文件上传失败，请联系IT确认！错误信息：' + E.Message);
20       Abort;
21     end;
22   end;