。。。。。高手请进!我已经问了N次了，可是没有人知道。。关于word问题（200分)。。。。。。。。

Question

我在开发以下结构程序
浏览器《＝》WEB服务器《＝》MIDAS应用程序服务器《＝》SQLSERVER2000
我做了一个active form 用olecont..来显示word，可以显示与打开word，并能保存word可以
只能在本地用，远程的无法用。
这是从服务器下载的程序
procedure Tgxmsdc.ToolButton3Click(Sender: TObject);
var
  MyStream:TStream;
begin
  adoquery1.SQL.Text:='select * from ww where a=''edit1''';
  adoquery1.Open;
  try
    MyStream:=TADOBlobStream.Create(TBlobField(adoquery1.FieldByName('f')),bmRead);
    OleContainer1.LoadFromStream(MyStream);
    OleContainer1.DoVerb(ovPrimary);
  except
    showmessage('wrong');
  end;
end;这是保存到数据库的程序
begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select title from notes where id='+fileid);
    adoquery1.Open;
    with ADOQuery1 do
    begin
    Edit;
      TBlobField(fieldbyname('f')).LoadFromStream(Stre);
    Post;
      FreeAndNil(Stre);
end;我想知道什么才能使远程能用，即如何下载远程序的数据库中的wrod文档，及上传word文件到远程数据库中,希望通过HTTP来实现,速度可以就行了如果您真的能解决了，我可以把我现在的900分一起给你
这是我以前问的
http://community.csdn.net/Expert/topic/3672/3672673.xml?temp=.9562799

Answer 1

我忘记说明了，我要保存到数据库中的是olecon...中打开 的word

Answer 2

这样的东西做得好，可以卖钱的，现在网上有不少这样的产品，
那个什么金格公司就专门卖iWebOffice.不过我们公司自己的OA
中用的是我自己开发的。

Answer 3

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 ADODataSet1.Close;
 ADODataSet1.CommandText:='select * from test where id='+edit2.Text;
 ADODataSet1.Open;
(ADODataSet1.FieldByName('image') AS TBlobField).SaveToFile('d:\aaa.doc');
end;

Answer 4

你的机器上装了3721了吧！这是ole的bag.
如果是你把3721彻底的删除看看吧！
以前我也遇到这样类似的情况！

Answer 5

myy() 说得对，网上很多公司都做这个控件。