用delphi实现ftp多线程下载源代码(转载)

最新推荐文章于 2024-09-03 09:04:23 发布

a381989813

最新推荐文章于 2024-09-03 09:04:23 发布

阅读量3.5k

点赞数

文章标签：多线程 delphi integer string constructor function

本文链接：https://blog.csdn.net/a381989813/article/details/1616770

版权

该博客介绍了一种使用Delphi实现FTP多线程下载的方法，包括获取文件名、文件大小、创建线程以及下载过程中的状态显示。通过创建TThread对象并调用TIdFTP组件进行文件下载，实现了按指定线程数分块下载大文件的功能。

摘要由CSDN通过智能技术生成

//接收文件
function TForm1.GetURLFileName(aURL: string): string;
var
i: integer;
s: string;
begin //返回下载地址的文件名
s := aURL;
i := Pos('/', s);
while i <> 0 do //去掉"/"前面的内容剩下的就是文件名了
begin
Delete(s, 1, i);
i := Pos('/', s);
end;
Result := s;
end;

//得到文件大小
function TForm1.GetFileSize(aURL: string): integer;
var
FileSize : integer;
tStream: TFileStream;
FileName: String;
begin
//tStream.size := 0;
IdFTP1.StructureMount(aURL);********************************不知道用的对不对?
//FileSize := IdFTP1.Response.ContentLength;
FileSize := IdFTP1.size(FileName);
//FileSize := IdFTP1.ContentLength(FileName);
IdFTP1.Abort;
Result := FileSize;

end;

//多线程下载
procedure TForm1.Button11Click(Sender: TObject);
var
m:integer;
begin