【结贴】文档打开问题**

rzport_gongyu

我在引用 知识中心功能中 有一个打开按钮的代码的时候。
出现下面错误。 功能 编译的时候没有错误。

是不是文档必须是通过这个功能上传的时候 才能用这个打开代码？

代码如下
unit MAINFORM;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data,DocLib;

type
    TMAINFORM = class(TForm)

    FuncBroker: TFuncBroker;
    InfoBrokerSWGDXXCX: TInfoBroker;
    PageControl: TPageControl;
    TabSheet: TTabSheet;
    DataSetBroker2: TDataSetBroker;
    ControlBar: TControlBar;
    Label3: TLabel;
    DataSetBroker1: TDataSetBroker;
    DataSetBroker3: TDataSetBroker;
    DocView2: TDocView;
    DataSetBroker4: TDataSetBroker;
    BizToolBar1: TBizToolBar;
    Button1: TButton;
    DataSetdsWDS: TSQLDataSet;
    OpenDialog1: TOpenDialog;
    DataSource1: TDataSource;
    FIELD_dsWDS_FISDIRECTORY: TUserDataField;
   
    procedure Button1Click(Sender: TObject);
  private
    function isFile: Boolean;
    function GetFileName: String;
  public
      property FileName: String read GetFileName;
  end;

implementation

function TMAINFORM.isFile: Boolean;
  begin
      result := DataSetdsWDS.FieldByName('FISDIRECTORY').AsString = 'N';
  end;
function TMAINFORM.GetFileName: String;
begin
  with DataSetdsWDS do
    begin
      if not Active then Open;
      if (RecordCount > 0) then
        result := DataSetdsWDS.FieldByName('Path').AsString
      else result := '';
    end;
end;
      procedure TMAINFORM.Button1Click(Sender: TObject);
var
  lResult: String;
begin
  if not isFile then exit;
  try
    lResult := TUnStructureDocUtils.OpenFile(Context, FileName, TDocAccessKind.akReadOut);
  except
    lResult := TUnStructureDocUtils.OpenFile(Context, FileName, TDocAccessKind.akReadOut);
  end;
  jsDialogs.ShowMsg(lResult, 'OpenFile:');
end;

end.

atiger

1、跟踪看看，执行哪段代码报错？
2、DataSetdsWDS这个数据集有FISDIRECTORY 这个字段吗？
3、该数据集打开了吗？

rzport_gongyu

数据集中有这个字段 我测试里面都有数据的

  result := DataSetdsWDS.FieldByName('FISDIRECTORY').AsString = 'N';      是这里报错

jiahaiming

在这句上设置断点，看看这个数据集的状态（是否没有打开，如果打开了，再检查一下'FISDIRECTORY'字段）

rzport_gongyu

result := DataSetdsWDS.FieldByName('FISDIRECTORY').AsString = 'N'  运行的时候  数据集没有打开
  后来因为我们的传的都是文档 就没+这个判断  直接result := true; 了  能够打开了

想问一下什么原因数据集没有打开呢

jiahaiming

这个就不太清楚了，需要跟踪代码看看。
应该与楼主的具体环境有关。

rzport_gongyu

好的 有问题再交流 结帖