用ADO方式如何存取流到数据库

武稀松 2002-07-09 04:40:32
用ADO方式如何存取流到数据库
...全文
67 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
My_first 2002-07-09
  • 打赏
  • 举报
回复
先uses jpeg

这是把.jpg格式的文件存入数据。也可以是其它类型的文件
procedure TForm7.Button1Click(Sender: TObject);
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile('d:\cai.jpg');//OpenDialog1.FileName 也可以
str.Position:=0;



adoquery2.Append; //图片
Tblobfield(adoquery2.FieldByName('image')).loadfromstream(str);
try
adoquery2.Post;
finally
str.Free;
end;
end;


procedure TForm5.Button1Click(Sender: TObject);
var str:Tmemorystream;
begin
IF not ADOQUERY2.IsEmpty Then
Begin
str:=Tmemorystream.Create; str.Position:=0;
Tblobfield(adoquery2.FieldByName('image')).savetostream(str);
str.SaveToFile(ExtractFilePath(Application.ExeName)+'image\cai.jpg');
str.Free;
end;
武稀松 2002-07-09
  • 打赏
  • 举报
回复
netlib(河外孤星) ( ) 不好使呀?
武稀松 2002-07-09
  • 打赏
  • 举报
回复
netlib(河外孤星) ( ) 不好使呀?
netlib 2002-07-09
  • 打赏
  • 举报
回复
(adoquery1.FieldByName('img') as TBlobField).LoadFromstream(yourstream);

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