如何將.bmp檔變成.jpg檔,在delphi中要用那一個元件去顯示.jpg檔? |
答題得分者是:RaynorPao
|
ry_lee
高階會員 發表:368 回覆:251 積分:123 註冊:2002-03-19 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 在delphi 7.0有無函數或那一個win32 api可將.bmp檔變成.jpg檔,在delphi中要用那一個元件去顯示.jpg檔?ry_lee 你好: 請參考以下的連結文章 (下次記得先利用本站的搜尋功能) src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/12/15 22:32:19
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
leo2568
中階會員 發表:54 回覆:124 積分:70 註冊:2003-09-21 發送簡訊給我 |
引言: 在delphi 7.0有無函數或那一個win32 api可將.bmp檔變成.jpg檔,在delphi中要用那一個元件去顯示.jpg檔? uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Jpeg; procedure TForm1.Button1Click(Sender: TObject); var MyJPEG : TJPEGImage; MyBMP : TBitmap; begin MyBMP := TBitmap.Create; with MyBMP do try {Load the BMP} LoadFromFile('YourBmpHere.BMP'); MyJPEG := TJPEGImage.Create; with MyJPEG do begin Assign(MyBMP); {Save the JPG} SaveToFile('YourJpegHere.JPEG'); Free; end; finally Free; end; end;╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆ ║聖│║誕│║快│║樂│ ╰☆╮ ╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . ﹒☆‧☆∴.:☆﹒‧∴ ☆..... 發表人 - leo2568 於 2003/12/15 23:43:40 |
leo2568
中階會員 發表:54 回覆:124 積分:70 註冊:2003-09-21 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |