Y yousoft Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-21 #1 注:用程序代码实现,不用Image之类的组件打开,再取得! 如何从gif转换到bmp?
小 小人物 Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-21 #2 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的函数或类,你去下载第三方构件吧
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的函数或类,你去下载第三方构件吧
Y yousoft Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-21 #3 文件格式中有没有存放图片的大小? 关键是gif图片啊
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-21 #4 to yousoft: 你去 http://cakk.126.com 去拉一个 GifImage,就可以实现了。
Z zytzjx Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-21 #5 这个问题可以这样,用一个Image, Image.Picture.LoadFormFile(文件名); Width := Image.Picture.Bitmap.width; Height := Image.Picture.Bitmap.hegiht;
这个问题可以这样,用一个Image, Image.Picture.LoadFormFile(文件名); Width := Image.Picture.Bitmap.width; Height := Image.Picture.Bitmap.hegiht;
陈 陈晨 Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-21 #6 程序员大本营中有这几种文件格式里面有 长和宽,当然你自己可以去度出来