请问如何得到image控件中图形文件(.jpg,.gif,.bmp等格式)的大小? (100分)

S

sgxz2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #1

请问如何得到一个图形文件(.jpg,.gif,.bmp等格式)的大小?

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #2

用fileSize()函數.
例rocedure TForm1.Button1Click(Sender :TObject);
Var f: file of Byte; size : Longint;
begin
if OpenDialog1.Execute then
begin
AssignFile(f,OpenDialog1.FileName);
Reset(f);
size := FileSize(f);
Edit1.Text := '文件的長度(字節):' + inttostr(size);
CloseFile(f);
end;
end;

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #3

这段代码不能读到只读属性的文件大小的
var
FFileHandle: THandle;
size : Longint;
begin
FFileHandle := FileOpen(path, fmOpenRead);
Size := GetFileSize(FFileHandle, Nil);
showMessage(intToStr(size));
CloseHandle(FFileHandle);
end;

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #4

我说错了，是楼上的代码有缺陷
可不是我的

 

S

sgxz2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-12

• #5

不过我的图像是在image控件内,请问如何?

 

S

sgxz2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-12

• #6

多人接受答案了。