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; 用imageen控件,功能多且简单。 用Image控件直接和的TBlob字段Assign就行了。 我们死后,我们的QQ,msn,email怎么办呢? 大家帮助很急........... 我有一个ip.dat文件,里面是IP地址库,不知道用什么方式打开该文件,或怎样转换 为什么在dll中调用COM老出现错误?请帮助解决! 熟悉DBLookupComboBox进来(在线等待) 个人编写软件,需要用到版本控制吗? 在c#中数据类型有引用类型和值类型,在delphi中也可以分成这两类吗?怎么分? 动态配置ODBC的问题请教高手! delphi中使用ole如何判断excel的行或行中的单元格是隐藏状态 FOXBASE DE 小问题 FastReport的分组问题? 这里人气旺,也许会得到解决!
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;