2013-06-04 248 views
7

此异常System.Runtime.InteropServices.COMException(0x800706BA):RPC服务器不可用。 (异常来自HRESULT:0x800706BA)

System.Runtime.InteropServices.COMException (0x800706BA): 
The RPC server is unavailable. (Exception from HRESULT: 0x800706BA) 

在我的Windows服务在收到时我在任何机器上运行它,但是当我在测试应用程序测试它不会抛出异常。在我的代码中,我正在将两个.DAT文件转换为.xls文件。当我通过services.msc启动服务并运行该服务时,它运行良好一段时间,但在更新某些行之后,它会抛出异常,然后再没有任何事情发生。我有两个单独的功能来完成这项工作。示例代码是:

 public void SaveData_component(string filename) 
    { 
     try 
     { 
      string filepath = System.Configuration.ConfigurationSettings.AppSettings["filepath"].ToString() + filename; 
      filepath_first = filepath; 

      object missing = Missing.Value; 
      //string getExtension = Path.GetExtension(filepath); 
      string getFilename = Path.GetFileNameWithoutExtension(filepath) + "New"; 
      string filepathNew = System.Configuration.ConfigurationSettings.AppSettings["filepath"].ToString() + getFilename + ".xls"; 

      try 
      { 
       xlAppNew1 = new Application(); 
       xlAppNew1.DisplayAlerts = true; 
       workbooks1 = xlAppNew1.Workbooks; 
       workbook1 = workbooks1.Open(@filepath, 0, true, 1, "", "", true, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0); 
       // xlWorkSheet1 = (Microsoft.Office.Interop.Excel.Worksheet)workbook1.Worksheets.get_Item(1); 

       xlAppNew1.ActiveWorkbook.SaveAs(@filepathNew, -4143, "", "", false, false, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, 
       missing, missing, missing, missing, missing); 


       string getExtension = ".xls";//Path.GetExtension(filepathnew); 
       //string getFilename = Path.GetFileNameWithoutExtension(filepathnew); 
       string connString = ""; 

       if (getExtension.ToLower() == ".xls") 
        connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepathNew + ";Extended Properties=\"Excel 8.0;HDR=YES;IMEX=1;\""; 

       else 
        connString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filepathNew + ";Extended Properties=Excel 12.0 Xml;HDR=Yes;IMEX=1;"; 

       OleDbConnection con = new OleDbConnection(connString); 

       con.Open(); 
       System.Data.DataTable dtSheet = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null); 
       string tname = dtSheet.Rows[0]["TABLE_NAME"].ToString(); 
       OleDbDataAdapter ad = new OleDbDataAdapter(@"Select * FROM [" + tname + "];", con); 
       DataSet dset = new DataSet(); 
       ad.Fill(dset, "ProductOrderBOM"); 
       System.Data.DataTable dt = new System.Data.DataTable(); 
       System.Data.DataTable dttocopy = new System.Data.DataTable(); 
       dt = dset.Tables["ProductOrderBOM"]; 
       if (dt != null || dt.Rows.Count > 0) 
       { 
        dttocopy.Columns.Add("Column1", typeof(string)); 
        dttocopy.Columns.Add("Column2", typeof(string)); 
        dttocopy.Columns.Add("Column3", typeof(string)); 
        dttocopy.Columns.Add("Column4", typeof(string)); 
        dttocopy.Columns.Add("Column5", typeof(string)); 
        dttocopy.Columns.Add("Column6", typeof(string)); 
        dttocopy.Columns.Add("Column7", typeof(string)); 
        dttocopy.Columns.Add("Column8", typeof(string)); 
        dttocopy.Columns.Add("Column9", typeof(string)); 

        for (int iRow = 0; iRow < dt.Rows.Count; iRow++) 
        { 

         dttocopy.Rows.Add(dt.Rows[iRow][0].ToString().Substring(3, 9), dt.Rows[iRow][0].ToString().Substring(12, 4), dt.Rows[iRow][0].ToString().Substring(16, 18), dt.Rows[iRow][0].ToString().Substring(34, 8), dt.Rows[iRow][0].ToString().Substring(42, 4), dt.Rows[iRow][0].ToString().Substring(46, 18), dt.Rows[iRow][0].ToString().Substring(64, 40), dt.Rows[iRow][0].ToString().Substring(104, 3), dt.Rows[iRow][0].ToString().Substring(107, 5)); 

        } 

        foreach (DataRow item in dttocopy.Rows) 
        { 
         if (item.ItemArray[0].ToString() != "" && item.ItemArray[5].ToString() != "" && item.ItemArray[8].ToString() != "") 
         { 
          string prdorderno = item.ItemArray[0].ToString().Trim(); 
          string materialcode = item.ItemArray[5].ToString().Trim(); 
          double qty = Convert.ToDouble(item.ItemArray[8].ToString().Trim()); 

          d1 = callprocedure(prdorderno, materialcode, Math.Round(qty, 2)); 
          if (d1 != null) 
          { 
           if (d1.Tables[0].Rows[0]["Column1"] != null) 
           { 
            WriteStuff(d1.Tables[0].Rows[0]["Column1"].ToString()); 
           } 
          } 
         } 
        } 
       } 
       d1.Clear(); 
       d1.Dispose(); 
       dset.Clear(); 
       dset.Dispose(); 
       dtSheet.Clear(); 
       dtSheet.Dispose(); 
       dt.Clear(); 
       dt.Dispose(); 
       dttocopy.Clear(); 
       dttocopy.Dispose(); 
       ad.Dispose(); 
       con.Close(); 
       con.Dispose(); 

      } 
      catch (Exception Ex) 
      { 
        WriteStuff(Convert.ToString(Ex) + "save_datacomponent function before finally"); 
      } 
      finally 
      { 
       GC.Collect(); 
       GC.WaitForPendingFinalizers(); 
       if (workbooks1 != null) System.Runtime.InteropServices.Marshal.ReleaseComObject(workbooks1); 
       if (workbook1 != null) 
       { 
        workbook1.Close(Type.Missing, Type.Missing, Type.Missing); 
        System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook1); 
       } 
       if (xlAppNew1 != null) 
       { 
        xlAppNew1.Quit(); 
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlAppNew1); 
       } 


      } 

这是工作完成的功能。任何帮助都将非常可观。 我Writestuff()方法是抓住以下异常:

System.Runtime.InteropServices.COMException (0x800706BA): The RPC server is unavailable. (Exception from HRESULT: 0x800706BA) at Microsoft.Office.Interop.Excel.WorkbookClass.Close(Object SaveChanges, Object Filename, Object RouteWorkbook)at MyNewService.MyNewService.SaveData_component(String filename)savedata_component functionSystem.IO.FileNotFoundException: Could not find file 'C:\SUMIT\COMPONENT_TAI_PT1_RMKH_3799_20130603_030504New_03-06-2013-18-07-09-537_04-06-2013-16-42-20-194.DAT'. 

另外,如果我摆脱我的代码中明确方法和

System.Runtime.InteropServices.Marshal.FinalReleaseComObject(); 

另一个例外来到我的方式:

System.Runtime.InteropServices.InvalidComObjectException: COM object that has been separated from its underlying RCW cannot be used.at Microsoft.Office.Interop.Excel.WorkbookClass.Close(Object SaveChanges, Object Filename, Object RouteWorkbook)at MyNewService.MyNewService.SaveData_component(String filename) 

我真的不知道到底发生了什么。

+0

开始'dttocopy.Rows.Add(...'的行被怀疑,因为它假定它找到的字符串的长度总是> = 4(它在SubString()中使用3个索引)。如果这不是真的,那么你会得到一个异常:在进行SubString()操作之前,你应该首先测试'dt.Rows [iRow] [0]'字符串长度 – DonBoitnott

+0

你是否捕获异常?你的'WriteStuff() '方法获取有用的信息? – DonBoitnott

+3

叹息,这些问题永远不会结束。很容易诊断问题,你需要的只是任务管理器。你会看到几十个Excel.exe实例,你的代码实际上并没有设法释放。摆脱你的全局“xl”变量并使它们成为局部变量。摆脱所有这些无效的Clear()和ReleaseComObject()调用。测试你的代码以确保在GC.Collect + WaitForPendingFinalizers调用之后Excel.exe停止运行秒。 *不*测试您的调试版本,只有发布版本没有附加调试器。 –

回答

0

http://support.microsoft.com/kb/257757

在解释虽然文章指出,Office 2003的支持已经结束,内容是今天仍然有效:Microsoft不支持Office的服务器端自动化。即使在客户端自动化Office interop也很古怪。

你最喜欢的图书馆如Aspose或NPOI。

相关问题