怎样将blob字段里的文件保存到本地?急

heshantxwd 2003-01-09 02:44:03
我试过一些方法,如Tblobfield的loadfromfile(),等,还有流等,还有就是delphi的例程里写到,Tblobfield:=Ttable.fieldbyname(''),但我这里Tblobfield 和Tfield是不能兼容的,我都晕了,
...全文
147 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
heshantxwd 2003-01-21
谢拉
回复
del_c_sharp 2003-01-10
代码看清楚才能测试哦.里面关于直接存储jpeg流 和ole格式数据的方法
不是任何字段都可以用的,四个过程两个是save两个是load,必须匹配~~
回复
del_c_sharp 2003-01-10
^_^ 小小难道在给摩托说话? 当然测试了~~~
回复
ihihonline 2003-01-10
moto 就是 moto
你测试了没有?
回复
leaya11 2003-01-10
我直接把BLOB转换成字符串,放进流,保存。也没问题
回复
lizongqi 2003-01-10
mark
回复
del_c_sharp 2003-01-09
关于你的问题,楼上已经说了.
今天上午测试过blob类型的东西,希望对你理解流\Blob字段\Tfield有点帮助
有点乱,见谅:


procedure TForm1.Button1Click(Sender: TObject);
var
sm:TStream ;
jpeg:TJPEGImage ;
begin
// if ADODataSet1photo.IsNull then exit;
sm:=ADODataSet1.CreateBlobStream(adodataset1.FieldByName('photo'),bmRead);
jpeg:=TJPEGImage.Create ;
jpeg.LoadFromStream(sm);
image1.Picture.Assign(jpeg);
jpeg.Free ;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
fs:TFileStream ;
begin
if ADODataSet1photo.IsNull then showmessage('nil');
ADODataSet1.Edit ;
fs:=TFileStream.Create('c:\xxx.jpg',fmOpenRead);
ADODataSet1photo.LoadFromStream(fs);
ADODataSet1.Post ;
fs.Free ;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
ms:TMemoryStream ;
begin
ms:=TMemoryStream.Create ;
OleContainer1.CreateObjectFromFile( 'c:\xxx.doc',false);
OleContainer1.SaveToStream(ms);
ADODataSet1.Edit ;
ADODataSet1photo.LoadFromStream(ms);
ADODataSet1.Post ;
ms.Free ;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
sm:TStream ;
begin
sm:=ADODataSet1.CreateBlobStream(adodataset1.FieldByName('photo'),bmRead);
OleContainer1.LoadFromStream(sm);
sm.Free ;


end;

procedure TForm1.Button4Click(Sender: TObject);
var
ms:TMemoryStream ;
begin
ms:=TMemoryStream.Create ;
OleContainer1.SaveToStream(ms);
ADODataSet1.Edit ;
ADODataSet1photo.LoadFromStream(ms);
ADODataSet1.Post ;
ms.Free ;

end;
回复
star_of_light 2003-01-09
TBlobField(ClientDataSet1.FieldByName('文件')).SaveToFile('D:\test\temp.doc');
回复
发动态
发帖子
网络通信/分布式开发
创建于2007-08-02

1566

社区成员

Delphi 网络通信/分布式开发
申请成为版主
社区公告
暂无公告