5、利用控件TVCLZip和TIdFTP压缩文件并上传到FTP的线程单元pas 改进版

  1 {*******************************************************************************
  2   Copyright (C), 2014-2020, aicaipiao
  3   File name: UFtpContentThd.pas
  4   Author: lipingchen
  5   Version:
  6   Date:  20140929
  7   Description:
  8   Others:
  9   Function List:
 10   1.Date:2015.03.31
 11     Author: liping.chen
 12     Modification:  解压缩，FTP遍历创建新目录，上传
 13 *******************************************************************************}
 14 unit UFtpContentThd;
 15 
 16 interface
 17 
 18 uses
 19   Classes,Forms,Dialogs,SysUtils,Windows,VCLZip,VCLUnZip,IdFTP,IdFTPList,fClientDataModule,
 20   IdFTPListParseWindowsNT,IdAllFTPListParsers,DateUtils,SyncObjs;
 21 
 22 type
 23   TLogMsgProc = procedure (AMsg: string; const blnIsErrorMsg: boolean = False; const BoolSaveToFile: Boolean = True);
 24 
 25   TFtpContentThd = class(TThread)
 26   private
 27     FStart_Date,FEnd_Date,FNextDate :TDateTime;// 获取起始时间\获取结束时间\增加分钟 计算出结束时间
 28 
 29     FCount :Integer;
 30     FContent: wideString;
 31   protected
 32     ziper:TVCLZip;
 33     IdFTP: TIdFTP;
 34     FLogMsg: TLogMsgProc;
 35     Filename:string;  //生成压缩文件名
 36     FMessage: string;  //消息
 37     ZipUpLoadDir,ZipUpLoadDirTemp:string;  //上传FTP的路径
 38     FDeptID:string;  //出票点ID
 39     pub_Critical: TCriticalSection;          //临界区
 40     //--------------
 41     procedure DoPostContent(var HasData: boolean);
 42     //定区间
 43     function Get_Bak_Date : Boolean;   //获取时间段
 44     //取，存，压缩
 45     Function Get_ContentByDate(var HasData: boolean) : Boolean;  // 根据推送的时间段，从票据打印表中取出数据获取，存为txt
 46     //上传
 47     Function UpLoad_Content_Zip :Boolean;                        //上传Zip包
 48     //更新
 49     Function Update_Content_Bak_Date : Boolean;
 50   public
 51     constructor Create(LogMsgProc: TLogMsgProc);
 52     procedure LogInfo(AMsg: string; const blnIsErrorMsg: boolean = False; const BoolSaveToFile: Boolean = True);
 53     destructor  Destroy;override;
 54     function CreatFtpDir(UpLoadDir:string): Boolean;  //遍历当前FTP文件夹， 创建新目录或更改路径
 55     function  DeleteDirectory(NowPath: string): Boolean; // 循环删除整个目录下的所有文件包括文件夹
 56     function Zip(ZipMode,packSize:Integer;ZipFile,UnzipDir:string):Boolean;
 57   protected
 58     procedure Execute; override;
 59   end;
 60 
 61 var
 62    FtpContentThd:TFtpContentThd;
 63 implementation
 64 uses
 65   UPubTypeVarCon,UFrmMain,UPubFuncProc;
 66 
 67 { TFtpContentThd }
 68 
 69 constructor TFtpContentThd.Create(LogMsgProc: TLogMsgProc);
 70 var
 71   sFilePath:string;
 72 begin
 73   sFilePath:=ExtractFilePath(Application.ExeName);
 74   if sFilePath[Length(sFilePath)] <> ‘\‘ then sFilePath := sFilePath + ‘\‘;
 75   pub_UnZipFileSaveDir:=sFilePath+‘PostContentRunLog\ConTxt‘;
 76   pub_ZipFileSaveDir:=sFilePath+ ‘PostContentRunLog\ConZip‘;
 77 
 78   if not DirectoryExists(pub_UnZipFileSaveDir) then  //未压缩的文件保存路径
 79     CreateDir(pub_UnZipFileSaveDir);
 80   if not DirectoryExists(pub_ZipFileSaveDir) then  //压缩包保存路径
 81     CreateDir(pub_ZipFileSaveDir);
 82   DeleteDirectory(pub_UnZipFileSaveDir); //每次打开先删除这两个目录下的所有文件
 83   DeleteDirectory(pub_ZipFileSaveDir);
 84   //此处要删除 上一次的txt和zip； 若改进为断点续传，可变更逻辑
 85 
 86   try
 87     inherited Create(True);
 88     FreeOnTerminate := True;
 89     FLogMsg:=LogMsgProc;
 90     //FDeptID:=‘6‘;
 91     pub_Critical := TCriticalSection.create;
 92     ziper:=TVCLZip.Create(nil);
 93     IdFTP:=TIdFTP.Create;
 94     LogInfo(‘创建FTP上传线程成功!‘,true,true);
 95 
 96     Resume;
 97   except
 98     on e:exception do
 99     begin
