如何在Access数据库中存入图像啊? 我想在一个access数据表中存图像(不是存路径),有没有办法? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 存到数据库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;从数据库取出varpjpg:tjpegimage;pic:TMemoryStream;beginpjpg:=tjpegimage.Create;pic:=TMemoryStream.Create;TBlobField(dataset.FieldByName('Img')).savetoStream(pic);pic.positon:=0;pjpeg.LoadFromStream(pic);image.graphi.bmp.assign(pjpeg);end;end; datagrid 按钮列 请教:怎么用DELPHI编写程序来自动查IP地理位置!(急。。。。。) ADO为什么会总是出现"未知错误",在线,急! 用Delphi运行DOS命令后,如何取得运行结果 开发Midas程序必备中间件TMultiProcess 新手问题:我可否这样给DBComboBox绑定数据。。。。。。 怎么得到dbgrid当前的行数 我要COPY同DELETE 如何在LISTBOX或DBGRID控件中根据所选的行在该行显示按纽 非常头疼的问题 怪!dbgrid有时出错不时不出错 请问:和DBGrid连接的数据源改变时,如何实现DBGrid的刷新?
var
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;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;