如何用DELPHI实现把WORD EXCEL和图片等存储到数据库中

分享一下我老师大神的人工智能教程。零基础！通俗易懂！风趣幽默！还带黄段子！希望你也加入到我们人工智能的队伍中来！https://blog.csdn.net/jiangjunshow

                 用image字段保存这些文档。  
  var  
        word_stream:   TMemoryStream;  
        filename:   string;  
  begin  
        if   odgDoc.Execute   then//odgDoc:OpenDialog  
        begin  
              filename   :=   ExtractFileName(odgDoc.FileName);  
              word_stream   :=   TMemoryStream.Create;  
              word_stream.LoadFromFile(odgDoc.FileName);  
              word_stream.Position   :=   0;  
              cdsPACT.Append  
              cdsPACT.FieldByName('DocName').Value   :=   filename;  
              TBlobField(cdsPACT.FieldByName('PactText')).LoadFromSt