//接收文件
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
Showmessage('OK!主线程在执行,获得文件名并显示在Edit5中');
aURL := Edit4.Text; //ftp方式下载地址
aFile := GetURLFileName(Edit4.Text);//得到文件名
xx
用delphi实现ftp多线程下载源代码(转载)
最新推荐文章于 2025-08-16 10:15:32 发布