100       FMessage:=‘创建FTP上传线程出错!‘#13+e.Message;
101       LogInfo(FMessage,true,true);
102     end;
103   end;
104 end;
105 
106 procedure TFtpContentThd.Execute;
107 var
108   HasData: boolean;
109 begin
110   while not Terminated do
111   begin
112 
113     DoPostContent(HasData);
114 
115     if HasData then
116       Sleep(1000)
117     else
118       Sleep(pub_FtpExecInterval * 1000);  //等待中
119   end;
120 end;
121     
122 {Zip用法：Zip(压缩模式，压缩包大小，压缩或解压文件，解压或压缩目录，TVCLZip控件)
123  ZipMode为0：压缩；为1：解压缩　PackSize为0则不分包；否则为分包的大小  }
124 function TFtpContentThd.Zip(ZipMode, packSize: Integer; ZipFile,
125   UnzipDir: string): Boolean;
126 begin
127   if copy(UnzipDir,length(UnzipDir),1)=‘\‘then
128       UnzipDir:=copy(UnzipDir,1,length(UnzipDir)-1);//去除目录后的‘\‘
129   try
130     ziper.DoAll:=False;          //加此设置将对分包文件解压缩无效
131     ziper.OverwriteMode:=Always; //总是覆盖模式
132 
133     if PackSize<>0then           //0则压缩成一个文件，否则压成多文件
134     begin
135       ziper.MultiZipInfo.MultiMode:=mmBlocks;         //设置分包模式
136       ziper.MultiZipInfo.SaveZipInfoOnFirstDisk:=True;//打包信息保存在第一文件中
137       ziper.MultiZipInfo.FirstBlockSize:=PackSize;    //分包首文件大小
138       ziper.MultiZipInfo.BlockSize:=PackSize;         //其他分包文件大小
139     end;
140     ziper.FilesList.Clear;
141     ziper.ZipName:=ZipFile; //获取压缩文件名
142     if ZipMode=0then        //压缩
143     begin
144       ziper.FilesList.Add(UnzipDir+‘\*.txt‘);  //添加压缩文件列表   设定为|*.txt文档，若需压缩全部可\*.*
145       //ziper.
146       Application.ProcessMessages;
147       ziper.Zip;
148     end else
149     begin
150       ziper.DestDir:=UnzipDir;  //解压缩的目标目录
151       ziper.UnZip;              //解压缩
152     end;
153     Result:=True;
154   except
155    on ex:exception do
156    begin
157      Result:=False;
158      FMessage := ‘文件解压缩异常‘#13 + ex.Message;
159      LogInfo(FMessage,True,True);
160    end;
161   end;
162 end;
163 
164 {遍历当前FTP文件夹， 创建新目录或更改路径}
165 function TFtpContentThd.CreatFtpDir(UpLoadDir: string): Boolean;
166 var
167   CreatDirList: TStringList;
168   i,j,flag:Integer;
169 begin
170   CreatDirList:=TStringList.Create;
171   CreatDirList.Delimiter :=‘\‘;
172   CreatDirList.DelimitedText :=UpLoadDir;
173   for i := 0 to CreatDirList.Count - 1 do
174   begin
175     if CreatDirList[i]<>‘‘ then
176     begin
177       flag:=0;
178       IdFTP.List;
179       //ShowMessage(IntToStr(IdFTP.DirectoryListing.Count));  //默认uses idftplistParse异常；要添加IdFTPListParseWindowsNT,IdAllFTPListParsers单元
180       for j := 0  to IdFTP.DirectoryListing.Count-1 do        //indy10要添加IdFTPListParseWindowsNT,IdAllFTPListParsers单元
181       begin                                                   //介绍：http://blog.sunshow.net/2007/07/tidftp-directorylisting-usage/
182         if IdFTP.DirectoryListing.Items[j].ItemType = ditDirectory then   //要添加单元IdFTPList
183         begin
184           if IdFTP.DirectoryListing.Items[j].FileName = CreatDirList[i] then
185           begin
186             flag:=1;  //标志已经存在该目录
187             Break;
188           end;
189         end;
190       end;
191       if flag=0 then
192         IdFTP.MakeDir(CreatDirList[i]);  //新创建文件夹
193 
194       IdFTP.ChangeDir(CreatDirList[i]);  //更改目录
195     end;
196 
197     //***以下DirList内容有空格,IndexOf(CreatDirList[i])识别不了；也不严谨***
198    { if CreatDirList[i]<>‘‘ then
199     begin
200       IdFTP.List(DirList,‘‘,True);
201       if (DirList.IndexOf(CreatDirList[i])=-1) then
202       begin
203         try
204           IdFTP.MakeDir(CreatDirList[i]);
205         except on ex:Exception do
206           LogInfo(‘添加目录名:‘+CreatDirList[i]+‘出错,原因：‘+ex.Message,True,True );
207         end;
208         try
209           IdFTP.ChangeDir(CreatDirList[i]);
210         except on ex:Exception do
211           LogInfo(‘变更目录名:‘+CreatDirList[i]+‘出错,原因：‘+ex.Message,True,True );
212         end;
213       end;
214     end; }
215 
216     //***以下忽略异常，懒虫写法，***
217    { try
218       IdFTP.ChangeDir(CreatDirList[i]);
219     except
220       IdFTP.MakeDir(CreatDirList[i]);
221       IdFTP.ChangeDir(CreatDirList[i]);
222     end;}
223 
224     //***以下忽略异常，懒虫写法，***
225    { try
226       IdFTP.MakeDir(CreatDirList[i]);
227     finally
228       IdFTP.ChangeDir(CreatDirList[i]);
229     end;   }
230 
231   end;
232   CreatDirList.Free;
233   Result :=True;
234 end;
235 
236 destructor TFtpContentThd.Destroy;
237 begin
238   //inherited; //继承会产生异常  为什么？？
239   ziper.Free;
240   IdFTP.Free;
241   pub_Critical.Free;
242   try
243     LogInfo(‘FTP上传线程终止‘,False,true);
244     FtpContentThd.Terminate;
245     WaitForSingleObject(FtpContentThd.Handle, 500);
246     FtpContentThd := nil;
247   except on ex:Exception do
248     begin
249 
250     end;
251   end;
252 end;
253 
254 function TFtpContentThd.Get_Bak_Date: Boolean;
255 var
256   sql1 :string;
257   count :integer;
258   Now_Date :TDateTime;
259 begin
260   Result := True;
261   Now_Date := StrToDateTime(FormatDateTime(‘YYYY/MM/DD hh:mm:ss‘,Now()));
262   //获取时间段内的票面内容
263   Sql1 := ‘SELECT * FROM TICKET_CONTENT_BAK_DATE WHERE STATUS = 0‘;
264   try
265     try
266       with ClientDataModule.orqry1 do
267       begin
268         SQL.Clear;
269         SQL.Text := sql1;
270         Open;
271         First;
272         count := RecordCount;
273         if Count = 0 then
274         begin
275           //临时增加一条数据，否则程序无法进行
276           FMessage := ‘上传票面内容时，未找到相应上传区间。‘;
277           LogInfo(FMessage,True);
278           Result := False;
279           Exit;
280         end;
281         // 获取相关信息
282         FStart_Date := FieldByName(‘START_DATE‘).AsDateTime;  // 获取起始时间
283         FEnd_Date := fieldByName(‘END_DATE‘).AsDateTime;      // 获取结束时间
284         FNextDate := IncSecond(FEnd_Date,Pub_SecondInterval);
285         Close;
286       end;
287       Now_Date := IncMinute(Now_Date,-Pub_Before_Minitue);  //只取Now()前5分钟的数据；
288       If FNextDate > Now_Date then
289       begin
290         Result := False;
291       end;
292     except on Ex:Exception do
293       begin
294         FMessage := ‘查找相应上传区间时,服务器断开或异常。‘;
295         LogInfo(FMessage,True);
296         Result := False;
297       end;
298     end;
299   finally
300   
301   end;
302 end;
303 
304 function TFtpContentThd.Get_ContentByDate(var HasData: boolean): Boolean;
305 var
306   sql1,s :string;
307   s_TID,s_CheckNo :string;
308   s_content,s_content_left,s_content_right :widestring;
309   Msg :string;
310   i : Integer;
311 begin
312   Result := True;
313   Msg := ‘查找票面内容，如下区间：‘;
314   Msg := Msg + Formatdatetime(‘YYYY-MM-DD hh:mm:ss‘,FStart_Date);
315   Msg := Msg + ‘ -- ‘;
316   Msg := Msg + Formatdatetime(‘YYYY-MM-DD hh:mm:ss‘,FEnd_Date);
317   LogInfo(Msg);
318   // 根据推送的时间段，从票据打印表中取出数据
319   Sql1 := ‘ SELECT A.TID,A.CHECK_NO,B.CONTENT FROM TICKET_PRINT_HISTORY A,TICKET_CONTENT B ‘ +
320          ‘ WHERE A.TID=B.TID ‘ +
321          ‘ AND A.PRINT_TIME >= TO_DATE(‘ + Quotedstr(DateTimeToStr(FStart_Date)) + ‘,‘ + Quotedstr(‘yyyy-mm-dd hh24:mi:ss‘) + ‘)‘ +
322          ‘ AND A.PRINT_TIME < TO_DATE(‘ + Quotedstr(DateTimeToStr(FEnd_Date)) + ‘,‘ + Quotedstr(‘yyyy-mm-dd hh24:mi:ss‘) + ‘)‘;
323   //测试语句
324   //sql1 := ‘SELECT TID,CHECK_NO FROM TICKET_PRINT_HISTORY WHERE TID >= 39332133 AND TID<=39334764‘;
325 
326   try
327     try
328       with ClientDataModule.orqry1 do
329       begin
330         try
331           sql.Clear;
332           SQL.Text := sql1;
333           Open;
334           First;
335           FCount := RecordCount;
336           if FCount > 0 then
337           begin
338             HasData := True;
339             LogInfo(‘开始解析票面内容。总数为： ‘ + IntToStr(FCount) + ‘条。‘);
340           end
341           else
342           begin
343             HasData := False;
344             FMessage := ‘查找区间票面内容为空。‘;
345             LogInfo(FMessage);
346             Result := True;
347             Exit;
348           end;
349           while not Eof do
350           begin
351             Try
352               s_TID := FieldByName(‘TID‘).asstring;
353               LogInfo(‘解析票面内容。票ID为：‘ + s_TID,False,True);  //不需要写日志吧
354               FContent := Trim(FieldByName(‘CONTENT‘).Asstring);
355               //FContent := Trim(FieldByName(‘CHECK_NO‘).Asstring);   //ss测试语句
356               pub_Critical.Enter;
357               try
358                 WriteLog(pub_UnZipFileSaveDir+‘\‘ +s_TID+ ‘.Txt‘,FContent,True); //若存在该文件，覆盖模式
359               finally
360                 pub_Critical.Leave;
361               end;
362               Next;
363             except on Ex:Exception do
364               begin
365                 FMessage := ‘解析单张票面内容时，出现异常。‘ + Ex.Message;
366                 LogInfo(FMessage,True);
367                 Result := False;
368                 Exit;
369               end;
370             end;
371           end;
372           Close;
373         Except on Ex:Exception do
374           begin
375             Close;
376             FMessage := ‘查找区间内票面内容时，服务器断开或异常。‘ + Ex.Message;
377             LogInfo(FMessage,True);
378             //获取数据时出现异常
379             Result := False;
380           end;
381         end;
382       end;
383     Except on Ex:Exception do
384       begin
385         FMessage := ‘查找区间内票面内容时，服务器断开或异常。‘ + Ex.Message;
386         LogInfo(FMessage,True);
387         //获取数据时出现异常
388         Result := False;
389       end;
390     end;
391   finally
392   end;
393 end;
394 
395 procedure TFtpContentThd.DoPostContent(var HasData: boolean);
396 begin
397   HasData := False;
398   try
399     //1、从数据库取得指定区间的数据，保存为多个txt，
400     //2、当前文件夹的*.txt全部保存为zip
401     //3、ftp上传到服务器
402 
403     LogInfo(‘开始取区间‘);
404     if not Get_Bak_Date then Exit;
405     LogInfo(‘开始取区间内票面内容‘);
406     //ss -------测试
407     //FStart_Date:=Now();
408     //FEnd_Date:=Now();
409     if not Get_ContentByDate(HasData) then Exit;
410 
411     DateTimeToString(Filename,‘YYYYMMDD-HHMMSS‘,FStart_Date);  //压缩包名称，以区间开始时间命名
412     Filename:=Filename+‘.zip‘;
413 
414     LogInfo(‘执行压缩‘);
415     if not Zip(0,0,pub_ZipFileSaveDir+‘\‘+Filename,pub_UnZipFileSaveDir) then  //将abc.zip解压到路径，若不存在会自动创建目录的。
416     begin                                                                      //压缩时，若路径不存在，是否会创建；
417      exit;
418     end;
419 
420     LogInfo(‘提交票面内容压缩包到文件服务器‘);
421     DateTimeToString(ZipUpLoadDir,‘YYYY\MM\DD\HH‘,Now); //压缩包上传路径
422     if not UpLoad_Content_Zip then Exit;
423     LogInfo(‘更新提交状态‘);
424     if not Update_Content_Bak_Date then Exit;
425     LogInfo(‘执行下一批数据‘);      
426   finally
427 
428   end;
429 end;
430 
431 function TFtpContentThd.UpLoad_Content_Zip: Boolean;
432 begin
433   //发送
434   Result:=False;
435   with IdFTP do
436   begin
437     if not Connected then
438     begin
439       Username:=pub_FtpUsername;
440       Password:=pub_FtpPassword;
441       try
442         Connect(pub_FtpHost,pub_FtpPort);
443       except
444         on e:exception do
445         begin
446           FMessage:=‘连接FTP服务器出错!‘#13+e.Message;
447           LogInfo(FMessage,true,true);
448           Exit;
449         end;
450       end;
451     end;
452     if Connected then
453     begin
454       if ZipUpLoadDirTemp<>ZipUpLoadDir  then  //上传保存的路径改变，则创建新目录或更改路径。
455       begin
456         ChangeDir(pub_ZipUpLoadRtDir);  //先回到设定的根目录
457         CreatFtpDir(ZipUpLoadDir);      //遍历当前FTP文件夹， 创建新目录或更改路径
458       end;
459       try
460         Put(pub_ZipFileSaveDir+‘\‘+Filename,Filename);
461 
462         deletefile(PChar(pub_ZipFileSaveDir+‘\‘+Filename)); //删除已上传的文件
463         DeleteDirectory(pub_UnZipFileSaveDir);    //删除已经上传的文件夹的所有txt
464       except
465         on e:exception do
466         begin
467           FMessage:=‘文件上传FTP服务器出错!‘#13+e.Message;
468           LogInfo(FMessage,true,true);
469           Exit;
470         end;
471       end;
472     end;
473   end;
474   ZipUpLoadDirTemp:=ZipUpLoadDir;
475   Result:=True;
476 end;
477 
478 function TFtpContentThd.Update_Content_Bak_Date: Boolean;
479 var
480   sql1,sql2 : string;
481 begin
482   Result := True;
483   try
484     // 如果上面对数据进行处理出现异常时，则退出本次上传
485     // 全部数据上传成功，则进行状态重置
486     Sql1 := ‘BEGIN  UPDATE TICKET_CONTENT_BAK_DATE SET STATUS=1,POST_DATE=SYSDATE, ‘ +
487            ‘ POST_COUNT=‘ + Quotedstr(IntTostr(FCount)) +
488            ‘ WHERE STATUS = 0;‘;
489 
490     // 插入下一条上传时间段
491     sql2 := ‘ INSERT INTO TICKET_CONTENT_BAK_DATE (ID,START_DATE,END_DATE,POST_COUNT,POST_DATE,STATUS) ‘ +
492            ‘ VALUES(SEQ_CONTENT_BAK_DATE.Nextval,TO_DATE(‘+ Quotedstr(Formatdatetime(‘YYYY-MM-DD hh:mm:ss‘,FEnd_Date)) +
493            ‘,‘ + QuotedStr(‘yyyy-mm-dd hh24:mi:ss‘) + ‘),TO_DATE(‘ + Quotedstr(Formatdatetime(‘YYYY-MM-DD hh:mm:ss‘,FNextDate)) +
494            ‘,‘ + QuotedStr(‘yyyy-mm-dd hh24:mi:ss‘) + ‘),0,SYSDATE,0);‘ +
495            ‘ COMMIT; END;‘ ;
496     ClientDataModule.orqry1.SQL.Clear;
497     ClientDataModule.orqry1.SQL.Text := sql1 + sql2;
498     ClientDataModule.orqry1.Execute;
499     ClientDataModule.orqry1.Close;
500     //
501     //LogInfo(‘建立下一次上传区间‘);
502   except on ex:exception do
503     begin
504       FMessage := ‘更新上传状态时，服务器断开或异常。‘ + Ex.Message;
505       LogInfo(FMessage,True);
506       Result := False;
507     end;
508   end;
509 end;
510 
511 {循环删除整个目录下的所有文件包括文件夹}
512 function TFtpContentThd.DeleteDirectory(NowPath: string): Boolean;
513 var
514   search: TSearchRec;
515   ret: integer;
516   key: string;
517 begin
518   Result:=False;
519   if NowPath[Length(NowPath)] <> ‘\‘ then
520     NowPath := NowPath + ‘\‘;
521   key := NowPath + ‘*.*‘;
522   ret := findFirst(key, faanyfile, search);
523   while ret = 0 do
524   begin
525     if ((search.Attr and fadirectory) = fadirectory) then
526     begin
527       if (search.Name <> ‘.‘) and (search.name <> ‘..‘) then
528       begin
529         DeleteDirectory(NowPath + search.name);
530         removedir(NowPath + search.name); //如果需要删除文件夹则添加
531       end;
532     end
533     else
534     begin
535       if ((search.Attr and fadirectory) <> fadirectory) then
536       begin
537         deletefile(PAnsiChar(NowPath + search.name));
538 
539       end;
540     end;
541     ret := FindNext(search);
542   end;
543   SysUtils.FindClose(search);
544   //FindClose(search.FindHandle);
545   //FindClose(search); //发现在线程里面不能用这，只能用上面的句柄
546   //removedir(NowPath); //如果需要删除最外层文件夹则添加
547   result := True;
548 end;
549 procedure TFtpContentThd.LogInfo(AMsg: string; const blnIsErrorMsg,
550   BoolSaveToFile: Boolean);
551 begin
552   pub_Critical.Enter;
553   try
554     FLogMsg(AMsg,blnIsErrorMsg,BoolSaveToFile);
555   finally
556     pub_Critical.Leave;
557   end;
558 end;
559 
560 initialization
561   //
562 finalization
563   //
564 end.

 1 procedure TFrmFTP_ZIP.btnBreUpLoadClick(Sender: TObject);
 2 var
 3   tStream: TFileStream;
 4   Size1:Integer;
 5 begin
 6   if IdFTP1.Connected then
 7   begin
 8     if not UploadOpenDialog1.Execute then
 9       Exit;
