全部博文(788)
分类:
2009-02-19 17:03:24
用流,什么都可以装到数据库里面的。
能说的清楚点吗?我不能怎么使用流,谢谢 !
var
FStream: TFileStream;
BStream: TBlobStream;
begin
if not OpenDialog1.Execute then exit;
FStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
Table1.Edit;
BStream := TBlobStream.Create(Table1Doc,bmReadwrite);
BStream.CopyFrom(FStream,FStream.Size);
Table1.Post;
BStream.Free;
FStream.Free;
end;
请继续关注!
恩,关注下。