关于.JPG图像(100分)

  • 主题发起人 主题发起人 elin
  • 开始时间 开始时间
E

elin

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi5.0中,如何显示JPG格式的图像,我试过Timage,但
Timage好象不支持JPF格式。
我的程序大概如下:
使用Filelistbox,在onchang中编写以下代码:
...
image.loadformfile(filelistbox.filename);
...
但运行时,程序出错显示image不支持扩展名为.JPG的文件
 
以下是一个例子:
uses Jpeg;

var
myJpeg:TJpegImage;
begin
myJpeg:=TJpegImage.Create;
myJpeg.LoadFromFile('');
form1.Canvas.Draw(0,0,myJpeg);
myJpeg.Free;
end;
 
yes. uses jpeg
 
uses jpeg
.
.
.
var
myJpeg:TJpegImage;
begin
myJpeg:=TJpegImage.Create;
myJpeg.LoadFromFile('');
img.picture.bitmap.assign(myJpeg);
img.picture.bitmap.Dormant;
img.picture.bitmap.FreeImage;
myJpeg.Free;
end;

 
这是一个很老的问题了,市场上的书籍也太!@#$%......除了骗钱!垃圾!垃圾!!
因为使用 Jepg单元会使应用程序大不少,且相对Windows平台Bmp是标准,所以虽然
从Delphi 3开始就支持Jpeg ,可默认该单元没有被包含,所以当你要使用 Jepg图形格式,只需要手动在 uses 里加上 Jepg 就可以了。


 
多人接受答案了。
 
后退
顶部