关于DBimage不能保存jpg图片的问题(100分)

  • 主题发起人 主题发起人 千中元
  • 开始时间 开始时间

千中元

Unregistered / Unconfirmed
GUEST, unregistred user!
if OpenDialog1.Execute then
begin
if (DataModule3.dsProgram.State <> dsEdit) and (DataModule3.dsProgram.State
<> dsinsert) then
DataModule3.dsProgram.Edit;
DBimage1.Picture.RegisterFileFormat('jpg','jpeg',TjpegImage);
DBimage1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
 
TDBImage只能显示Bitmap。
只有改写它,才能正常处理多种格式的图片。
关键在于重新定义DBImage的Picture及其LoadFromStream,
在LoadFromStream中判断图片格式并创建适当的TGraphic。
 
千中元,欠债还钱
 
同意addie,改进TDBImage。(这几天没时间做,如果不急的话,下星期二能做出来)
 
早就做完了。
 
很简单,DELPHI4和5里面可以用了
只要在USES里面加JPEG单元就可以读取JPEG图片了

给分吧!哈哈
 
这么简单?
反正以前我没有做出来.:(
 
这么简单?!
 
to luyear:
玩笑开大了吧?
或者您说的是TImage而不是TDBImage?
 
玩笑开大了!
TImage是继承自TGraphicControl,而TDBImage是继承自TCustomControl的,而TCustomControl
是继承自TWinControl的,两者跟本没有血缘关系!
 
to Sachow: 是说我在开玩笑吗?
 
//老千,我的信息管理程序里这么用没事。BMP和JEPG都可以存进去。
uses Jpeg;
begin
if OpenPictureDialog1.execute then
begin
DBISAMTable1.edit;
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DBImage1.CopyToClipboard;
DBImage1.PasteFromClipboard;
DBISAMTable1.post;
end;
end;
 
没办法,你只有改换一下了,或想别的方法了。
 
to wjiachun
你的办法是把Jpeg转换成BMP存入数据库里了。
to 千中元
是存入数据库里就行呢还是要求保存原格式?
 
保存原来格式。只jpg已经搞定,但是还有gif图片。
 
To addie: 不是说你,别那么紧张,你没看出来我是接着你的话题吗。
 
jpg是我告诉你的那个方法吗?
是的话 给钱
 
我早已将他做成控件了啊!<a href="http://www.qzone.com/home/o/oo/oopsware/home/download/OopsDBImage.zip">下载</a>
来的晚点!
:-D
 
wrench,我是找了空间搞定的。
oopsWare兄,你的控件能同时支持gif的话另送200分如何?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
571
import
I
I
回复
0
查看
657
import
I
后退
顶部