10     tStream:=TFileStream.Create(UploadOpenDialog1.FileName,fmOpenRead );
11     try
12       Size1 :=IdFTP1.Size(ExtractFileName(UploadOpenDialog1.FileName));
13       if Size1 >0 then   //这样判断文件是否存在 是错误的。
14       begin
15         case MessageDlg(‘文件已经存在，是否续传？‘, mtConfirmation, mbYesNoCancel, 0) of
16           mrYes:
17             begin
18               tStream.Position:=Size1;
19               //tStream.Seek(IdFTP1.Size(‘Delphi大量pdf资料非扫描档1.zip‘),0) ; //也可以。
20               IdFTP1.Put(tStream,ExtractFileName(UploadOpenDialog1.FileName),true); //续传
21             end;
22           mrNo:
23             begin
24               IdFTP1.Put(tStream,ExtractFileName(UploadOpenDialog1.FileName),False); //重新传
25             end;
26           mrCancel: Exit; //取消
27         end;
28       end
29       else
30         IdFTP1.Put(tStream,ExtractFileName(UploadOpenDialog1.FileName),False);
31       
32      { tStream.Position:=IdFTP1.Size(‘Delphi大量pdf资料非扫描档1.zip‘); //当前路径的指定文件
33       //tStream.Seek(IdFTP1.Size(‘Delphi大量pdf资料非扫描档1.zip‘),0) ; //也可以。
34       IdFTP1.Put(tStream,‘Delphi大量pdf资料非扫描档1.zip‘,true); }
35 
36     finally
37       tStream.Free;
38     end;
39   end
40   else
41     ShowMessage(‘Ftp未连接‘);
42 end;
43 
44 procedure TFrmFTP_ZIP.btnBreDownLoadClick(Sender: TObject);
45 begin
46   if IdFTP1.Connected then
47   begin
48     if FileExists(‘Delphi大量pdf资料非扫描档1.zip‘) then
49     begin
50       case MessageDlg(‘文件已经存在，是否续传？‘, mtConfirmation, mbYesNoCancel, 0) of
51         mrYes: FtpDownLoad( ‘Delphi大量pdf资料非扫描档1.zip‘, True); //续传
52         mrNo: FtpDownLoad( ‘Delphi大量pdf资料非扫描档1.zip‘, False); //覆盖
53         mrCancel: Exit; //取消
54       end;
55     end
56     else
57       FtpDownLoad( ‘Delphi大量pdf资料非扫描档1.zip‘, False); //建立新文件下载
58   end
59   else
60     ShowMessage(‘Ftp未连接‘);
61 end;