想请教怎样程序知道媒体文件的大小(5分)

  • 主题发起人 主题发起人 金少
  • 开始时间 开始时间

金少

Unregistered / Unconfirmed
GUEST, unregistred user!
想请教怎样程序知道媒体文件的大小(如.C:/1.wav);
function FSize(FileName: string): LongInt;
var
F: file;
begin
AssignFile(F, FileName);
reset(F, 1);
Result := FileSize(F);
CloseFile(F);
end;
用这个函数出现I/O Error 32
请高手指教!

 
TFileStream.Size
5分太少了,加分吧
 
呵呵, 能详细点吗, 分没了, 等我绩了后再加吧
 
TFileStream.Size
是把文件读到内存中,用文件流的大小来计算的。
 
还有其它的方法吗?
 
uses IdGlobal;
然后用function FileSizeByName(sFilename: string): cardinal;
 
多人接受答案了。
 
后退
顶部