如何知道取得图片的长,宽(bmp,gif,jpg三种格式即可) (200分)

  • 主题发起人 主题发起人 yousoft
  • 开始时间 开始时间
Y

yousoft

Unregistered / Unconfirmed
GUEST, unregistred user!
注:用程序代码实现,不用Image之类的组件打开,再取得!

如何从gif转换到bmp?
 
procedure TForm1.Button1Click(Sender: TObject);
var
bmp:Tbitmap;
h,w:integer;
begin
bmp:=Tbitmap.Create;
bmp.LoadFromFile('c:/aa0.bmp');
h:=bmp.Height;
w:=bmp.Width;
bmp.Free;
showmessage(format('该bmp图像的高度为%d,宽度为%d',[h,w]));
end;

//就举这个例子,jpg的你自己做吧
//要获取gif图像的高度宽度有点麻烦,delphi没有读取gif的函数或类,你去下载第三方构件吧
 
文件格式中有没有存放图片的大小?
关键是gif图片啊
 
to yousoft:
你去 http://cakk.126.com 去拉一个 GifImage,就可以实现了。
 
这个问题可以这样,用一个Image,
Image.Picture.LoadFormFile(文件名);
Width := Image.Picture.Bitmap.width;
Height := Image.Picture.Bitmap.hegiht;
 
程序员大本营中有这几种文件格式里面有 长和宽,当然你自己可以去度出来
 
[:)]谢谢了!
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
I
回复
0
查看
360
import
I
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部