是否有数据库控件，可以读写SQLServer字段中存储的Word文档。

Question

是否有数据库控件，可以读写SQLServer字段中存储的Word文档。，就象DBImage控件，可以读写Binary字段中的数据。

Answer 1

用sqlserver的　image 字段就可以了。任何文件都可以。
var 
  P: Tmemorystream; 
  g : Tjpegimage; 
begin 
  Screen.Cursor := crHourGlass; 
  with ADOQuery2 do 
  begin 
    try 
      edit; 
      p := Tmemorystream.Create; 
      g := Tjpegimage.Create;       g.Assign(Image1.Picture.Graphic); 
      g.SaveToStream(p);       p.Position:=0; 
      TBlobField(FieldByName ('zp')).LoadFromStream(p); 
      post; 
    finally 
      p.Free; 
      g.Free; 
    end; 
  end; 
  Screen.Cursor := crdefault; 
end;

Answer 2

var
    AStream: TFileStream;
  begin
    AStream := TFileStream.Create(trim(edtFileName.Text), fmOpenRead);
    try
      with ADOTblX do
      begin
        Open;
        Insert;
        TblobField(FieldByName('FileText')).LoadFromStream(AStream); 
             //'FileText'字段为Image字段       
        Post;       
        MessageBox(handle, '上传成功！', '系统信息', mb_OK+MB_ICONInformation);
      end;
    finally
      AStream.Free;
    end;
  end;