麻烦以前回复的兄弟在重新回复一下,万分感谢。
解决方案 »
- delphi中关于treeview的使用
- TMemoryStream流出错:Out of System resource
- 请教怎么求这个数4.71012869724624E27 mod 65的值?
- 请教各位大侠一个TDateTimePicker的问题,假如界面上显示为2005-05,我想在程序中得到这个时间的上一个月和下一个月,怎么做?
- 请问能否把Word文档转换成BMP图像?
- 急!MediaPlayer控件的播放窗口咋么变大?
- Delphi7中ComboBox.items.add('')后提取时总出现非法操作?
- 这个table控件修改access数据库的记录为何不能post?
- 菜鸟问题:quickreport是否能够保存打印设置?
- 请问delphi程序如何发布?即release的步骤。
- 关于Tdbchart 的使用
- 请问 我想 显示一个列表 列表中每项前 有一个选择框 用哪个控件?
procedure TForm1.Button1Click(Sender: TObject);//保存文件
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile('f:\page.doc');
str.Position:=0;
adoquery1.Append;
Tblobfield(adoquery1.FieldByName('tt')).loadfromstream(str);
try
adoquery1.Post;
finally
str.Free;
end;
end;procedure TForm1.Button2Click(Sender: TObject);//读取文件
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.Position:=0;
Tblobfield(adoquery1.FieldByName('tt')).savetostream(str);
str.SaveToFile('F:\page.doc');
str.Free;
end;