大概有這些方法可以獲得檔案大小
filesizebyname（需要引用idglobal單元）
getfilesize
filesize（不能獲得正在使用的檔案大小）
fileseek
tfilestream.size
下面是使用例子
1. filesizebyname（需要引用idglobal單元）
begin
if opendialog1.execute then
showmessage(inttostr(filesizebyname(opendialog1.filename)));
end;
2. getfilesize
var
filehandle:integer;
begin
if opendialog1.execute then begin
filehandle := fileopen(opendialog1.filename, 0);
showmessage(inttostr(getfilesize(filehandle, nil)));
fileclose(filehandle);
end;
end;
3. filesize（不能獲得正在使用的檔案大小）
varf: file;
begin
if opendialog1.execute then begin
assignfile(f, opendialog1.filename);
reset(f, 1);
showmessage(inttostr(filesize(f)));
closefile(f);
end;
end;
4. fileseek
var
filehandle:integer;
begin
if opendialog1.execute then begin
filehandle := fileopen(opendialog1.filename, 0);
showmessage(inttostr(fileseek(filehandle,0,2)));
fileclose(filehandle);
end;
end;
5. tfilestream.size
var
fs: tfilestream;
begin
if opendialog1.execute then begin
fs := tfilestream.create(opendialog1.filename, fmsharedenynone);
showmessage(inttostr(fs.size));
fs.free;
end;
end;
另在idglobalprotocols中有個filesizebyname()的函式。
Delphi中獲取檔案大小
大概有這些方法可以獲得檔案大小 filesizebyname 需要引用idglobal單元 getfilesize filesize 不能獲得正在使用的檔案大小 fileseek tfilestream.size 下面是使用例子 1。filesizebyname 需要引用idglobal單元 beg...
Delphi判斷檔案大小
delphi自身提供了filesize函式，例如 var f file of byte size longint begin assignfile f,f t.exe reset f size filesize f edit1.text inttostr size closefile f end 這...
獲取檔案大小
1 找到檔案所在的絕對路徑。系統路徑 projectpath request.getsession getservletcontext getrealpath 檔案路徑 在上傳檔案的時候，一定會有檔案相對路徑，如果不清楚，可以打斷點然後在本地找到此檔案。檔案相對路徑 filepath 絕對路徑rea...