【结贴】获取上传文件大小

didi0225

function   FileGetSize(FileName:string):   Int64;
  var   w32fd:   TWin32FindData;   h:   THandle;
  begin
      Result   :=   0;
      if   FileName=''   then   Exit;
        h   := FindFirstFile(PChar(FileName),w32fd);        
      if   h   <>   INVALID_HANDLE_VALUE   then
           with   w32fd   do   Result   :=   nFileSizeHigh   *   MAXDWORD   +   nFileSizeLow;
      FindClose(h);
  end;


Dialogs.ShowMessage(IntToStr(FileGetSize(UploadOpenDialog1.FileName)));  

提示错误Access violation at address 076A4CBC in module 'CLRun.bpl'. Read of address 00000004

请问还有什么方法获取文件大小么？我想在IdFTP1上传的时候获取

didi0225

http://bbs.justep.com/forum.php? ... ghlight=FileGetSize

按8楼写的
var
  a: integer;
begin
  a := CommonComponentLibrary.TCommonComponentLibrary.UserSystem.GetFileSize('File:\c:\Winnt\NOTEPAD.EXE');
  dialogs.showmessage(sysutils.inttostr(a));
end;
为什么取的都是0

jiahaiming

DocLib.TDocUtils.GetOSFileSize

didi0225

还要引用文档库
可行,谢谢@!