如何顯示 jpg 圖片 ? (TImage 不支援) |
|
答題得分者是：digitraveler
|
|
pcboy
版主   發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
BCB 內建的 TImage 支援 jpg 嗎?
http://delphi.ktop.com.tw/topic.php?topic_id=70569 Delphi 3.0 提供了TJPEGImage類來支援JPEG圖像
http://www.ccidnet.com/tech/msrc/1999/12/03/58_38.html Delphi 7 的 TImage 好像不支援 jpg, 也沒找到 TJPEGImage
該如何顯示 jpg 圖片呢?
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
pcboy
版主 發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
請問該如何修正 ? THX
uses JPEG;
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
jpg: TJPEGImage;
begin
bmp:= TBitmap.Create;
jpg:= TJPEGImage.Create; bmp.Assign(jpg);
jpg.LoadFromFile('D:\CODE\ShowJPG\pic.jpg'); // 錯誤
// bmp.Assign('D:\CODE\ShowJPG\pic.jpg'); jpg.Free;
bmp.Free;
end;
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
digitraveler
初階會員  發表：89 回覆：91 積分：46 註冊：2005-06-01 發送簡訊給我 |
|
|
supman
尊榮會員 發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
|
|
pcboy
版主 發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
|
|
digitraveler
初階會員 發表：89 回覆：91 積分：46 註冊：2005-06-01 發送簡訊給我 |
我說的並沒有錯阿
Image1.Picture.LoadFromFile('D:\CODE\ShowJPG\pic.jpg');
只是忘了說前面宣告要加 uses jpeg; supman 也沒說前面宣告要加 uses jpeg 啊
因為沒有加 uses jpeg;
他的 TJPEGImage 也 Create 不起來的 重點是大家都一樣要加 uses jpeg; 我要爭的是真理 , 而不是分數
直接 Image1.Picture.LoadFromFile('D:\CODE\ShowJPG\pic.jpg'); 就好了
不必畫蛇添足
|
|
pcboy
版主 發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
引言: 我說的並沒有錯阿 Image1.Picture.LoadFromFile('D:\CODE\ShowJPG\pic.jpg'); 只是忘了說前面宣告要加 uses jpeg; supman 也沒說前面宣告要加 uses jpeg 啊 因為沒有加 uses jpeg; 他的 TJPEGImage 也 Create 不起來的 重點是大家都一樣要加 uses jpeg; 我要爭的是真理 , 而不是分數 直接 Image1.Picture.LoadFromFile('D:\CODE\ShowJPG\pic.jpg'); 就好了 不必畫蛇添足疑 ~~ 真的不需要其它程式碼, 只要下面即可
uses jpeg;
Image1.Picture.LoadFromFile('D:\CODE\ShowJPG\pic.jpg');
因為之前 Image1.Picture.LoadFromFile('D:\CODE\ShowJPG\pic.jpg'); 失敗過了, 所以 digitraveler 兄的小弟認為不可行而沒有測試, 也沒想到是漏了uses jpeg; 這分的確該給 digitraveler 兄, 抱歉
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
發表時間：2005-06-24 15:58:00
IP:210.69.xxx.xxx 未訂閱
系統時間：2024-05-19 11:09:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |