这是DLL中的一段代码:
   try
        Coinitialize(nil);
        ExcelApp :=CreateOleObject( 'Excel.Application' );
    except
         on e:exception do
         begin
            result :=e.message+'4';
            exit;
        end;
    end;
系统运行时抱错:
拒绝访问。
这是怎么回事情?

解决方案 »

  1.   

    后来,我在DLL中添加了一个FORM,放了ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;三个控件。
    又写了如下代码:
    try
            ExcelApplication1 := TExcelApplication.Create(Application);
            ExcelWorksheet1 := TExcelWorksheet.Create(Application);
            ExcelWorkbook1 := TExcelWorkbook.Create(Application);
        except
            on e:exception do
             begin
                result :='服务器上没有安装EXCEL组件,'+e.message+'请联系管理员1';
                exit;
             end;
        end;    try
            ExcelApplication1.Connect;
        except
            on e:exception do
             begin
                result :='服务器上没有安装EXCEL组件,'+e.message+'请联系管理员2';
                exit;
             end;
        end;
    报错处是;ExcelApplication1.Connect;,提示还是拒绝访问。服务器是2000EXCEL我装的XP,
      

  2.   

    服务器是2000EXCEL我装的XP
    估计是版本不同的问题