如何读出文件的长度(100分)

T

tr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-22

• #1

 

于

于小澜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-22

• #2

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;

或:
var
fh:integer;
fs:longint;
begin

fh:=fileopen('文件名',fmopenread);
fs:=fileseek(fh,0,2);
fileclose(fh);
end;

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-22

• #3

listen

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-22

• #4

The GetFileSize function retrieves the size, in bytes, of the specified file.
DWORD GetFileSize(
HANDLE hFile, // handle of file to get size of
LPDWORD lpFileSizeHigh // address of high-order word for file size
);

Parameters

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-22

• #5

var
n1,n2WORD;

fh:=_lopen('filename',OF_READ);
n1:=GetFileSize(THandle(fh),@n2);
//可以得到大于2g的文件大小，n1是低32位，n2是高32位
_lclose(fh);

 

T

tr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-23

• #6

多人接受答案了。