有点难..如何将一个压缩文件www.rar保存到Access数据库的Blob中还有.. 如何将一个压缩文件www.rar保存到Access数据库的Blob中?如何将其以文件的方式返回到桌面来? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 存文件好说:http://218.56.11.178:8020/web/index.aspx-》下载基地-》例程-数据库/报表-》向数据库中存取文件 问问题之前先查找啊我你一个存图片的procedure TForm1.Button1Click(Sender: TObject);var MStr:TMemoryStream;beginMStr:=TMemoryStream.Create ;Image1.Picture.Graphic.SaveToStream(MStr);MStr.Position :=0;Table1.Edit;TBlobField(Table1.FieldByName('Image')).LoadFromStream(MStr);Table1.Post ;MStr.Free ;Image1.Repaint ;end;procedure TForm1.Button2Click(Sender: TObject);varMS: TStream;begin//MS:=TStream.Create ;with Table1 doMS:=CreateBlobStream(FieldbyName('image'),bmRead);if MS<>nil thenbegin //Image2.Picture.Bitmap.LoadFromStream (MS); Image2.Picture.BitMap.LoadFromStream(MS); image2.Refresh ; MS.Free;endelse ShowMessage('Ms is Null');end;procedure TForm1.Button3Click(Sender: TObject);Var MS: TmemoryStream;begin MS:=TMemoryStream.Create; MS.LoadFromFile('D:\土地交易信息管理系统\327443A.bmp'); MS.Position :=0; Table1.Edit; TBlobField(Table1.FieldByName('Image')).LoadFromStream(MS); Table1.Post ;end; 急急:如何用excel控件,把指定区域的数据、格式复制到新指定的区域?? 怪问题:关于DBGRID FASTREPORT的一个问题: 求:用完成端口写的SOCKET通信程序(包括服务端与客户端程序) SOS!!fastreport的大bug:用fastReport做图文报告的注意了! 请问大家如果用代码指定DBGRID表格的列宽和行宽? 一个小问题 请问在DBGrid中如何实现表面显示是用户名称(中文),实际保存数据库的是用户帐号 怎么查询? 山东淄博的程序员来交流交流 联合查询的问题 dll,封装代ado的窗体问题,有经验的朋友进来看看
http://218.56.11.178:8020/web/index.aspx
-》下载基地-》例程-数据库/报表-》向数据库中存取文件
我你一个存图片的procedure TForm1.Button1Click(Sender: TObject);
var
MStr:TMemoryStream;
beginMStr:=TMemoryStream.Create ;
Image1.Picture.Graphic.SaveToStream(MStr);
MStr.Position :=0;
Table1.Edit;
TBlobField(Table1.FieldByName('Image')).LoadFromStream(MStr);
Table1.Post ;
MStr.Free ;
Image1.Repaint ;
end;procedure TForm1.Button2Click(Sender: TObject);
var
MS: TStream;
begin
//MS:=TStream.Create ;
with Table1 do
MS:=CreateBlobStream(FieldbyName('image'),bmRead);
if MS<>nil then
begin
//Image2.Picture.Bitmap.LoadFromStream (MS);
Image2.Picture.BitMap.LoadFromStream(MS);
image2.Refresh ;
MS.Free;
end
else
ShowMessage('Ms is Null');end;
procedure TForm1.Button3Click(Sender: TObject);
Var
MS: TmemoryStream;
begin
MS:=TMemoryStream.Create;
MS.LoadFromFile('D:\土地交易信息管理系统\327443A.bmp');
MS.Position :=0;
Table1.Edit;
TBlobField(Table1.FieldByName('Image')).LoadFromStream(MS);
Table1.Post ;end;