FTP多线程切割传输

1.数据分割和合并，采用流文件

1. unit UnitPhotoData;
3. interface
4. uses
5.   Windows, SysUtils, Variants, Classes ,StdCtrls;
6. type
7.   TPhotoData = class(TObject)
9.   private
10.     { Private declarations }
11.   public
12.     procedure SplitData(aFileName:string;aDataSize:integer;
13.                         aFileNameList:TStrings);
14.     procedure CompoundData(aHeadFileName:string);
15.     { Public declarations }
16.   end;
18. implementation
20. { TPhotoData }
22. procedure TPhotoData.SplitData(aFileName: string;aDataSize:integer;
23.                                aFileNameList:TStrings);
24. var
25.   i, aRealSize : Integer;
26.   InStream, OutStream : TFileStream; 
27.   s : string;
28. begin
29.   i := 0;
30.   InStream:=TFileStream.Create(aFileName,fmOpenRead);
31.   try
32.     while (InStream.Position < InStream.Size) do begin
33.       s := IntToStr(i);
34.       while Length(s) < 3 do s := '0' + s;
35.       s := '.' + s;
36.       aFileNameList.Add(aFileName+s);
37.       if InStream.Size - InStream.Position < aDataSize then
38.          aRealSize := InStream.Size - InStream.Position
39.       else
40.          aRealSize := aDataSize;
41.          OutStream := TFileStream.Create(aFileName + s,fmCreate);
42.         try
43.          OutStream.CopyFrom(InStream,aRealSize);
44.          Inc(i);
45.         finally 
46.          OutStream.Free;
47.         end;
48.     end;
49.    finally
50.      InStream.Free;
51.    end;
52. end;
54. procedure TPhotoData.CompoundData(aHeadFileName:string);
55. var
56.   i : Integer;
57.   InStream, OutStream : TFileStream;
58.   ExtName, s : string;
59. begin
60.   i := 0;
61.   s := IntToStr(I);
62.   while Length(s) < 3 do s := '0' + s ;
63.     s := '.'+s;
64.     ExtName := ChangeFileExt(ExtName, s);
65.     if FileExists(aHeadFileName+ExtName) then begin
66.       OutStream := TFileStream.Create(aHeadFileName,fmCreate);
67.       try
68.         while FileExists(aHeadFileName+ExtName) do begin
69.           InStream := TFileStream.Create(aHeadFileName + ExtName,fmOpenRead);
70.           try 
71.             OutStream.CopyFrom(InStream,0);
72.             Inc(i);
73.             s := IntToStr(I);
74.             while Length(s) < 3 do s := '0' + s;
75.             s := '.'+s;
76.             ExtName := ChangeFileExt(ExtName, s);
77.           finally
78.             InStream.Free;
79.           end;
80.         end;
81.      finally
82.       OutStream.Free;
83.      end;
84.   end;
85. end;
89. end.

2.FTP线程类

1. unit UnitFtpPhotoData;
3. interface
5. uses
6.   Windows, SysUtils, Variants, Classes ,StdCtrls,Controls,IdBaseComponent,
7.   IdComponent,IdTCPConnection, IdTCPClient, IdFTP,
8.   IdThreadComponent, IdAntiFreezeBase, IdAntiFreeze,Dialogs;
10. const
11.    ZZ_FTP_IP = '127.0.0.1' ;
12.    ZZ_FTP_PORT = 21 ;
14. type
15.   TFtpPhotoData = class(TIdFtp)
17.   private
18.     { Private declarations }
19.   public
20.     procedure CreateFtpThread(idFTP:TIdFTP;aUserName,aPassword,
21.                               aOrgFileName,aDestFileName:string) ;
23.     procedure DoWork(AWorkMode: TWorkMode; const ACount: Integer); override;
24.     procedure EndWork(AWorkMode: TWorkMode); override;
25.    published
26.     { Published declarations }
27.     {公布子组件的事件}
29.     { Public declarations }
30.   end;
32. type
33.   TFtpThread = class(TIdThreadComponent)
34.   private
36.   public
39. end ;
40. implementation
43. { TFtpPhotoData }
47. procedure TFtpPhotoData.CreateFtpThread(idFTP:TIdFTP;aUserName,aPassword,
48.                                        aOrgFileName,aDestFileName:string);
49. begin
50.   idFtp.Host := ZZ_FTP_IP ;
51.   idFtp.Port := ZZ_FTP_PORT ;
52.   idFtp.Username := aUserName ;
53.   idFtp.Password := aPassword ;
54.   try
55.     idFtp.Connect;
56.      if not idFtp.Connected then begin
57.         //MsgBox('');
58.       end else begin
59.          idFtp.Put(aOrgFileName,aDestFileName,false);
60.          //idFtp.
61.       end ;
62.     except
63.       idFtp.Quit;
64.     end ;
65. end;
69. procedure TFtpPhotoData.DoWork(AWorkMode: TWorkMode; const ACount: Integer);
70. begin
71.   if ACount = 100 then begin
73.       showMessage('finish Thread');
74.   end ;
75. end ;
82. procedure TFtpPhotoData.EndWork(AWorkMode: TWorkMode);
83. begin
84.   showMessage('finish Thread');
85.   //
86. end;
88. end.

3.调用程序

1. //TIdThreadComponent;TIdAntiFreeze;不常用的控件，线程和冻结
2. procedure TFrm_Ftp.IdThreadComponent_FtpRun(Sender: TIdCustomThreadComponent);
3. var
4.   f: TIdFTP;
5.   i : integer ;
6. begin
7.   f := TIdFTP.Create(Self);
8.   try
9.     f.Username := 'ftp';
10.     f.Password := 'ftp';
11.     f.Host := '127.0.0.1';
12.     f.Port := 21;
14.     if FThreadNumber > 3 then begin
16.       self.IdThreadComponent_Ftp.Terminate;
17.        self.IdThreadComponent_Ftp.Active := False ;
18.         exit ;
19.     end ;
20.       try
21.         f.Connect;
22.          f.Put(FFileNameList[FThreadNumber],ExtractFileName(FFileNameList[FThreadNumber]),False);
23.         sleep(10000);
24.         f.Quit;
25.         self.IdThreadComponent_Ftp.Terminate;
26.       except
28.       end;
29.   finally
30.     f.Free;
31.   end;
33.   inc(FThreadNumber);
34. end;

放在BLOG上，以后有机会再用，免得忘了。