[問題]為何 TImage不能直接Assign給TJPEGImage存檔?

發文回覆瀏覽次數：1140

推到 Plurk!

推到 Facebook!

[問題]為何 TImage不能直接Assign給TJPEGImage存檔?

尚未結案

plihui
初階會員

發表：88
回覆：96
積分：41
註冊：2003-07-03

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-09-12 11:20:24

IP:218.168.xxx.xxx 未訂閱

 TJPEGImage* JPG = new TJPEGImage();
 JPG->Assign(Image1);
 JPG->SaveToFile("D:\\t.jpg");
 delete JPG;

如上請問大大們.. 一定還要用一個TBitmap元件將Image1複製過來才能用TJPEGImage存檔?! 有何解決方式啊?

richtop
資深會員

發表：122
回覆：646
積分：468
註冊：2003-06-10

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-09-12 18:17:49

IP:211.76.xxx.xxx 未訂閱

引言:
TJPEGImage* JPG = new TJPEGImage(); JPG->Assign(Image1); JPG->SaveToFile("D:\\t.jpg"); delete JPG;
如上請問大大們.. 一定還要用一個TBitmap元件將Image1複製過來才能用TJPEGImage存檔?! 有何解決方式啊?

目前的確是需要這樣做！因為 class="code"> #include < JPEG.hpp > // 記得include！ ..... void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *bmp = new Graphics::TBitmap(); bmp->Width = Image1->Picture->Width; bmp->Height = Image1->Picture->Height; bmp->Canvas->Draw(0,0,Image1->Picture->Graphic); Image1->Picture->Bitmap->Assign(bmp); //Image1->Refresh(); delete bmp; } RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====##### 發表人 - richtop 於 2004/09/12 18:21:45

系統時間：2024-05-21 1:57:55

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！