delphi2007 教程

用流，什么都可以装到数据库里面的。

能说的清楚点吗？我不能怎么使用流，谢谢   ！

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;  
 

请继续关注！

恩，关注下。