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)
Я действительно не уверен, что, черт возьми, hapenning.
Линия, начинающаяся с 'dttocopy.Rows.Add (...' является подозрительной, поскольку она предполагает, что длина найденной строки всегда> = 4 (она использует 3 индекса в 'SubString()'). если это не так? Вы получаете исключение. Сначала вы должны проверить '' '' dt.Rows [iRow] [0] 'длину строки перед тем, как продолжить операции' SubString() '. – DonBoitnott
Вы ловите исключения? Является ли ваш' WriteStuff() 'метод захвата полезной информации? – DonBoitnott
Вздох, эти вопросы никогда не заканчиваются. Легко для диагностики проблемы, все, что вам нужно - это диспетчер задач. Вы увидите десятки экземпляров Excel.exe, которые на самом деле не удалось выпустить на ваш код Избавьтесь от своих глобальных переменных «xl» и сделайте их локальными переменными. Избавьтесь от всех этих неэффективных вызовов Clear() и ReleaseComObject(). Проверьте свой код, чтобы убедиться, что Excel.exe перестает работать после вызова GC.Collect + WaitForPendingFinalizers s. Do * not * проверьте вашу сборку Debug, только сборка Release без отладчика. –