在image中如何放大缩小jpg文件！ 發表人 - reebokmonkey 於 2003/09/27 14:05:16

您好﹗    您所說的放大縮小是指在TImage元件中將整張圖片全部顯示出來嗎﹖如是﹐請將TImage元件的Stretch屬性值設為True    參考看看﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

不是！我是指怎样将jpg图片放大到指定的大小！如放大50％、100％或缩小50％、100％

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38070 看看這篇 是否是你要的 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

很感谢上面提供的资料！可是我要的是整副图片的放大！并不是局部的放大！

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Buttons, ExtCtrls,jpeg;    type   TForm1 = class(TForm)     Image1: TImage;     BitBtn1: TBitBtn;     procedure FormCreate(Sender: TObject);     procedure BitBtn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;   jpgw,jpgh:integer; implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject); var jpg:Tjpegimage; begin jpg:=Tjpegimage.Create; jpg.LoadFromFile('c:\1.jpg'); jpgw:=jpg.Width ; jpgh:=jpg.Height ; image1.Width:=jpgw; image1.Height :=jpgh; image1.Picture.Assign(jpg); image1.Stretch:=true; image1.AutoSize:=false; jpg.Free ; end;    //i为正数放大，反之缩小 procedure imagesize(image:Timage;i:integer); begin if i>0 then begin image.Width:=jpgw*i ; image.Height:=jpgh*i ; end;    if i<0 then begin image.Width:=jpgw div abs(i) ; image.Height:=jpgh div abs(-i) ; end; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin //在原图基础上缩小为原图的1/10 imagesize(image1,-10); end; end. try~~~

不知長官的需求是否跟我一樣 我正研究如何變換圖形"檔"的 size 舉例如把一個 1024 x 768 的圖形 換成 640 x 480 的圖形檔案 這樣檔案 size 就會變小 而不是單純在畫面上搞放大縮小這種"表面"特效 研究出來再貼上

http://www.efg2.com/Lab/Library/Delphi/Graphics/BMP.htm 【推薦】JPEG的最新發展是JPEG2000格式，相關內容在這裏 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38124 【Delphi】【問題】如何將圖形'實際'的縮小 http://delphi.ktop.com.tw/topic.php?topic_id=23474 參考看看 找到時 順便po一下 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起 發表人 - jackkcg 於 2003/09/29 12:54:54

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

引言: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38070 看看這篇 是否是你要的 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

插一个类似的问题:jackkcg兄推荐的文章我看过也做了一个,但如果IMAGE加入JPG图象,放大处理时出错:"Can only a image if it contains a bitmap"怎么解决,谢谢.

引言: ...但如果IMAGE加入JPG图象,放大处理时出错:"Can only a image if it contains a bitmap"怎么解决,谢谢.

JPG 擋不能直接拿來做類似下面的處理 bmp2->Canvas->Pixels[x][y]=bmp1->Canvas->Pixels[x0][y0]; 所以要先把 JPG 轉成 BMP 處理完後再轉回 JPG 存檔 我有 POST 我的測試結果 http://delphi.ktop.com.tw/topic.php?topic_id=23474

引言: 舉例如把一個 1024 x 768 的圖形 換成 640 x 480 的圖形檔案 這樣檔案 size 就會變小 而不是單純在畫面上搞放大縮小這種"表面"特效 研究出來再貼上

看下面的方法： //无损调整 > src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=11955987&CC=267393">