【搞定】升级到2918后的错误**

kd_xjx

你的这个例子我再我们的版本上试试看，确定后给你反馈

jiahaiminghr

好的

kd_xjx

我们的环境是从2819上升级上来的，我是用Windows版本进行了测试问题依旧，我再做一个较为简单的例子测试一下。 目前来看，使用AIX系统上服务器，我再客户端看到的Word文档是乱码，这是什么原因，本来我觉得在oracle中是BLOB存储的，应当和操作系统没有关系，现在测试的情况来看好像有关系了，不太理解！

kd_xjx

我做了一个例子，使用2918版本后这个例子就报告这个错误了。我建议你们不要直接使用2918进行问题重现，可能问题出在升级包上。你们可以使用2819 然后升级到2918上来看看有没有这个问题。

yancm

推测可能是应用服务器和数据库服务器的编码格式不一致导致的。

kd_xjx

问题是应当怎么处理呢，下面是我做的一个例子 我这里运行还是报错

kd_xjx

建议你们首先使用2819 然后升级到2918后测试这个例子

kd_xjx

例子

kd_xjx

例子

kd_xjx

我们这里网络太慢了，我把例子的源代码贴上来，你们看看吧，一个功能两个按钮：

unit BQCS;

interface

uses
  Business.System, Business.Forms, DocLib, DocOffice;

type
  TBQCS = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    {private declarations}
    FWordOleExtend: TWordOleExtend;
  public
    {public declarations}
  end;

implementation

procedure TBQCS.Button1Click(Sender: TObject);
begin
  //Open Word Doc
  FWordOleExtend := TUnStructureDocUtils.CreateWordOleExtend('');
  TUnStructureDocUtils.OpenWordDoc(FWordOleExtend, 'C:\test.doc', True);
  TUnStructureDocUtils.ShowWordFieldCodes(FWordOleExtend, True);
end;

procedure TBQCS.Button2Click(Sender: TObject);
begin
  // Add Tag To Doc
  TUnStructureDocUtils.AddWordField(FWordOleExtend, 'WordTagTest', '');
end;

end.