如何将jpg图片按原有格式保存到数据库中 我把jpg保存后就会编程bmp格式,尺寸也会增加。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1。定义一个stream:TStream2。bmp.SaveToStream(stream)3。TBlobField(Query1.FieldByName('pic')).Assign(stream)显示的时候做相反的动作即可。 varpjpg:tjpegimage;pic:TMemoryStream;beginpjpg:=tjpegimage.Create;pjpg.LoadFromFile(F:\JPG.jpg);pic:=TMemoryStream.Create;pjpg.SaveToStream(pic);pic.Position:=0;TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);dataset.post;pic.Free;pjpg.free;end; 如果从文件,一句话TBlobField(dataset.FieldByName('Img')).LoadFromFile('JpgFileName'); 多个combobox,如何用循环取出每个combobox的值? 中秋大送分,祝大家节日快乐,心想事成!! 求助从TMemo中拷贝出来的中文乱码问题! 各位大侠,快来帮帮忙了!!毕业设计急需解决的问题,请一定援手 tadoconnection连接数据库的问题。 各位DX们,我需要您的帮助(安装XP+98的问题) 介绍各地软件公司情况的红黑榜网站已做好,想转工的网友不能错过。 扩展名为DAT的是什么文件,用什么软件打开? Delphi&API(我就不适应Delphi这点) 哪里有较大量且能用169下载的控件站点? 关于GetDeviceContext方法的使用问题,急!! 怎么变成星啊?
2。bmp.SaveToStream(stream)
3。TBlobField(Query1.FieldByName('pic')).Assign(stream)
显示的时候做相反的动作即可。
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
TBlobField(dataset.FieldByName('Img')).LoadFromFile('JpgFileName');