http://www.delphi2007.net/DelphiDB/html/delphi_20061220102347209.html
各位大侠:
怎么样才能把文件写入SQL SERVER中?
用流,什么都可以装到数据库里面的。
能说的清楚点吗?我不能怎么使用流,谢谢 !
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;
请继续关注!
恩,关注下。