当前位置: 首页 > 技术文档 > 正文
avatar

取出网址文件名: 获取改网址文件大小:

取出网址文件名:

function 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 GetFileSize(aURL: string): integer;
var
  FileSize: integer;
begin
  IdHTTP1.Head(aURL);
  FileSize := IdHTTP1.Response.ContentLength;
  IdHTTP1.Disconnect;
  Result := FileSize;
end;
本文固定链接: https://blog.yanhualou.com/jishu/916.html | 烟花楼博客
标签:

delphi 取出网址的文件名及文件大小:等您坐沙发呢!

发表评论

快捷键:Ctrl+Enter