如何得到位图文件和JPEG图形文件的长和宽? ( 积分: 50 )

  • 主题发起人 主题发起人 wqhatnet
  • 开始时间 开始时间
W

wqhatnet

Unregistered / Unconfirmed
GUEST, unregistred user!
我的意思说同时得到
而不是分开处理?
 
如果你能同时把位图文件和JPEG图形文件弄在一起,就可以同时得到.
 
uses .....jpeg......

Image1.Picture.LoadFromFile('FileName');
w:=Image1.Picture.Width;
h:=Image1.Picture.Height;
 
function tasform.getsizepic(abcpath:string):integer;
var
b:tBitmap;
j:tjpegimage;
begin
if fileExists(abcpath)=false then exit;
if lowerCase(ExtractFileExt(abcpath))='.bmp' then
begin
b:=tbitmap.Create ;
b.LoadFromFile(abcpath);
b.Graphic.
graphic.
result:=b.Width;
b.Free;
end;
end;
这段代码为什么不行呢?
 
b.Graphic.
graphic.
语法错误,编译都通不过
 
了解bmp和jpeg格式后就不会提出这样的问题了
 
你到底想问什么?
你说“我的意思说同时得到,而不是分开处理? ” ,那么你的代码“result:=b.Width;”又怎能与“同时”匹配?
 
uses .....jpeg......

function tasform.getsizepic(abcpath:string):integer;
var
b:TPicture;
begin
Result := 0;
if fileExists(abcpath)=false then exit;
b := TPicture.Create ;
try
b.LoadFromFile(abcpath);
result:=b.Width;
finally
b.Free;
end;
end;
end;
 
shaodc,
的答案是可以得到的.
 
后退
顶部