快速显示JPG 文件 (200分)

  • 主题发起人 主题发起人 王峥
  • 开始时间 开始时间

王峥

Unregistered / Unconfirmed
GUEST, unregistred user!
我希望装入JPG文件并快速显示.DELPHI 自带的速度太慢.
是否有这方面的比较好比较小的控件?
如果不行是否可以将装入过程置于后台?如何实现?
 
loadfromstream()?
 
慢?不慢呀, 你是怎么显示的?
 
怎么可能呀???
procedure TForm1.Button1Click(Sender: TObject);
var
FBmp :TBitmap;
FJpg :TJpegImage;
begin
if not OpenPictureDialog1.Execute then Exit;
FJpg :=TJpegImage.Create;
FJpg.LoadFromFile(OpenPictureDialog1.FileName);
FBmp :=TBitmap.Create;
FBmp.Assign(FJpg);
Image1.Picture.Bitmap.Assign(FBmp);
FBmp.Free;
FJpg.Free;
end;
记得在uses加入单元Jpeg.
 
到底是加载(解码)速度慢还是显示速度慢?我感觉解码速度挺快的。
 
不慢啦。再快也要先读硬盘。想有ACDSEE的效果,先要预读啦。。
 
JPG要解码,肯定比BMP慢一点。
 
不会慢很多吧!!
 
多少jpg文件,每个大小是多少(k为单位)
 
可以先读到内存流中
tms: TMemoryStream;
tms:=TMemoryStream.Create;
tms.LoadFromFile(*);
jpg.LoadFromStream(tms);
tms.free
 
在uses加入单元Jpeg,单元JPGE是什么,控件码?
 
请问卷起千堆雪TYN,我怎样才能实现将一个SQL数据表过滤出来的数据和图片存入另一个
SQL数据表,其实我通过ADOTABLE1.APPEND;
ADOTABLE1.FIELDERBYNAME('..')..;
....
ADOTABLE1.POST;
实现数据的转存,但图片却不能实现,有什么办法吗?
 
to 楼上:
图片的转存必须建立中转的流来实现,你先建一个流,然后读得源表,再将流存入目标表
 
TO:楼上:
请告诉我具体代码。好吗?图片是JPG格式,数据库是SQL,源表是ADOTABLE1,
目的表是ADOTABLE4,谢谢!
 
后退
顶部