在image中如何放大缩小jpg文件! |
尚未結案
|
reebokmonkey
一般會員 ![]() ![]() 發表:44 回覆:73 積分:23 註冊:2003-08-06 發送簡訊給我 |
|
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
reebokmonkey
一般會員 ![]() ![]() 發表:44 回覆:73 積分:23 註冊:2003-08-06 發送簡訊給我 |
|
jackkcg
站務副站長 ![]() ![]() ![]() ![]() ![]() 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
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 |
reebokmonkey
一般會員 ![]() ![]() 發表:44 回覆:73 積分:23 註冊:2003-08-06 發送簡訊給我 |
|
sos_admin
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
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~~~
|
bruce0211
版主 ![]() ![]() ![]() ![]() ![]() 發表:157 回覆:668 積分:279 註冊:2002-06-13 發送簡訊給我 |
|
jackkcg
站務副站長 ![]() ![]() ![]() ![]() ![]() 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
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 |
fangwy
中階會員 ![]() ![]() ![]() 發表:99 回覆:139 積分:62 註冊:2003-09-10 發送簡訊給我 |
引言: 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"怎么解决,谢谢. |
bruce0211
版主 ![]() ![]() ![]() ![]() ![]() 發表:157 回覆:668 積分:279 註冊:2002-06-13 發送簡訊給我 |
引言: ...但如果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 |
sos_admin
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |