如何在access中用DBMANIGE天加JPG图片? 如何在access中用DBMANIGE天加JPG图片? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 blobfield loadfromfilesavetofile 1、如何实现在Microsoft Access数据库中的图像存储:这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序:procedure TForm1.Button1Click(Sender: TObject);var MyJPEG : TJPEGImage;MS: TMemoryStream;beginMyJPEG := TJPEGImage.Create; try with MyJPEG do begin Assign(Image.Picture.Graphic); MS:=TMemoryStream.create; SaveToStream(MS); MS.Position:=0; Table1.Edit; TBlobField(Table1.FieldbyName('Image')).LoadFromStream(MS); Table1.Post; messagebox(getactivewindow(),'图像保存完毕!','保存',mb_ok); end; finally MyJPEG.Free; end;end;在这段代码里TStream的子类TMemoryStream利用内存流起到了将BMP格式转化为JPEG格式的中间桥梁的作用。 程序娱乐群招人不解释懂的嘿嘿! a,b数组比较,相同,不同分别放在b,c数组算法怎么实现? 请教怎样,可以用CheckBoxList或者ListView控件显示数据库中的多幅图片? 如何判断Socket是不是断了? DELPHI 有无进制转换的函数? SQL SERVER服务器查找 近来有分!!!! 怎样用程序改变桌面,有经验的请进!--->>>>> :类的聚集,在delphi中如何实现的,请进? 64位BDE在WIN8中用不了的问题 combobox的简单问题 Canvas画一直线,怎样用鼠标选中,将其删除?
loadfromfile
savetofile
这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序:
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(Image.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
Table1.Edit;
TBlobField(Table1.FieldbyName('Image')).LoadFromStream(MS);
Table1.Post;
messagebox(getactivewindow(),'图像保存完毕!','保存',mb_ok);
end;
finally
MyJPEG.Free;
end;
end;
在这段代码里TStream的子类TMemoryStream利用内存流起到了将BMP格式转化为JPEG格式的中间桥梁的作用。