jpeg and so on...(100分)

E

Eular

Unregistered / Unconfirmed
GUEST, unregistred user!
哪有显示jpeg,gif等格式图象的控件,实在不想自己再编一个!
 
我喜欢Eular老兄的问题, 不用费脑筋, 只需到控件库中抓几个往这一贴即可得到
100分, haha <a href="http://www.gislab.ecnu.edu.cn/delphi/downloads/pasjpg10.zip">pasjpg10.zip</a>,<a href="http://www.gislab.ecnu.edu.cn/delphi/downloads/fejpeg.zip">fejpeg.zip</a>和<a href="http://www.gislab.ecnu.edu.cn/delphi/downloads/jpgimg.zip">jpgimg.zip</a>
 
DELPHI 3 &amp; 4 , 都自带了JPEG的支持,可以看Help目录的示范。
至于GIF,你可装RXLIB,它甚至支持GIF89的格式,做动画一点都不难。
 
在程序中加入JpegUnit单元

uses Jpeg;

然后就可以使用了

procedure Do_Jpeg;
var
Jpeg : TJpegImage;
begin
Jpeg := TJpegImage.Create;
Jpeg.LoadFromFile('c:/test.jpg');
Form1.Canvas.Draw(1,1,Jpeg);
end;
 
推荐使用WangImage(TM),虽然是OCX,但是95自带.
而且支持JPG/GIF/BMP/TIF/PCX等等,一个构件全部解决!
只是GIF支持在Win98版才有 :(
 
我在borland程序员论坛贴过这个问题的解释.
在DELPHI/BCB中使用Install component将JPEG单元加入DPL中,
则TImage自动支持对JPG的存取.
 
多人接受答案了。
 
后退
顶部