Delphi中獲取檔案大小

大概有這些方法可以獲得檔案大小

filesizebyname（需要引用idglobal單元）

getfilesize

filesize（不能獲得正在使用的檔案大小）

fileseek

tfilestream.size

下面是使用例子

1。filesizebyname（需要引用idglobal單元）

begin

if opendialog1.execute then

begin

showmessage(inttostr(filesizebyname(opendialog1.filename)));

end;

2。getfilesize

varfilehandle:integer;

begin

if opendialog1.execute then

begin

filehandle := fileopen(opendialog1.filename, 0);

showmessage(inttostr(getfilesize(filehandle, nil)));

fileclose(filehandle);

end;

3。filesize（不能獲得正在使用的檔案大小）

var f: file;

begin

if opendialog1.execute then

begin

assignfile(f, opendialog1.filename);

reset(f, 1);

showmessage(inttostr(filesize(f)));

closefile(f);

end;

4。fileseek

varfilehandle:integer;

begin

if opendialog1.execute then

begin

filehandle := fileopen(opendialog1.filename, 0);

showmessage(inttostr(fileseek(filehandle,0,2)));

fileclose(filehandle);

end;

5。tfilestream.size

varfs: tfilestream;

begin

if opendialog1.execute then

begin

fs := tfilestream.create(opendialog1.filename, fmsharedenynone);

showmessage(inttostr(fs.size));

fs.free;

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...