L
liuyang
Unregistered / Unconfirmed
GUEST, unregistred user!
比如我在C盘下有个TEMP.jpg的文件，我怎么得到它的长、宽、及大小？望赐教
L
liuyang
Unregistered / Unconfirmed
GUEST, unregistred user!
比如我在C盘下有个TEMP.jpg的文件，我怎么得到它的长、宽、及大小？望赐教
P
plzw
Unregistered / Unconfirmed
GUEST, unregistred user!
uses
JPEG;
var
Jpg: TJPEGImage;
begin
try
Jpg.LoadFromFile('C:/TEMP.jpg');
ShowMessage(Format('W:%d,H:%d', [Jpg.Width, Jpg.Height]));
finally
Jpg.Free;
end;
end;
var
fs: TFileStream;
Size: Integer;
begin
fs := TFileStream.Create('C:/TEMP.Jpg', fmOpenRead);
Size := fs.Size;
// 可以在这里处理，转化成 XX KB 的样式
end;
JPEG;
var
Jpg: TJPEGImage;
begin
try
Jpg.LoadFromFile('C:/TEMP.jpg');
ShowMessage(Format('W:%d,H:%d', [Jpg.Width, Jpg.Height]));
finally
Jpg.Free;
end;
end;
var
fs: TFileStream;
Size: Integer;
begin
fs := TFileStream.Create('C:/TEMP.Jpg', fmOpenRead);
Size := fs.Size;
// 可以在这里处理，转化成 XX KB 的样式
end;
L
liuyang
Unregistered / Unconfirmed
GUEST, unregistred user!
to plzw
不行啊。怎么都报错呢。。。[
]
不行啊。怎么都报错呢。。。[
]
M
miaoyuli
Unregistered / Unconfirmed
GUEST, unregistred user!
plzw的语句没问题，只是给出来关键点的方法，其余的语句你补充一下就不报错了
L
liuyang
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。