SQL server 7.0 要建何种字段可以保存进自定义文件? 有一些word的文件要保存进sql server7.0,如何建库,如何读写? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 建字段为Image类型的进行存储ocWord: TOleContainer;aqWord: TADOQuery;...procedure TfrmWord.GetWordFromDB; //取var msWord:TMemoryStream;begin msWord := TMemoryStream.Create(); TBlobField(aqWord.FieldByName('fmsg')).SaveToStream(msWord); msWord.position := 0; ocWord.LoadfromStream(msWord); msWord.Free;end;procedure TfrmWord.SaveWordToDB; //存var msWord: TMemoryStream;begin msWord := TMemoryStream.Create(); ocWord.SaveToStream(msWord); msWord.Position := 0; aqWord.Edit; //or aqWord.Append; TBlobField(aqWord.FieldByName('fmsg')).LoadFromStream(msWord); aqWord.Post; msWord.Free;end; text 或image 字段都行,用TBlobField来存取 工具栏图标的问题 求delphi开发人员... 大侠们,请拯救我这制菜鸟吧。如何在自己写的类中增加一个可以动态增加的对象集合。 在win98下如何抓ip包? 我认为这里没高手,这样的小问题竟然4天都没有答案。 多台计算机能否共用一个加密狗?(高手们帮忙啊) 用哪个function 是能取得小数的整数位的? 请教:如何在Delphi中导入txt文件到DBGrid中? 关于发送邮件问题?????? delphi中的midas存在不存在4层,甚至n层的说法呢,是不是多层统一称为3 层? 如何让标签闪烁?请各位前辈相助,小弟在线等待! 有关VPN拨号上网的应用程序的开发
ocWord: TOleContainer;
aqWord: TADOQuery;
...
procedure TfrmWord.GetWordFromDB; //取
var
msWord:TMemoryStream;
begin
msWord := TMemoryStream.Create();
TBlobField(aqWord.FieldByName('fmsg')).SaveToStream(msWord);
msWord.position := 0;
ocWord.LoadfromStream(msWord);
msWord.Free;
end;procedure TfrmWord.SaveWordToDB; //存
var
msWord: TMemoryStream;
begin
msWord := TMemoryStream.Create();
ocWord.SaveToStream(msWord);
msWord.Position := 0;
aqWord.Edit; //or aqWord.Append;
TBlobField(aqWord.FieldByName('fmsg')).LoadFromStream(msWord);
aqWord.Post;
msWord.Free;
end;