应该怎样显示从数据库里读出来的jpg图像 将它存为一个磁盘文件,再装入TImage. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 存为一个磁盘文件是可以,不过我觉得这样不是很好,而且我想可以显示几种格式,如BMP和JPG,这样当保存为文件是的扩展名不知怎样定 我也快到也做这步了。dbimage不行吗? dbimage不能显不JPG的, 只能显示BMP 多谢。我也快搞到图片来了。以前是用bmp。现在一般来拍照都用jpg了。对了rx里头的控件应该可以。 you just use TImage,use the save to file methord to save the data into a temperory file,then load it to TImage,just as Jiker said bigban() 为什么非得这么搞???? bigban() :如果我的图像格式不定, 那么保存时的文件名怎样定呢(指扩展名)? 用过了,但把图像赋给IMAGE时就出错 文件扩展名肯定是要存到数据库中的用ADOQuery或着Query,(Query.FieldByName('FileSource') AS TBlobField).SaveToFile(Query.Field('FileName').AsString); 我的作法是声明一个TJpegImage对象,然后,把数据库里的图片的字段用assign赋给对象,然后再用TImage的canvas.draw画出来。 yymmme(yymm),我就想你那种方法,如果用建立文件再删除有一些问题的,我不喜欢那样, 可以给个代码看看吗? 加入一个字段记录是bmp还是jpg,读出时在根据情况处理,我这样用过今天时间太短,不加代码了。 可以用TJpegImage作中间代换,再放入Image中。也可以ClipBorad来代换。 我用TJpegImage作中间代换时,当放入Image时就出错,请问用clipBorad怎样做的呢 procedure TForm1.Button3Click(Sender: TObject);var jpeg1:TjpegImage;begin jpeg1:=TjpegImage.Create; jpeg1.Assign(AdoTable1.FieldByName('photo')); image1.Canvas.Draw(0,0,jpeg1); jpeg1.Free;end;image1是TImage对象 jpeg1.Assign(AdoTable1.FieldByName('photo'));这一句出错,不能把一个TBlobField复制到jpeg1中 这是把图片存入数据库,照片字段用image型。procedure TForm1.BitBtn1Click(Sender: TObject);beginif OpenpictureDialog1.Execute thenbegin adoTable1.Edit; (adoTable1.FieldByName('photo') As TBlobField).LoadFromFile(Openpicturedialog1.FileName); adoTable1.Post;end;end; 多谢yymmme(yymm),图片我已经存进去了,现在只是显示问题 我想是字段类型的问题,我用ado+sql server,是完全可以显示的,我已经实验过了,字段用image型。 哦,我是用ado+access2000的,字段类型用ole 我用access97试过了,完全可以的! 关于MDIFORM的菜单设置我还真是有点不明白 界面效果 关于特殊字符的问题 如何让子窗口接收到父窗口发送的自定义消息? 急,工程如何打包,才能实现订制安装。 存储过程不能使Active改成true的问题。 能帮助我解决问题的给高分,'关注','Up'请勿打扰! 如何将不同数据表数据导入Excel文件的不同Sheet中? c/s程序版本自动升级的问题,如何判断client端版本号是否最新,然后从指定ftp服务器down 江湖救急 Application.Run 之后的运行次序 请问怎样用程序控制dbgrid不处于编辑状态? 这是什么?(错误信息)(送分求助!!!!!)
dbimage不行吗?
我也快搞到图片来了。
以前是用bmp。
现在一般来拍照都用jpg了。
对了rx里头的控件应该可以。
用ADOQuery或着Query,
(Query.FieldByName('FileSource') AS TBlobField).SaveToFile(Query.Field('FileName').AsString);
请问用clipBorad怎样做的呢
var jpeg1:TjpegImage;
begin
jpeg1:=TjpegImage.Create;
jpeg1.Assign(AdoTable1.FieldByName('photo')); image1.Canvas.Draw(0,0,jpeg1);
jpeg1.Free;
end;image1是TImage对象
begin
if OpenpictureDialog1.Execute then
begin
adoTable1.Edit;
(adoTable1.FieldByName('photo') As TBlobField).LoadFromFile(Openpicturedialog1.FileName);
adoTable1.Post;end;end;