您的位置:首页 > 数据库

将文件放入数据库,操作TBlobField

2007-01-01 13:45 309 查看
读取:
var
MS:TMemoryStream;
begin
........
........
MS:=TMemoryStream(DataSet1.CreateBlobStream(DataSet.FieldByName('Field1),bmRead));
.....
现在已经将Field1字段转换成TMemoryStream类型了,保存在MS中了,
希望对你有所帮助。
插入:
TBlobField(Table.FieldbyName('xxx')).LoadFromFile();
也可以用LoadFromStream
例:
var
MS: TMemoryStream;
begin
//如果不在修改或增加状态,改变状态
if not (table1.State in [dsInsert, dsEdit]) then
table1.Insert;
MS := TMemoryStream.Create();
try
Image1.Picture.Bitmap.SaveToStream(MS);
TBlobField(Table.FieldbyName('xxx')).LoadFromStream(MS);
finally
MS.Free;
end;
Table1.Post; //提交数据
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