G guy02 Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-15 #1 SQL Server数据库平台,使用ADO接口的Appendchunk和Getchunk方法 调试,偶没有成功,不知哪位大虾可以教我,最好有代码范例。 偶的email:rhx08@263.net
Y yangkee Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-15 #2 还是用adoblobstream吧 下面的代码是把一个文件放在olecontainer中再以ole对象的形式放入数据库中: var sfilename:string;bs:TADOBlobStream; begin try Olecontainer1.createobjectfromfile(sfilename,false); adoquery1.Edit; bs:=TADOBlobStream.Create(TBlobField(adoquery1.fieldbyname('visio')),bmWrite); olecontainer1.SaveToStream(bs); finally bs.free; adoquery1.post; end;
还是用adoblobstream吧 下面的代码是把一个文件放在olecontainer中再以ole对象的形式放入数据库中: var sfilename:string;bs:TADOBlobStream; begin try Olecontainer1.createobjectfromfile(sfilename,false); adoquery1.Edit; bs:=TADOBlobStream.Create(TBlobField(adoquery1.fieldbyname('visio')),bmWrite); olecontainer1.SaveToStream(bs); finally bs.free; adoquery1.post; end;
G guy02 Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-16 #4 谢谢yangkee, 由于我的系统采用三层结构,在服务器端完全使用 ADO的接口写的,没有采用delphi对ADO的封装构件.
叶 叶不归 Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-16 #6 呵呵,看不太懂题目意思,不知道以下代码有没有用 在客户端的TClientDataSet构件也可以存取图像到库,是三层的 with ClientDataSet1 do begin ClientDataSet1.Edit; TBlobField(ClientDataSet1.FieldByName('照片')).LoadFromFile(FileOpen1.FileName); DbImage1.LoadPicture; ClientDataSet1.post; end;
呵呵,看不太懂题目意思,不知道以下代码有没有用 在客户端的TClientDataSet构件也可以存取图像到库,是三层的 with ClientDataSet1 do begin ClientDataSet1.Edit; TBlobField(ClientDataSet1.FieldByName('照片')).LoadFromFile(FileOpen1.FileName); DbImage1.LoadPicture; ClientDataSet1.post; end;
G guy02 Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-16 #7 谢谢,我的程序完全使用ADO接口存取数据,不使用BDE及其封装的ADO构件。