全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1459
推到 Plurk!
推到 Facebook!

圖檔縮小

 
jay4878
一般會員


發表:9
回覆:8
積分:3
註冊:2005-05-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-07-31 13:55:16 IP:220.130.xxx.xxx 未訂閱

各位先進.我有一個問題想請教.

我將桌面以類似keyboard上的print screen方式的功能.將它存成一個jpg圖檔大小約1024*768.

但我想要將此圖檔再縮小更多.要如何做呢?

(我有將原本存出的圖檔長.寛去除以10.大小是有變小.但畫面卻不是全圖裡內容.它只縮小顯示某一小區域)

bearmaster
一般會員


發表:36
回覆:45
積分:16
註冊:2004-05-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-08-01 11:52:56 IP:210.208.xxx.xxx 未訂閱

你有做下面這些動作嗎

Image1->Stretch=true;

Image1->Width=顯示在螢幕上的寬度;

Image1->Height=顯示在螢幕上的高度;

Image1->Picture->Bitmap->Width=圖形寬度;

Image1->Picture->Bitmap->Height=圖形高度;

這樣顯示出來的畫面應該不會被裁掉吧, 可以將原圖放大或縮小顯示.

hoyonjen2
一般會員


發表:2
回覆:3
積分:1
註冊:2004-09-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-08-03 20:56:13 IP:219.84.xxx.xxx 未訂閱

假設你將桌面的圖像存成 B01.BMP 檔 (1024 x 480)

而你打算存成 320 x 240 的 Jpeg

#include

Graphics::TBitmap *Bmp1 = new Graphics::TBitmap();

Graphics::TBitmap *Bmp2 = new Graphics::TBitmap();

TJPEGImage *Jpg2 = new TJPEGImage();


Bmp1->LoadFromFile("B01.bmp");

TRect R = TRect(0, 0, 320, 240);

Bmp2->Width = 320;

Bmp2->Height = 240;

Bmp2->Canvas->StretchDraw(R, Bmp1);

Jpg->CompressionQuality = 50; // Jpeg 壓縮率

Jpg2->Assign(Bmp2);

Jpg2->SaveToFile("j01.jpg");

delete Bmp1;

delete Bmp2;

delete Jpg2;

系統時間:2024-05-02 10:20:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!