本文整理自网络,侵删。
function TForm1.GetFileSize(aURL: string): integer;
var
FileSize: integer;
begin
IdHTTP1.Head(aURL);
FileSize := IdHTTP1.Response.ContentLength;
IdHTTP1.Disconnect;
Result := FileSize;
end;
相关阅读 >>
Delphi adoconnection1 连接excel表格读取数据
Delphi isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday ... 判断时间是否合法
Delphi api 函数: getcursorpos 与转换
Delphi waitforsingleobject 响应窗体
Delphi 获得用android应用程序触摸到的位置(坐标)的方法
更多相关阅读请进入《Delphi》频道 >>