2011-04-27 34 views
0

我得到了一個JPEG圖像,其中是1020x780,我試圖調整它爲111x85(這是比例),但它出來像素化。調整大小在德爾福XE的圖像

我嘗試了

一)指定圖像的TImage組件,並設置縮放/調整財產。

二)調整大小的代碼在這裏http://www.delphigroups.info/2/4/313095.html

C)在這裏http://www.swissdelphicenter.ch/torry/showcode.php?id=1896

調整大小代碼然而他們都出來了像素化。

如果我在Photoshop中調整大小,那麼它會很好。得到它那麼好是理想的,但是我知道他們花了很多時間/代碼來調整大小,所以甚至在一半之間的事情會很好。

有什麼建議嗎?

回答

5

看看Graphics32庫。它爲32位位圖實現各種圖像重採樣和變換算法。

+0

謝謝,我得到它安裝在XE下 - 但找不到任何好的示例如何重新採樣 - 獲得鏈接? – Wizzard 2011-04-28 08:45:41

1

您可以使用外部庫或組件,而不是使用內置TImage進行縮放。 ImageMagick或一些現成的組件。存在於ImageMagick的

http://wiki.freepascal.org/PascalMagick至少一個帕斯卡包裝)

,但我從來沒有用它自己。

5

在我的博客中,我討論了使用/實現抗鋸齒調整圖像大小。
閱讀the article and test the code here。它用西班牙語寫成,但你可以使用自動翻譯。無論如何,你只能讀取代碼。

見適用的差異和不適用的代碼:與BMP

enter image description here

代碼的工作,但你可以將圖像首先轉換並應用它。

+0

此處不在話下,但老兄!有趣的博客!我想將它推薦給DelphiFeeds.com,但我發現它已被拒絕。遊民。也許你應該考慮用英語寫作來吸引更多的讀者?你的博客的內容比我經常通過DelphiFeeds.com找到的所有自我推銷,無聊的會議公告和視覺工作室提示更有趣。 – 2011-04-27 11:44:42

+0

+1 neftali,opino lo mismo que wouter si escribieras tu blog en inglestendríasuna gran的Audiencia。 – RRUZ 2011-04-27 12:00:35

+0

謝謝你們兩位。這是我多次想到的一個話題,但我仍然沒有決定。必要的時間和我的英語是我必須解決/跳躍的兩個頭頂障礙。謝謝。 – 2011-04-27 14:08:54