本文整理自网络,侵删。
function TForm1.GetFileSize(aURL: string): integer;
var
FileSize: integer;
begin
IdHTTP1.Head(aURL);
FileSize := IdHTTP1.Response.ContentLength;
IdHTTP1.Disconnect;
Result := FileSize;
end;
相关阅读 >>
Delphi {$pointermath on} 方便指针操作的编译指令
Delphi getexplorerpid获取系统explorer.exe进程id
Delphi xe2获取文件的 md5、crc、sha-1、sha-256、sha-512
Delphi 在 listbox 中放置一��可�� item 的 tedit �m件
更多相关阅读请进入《Delphi》频道 >>