Неизвестная системная ошибка

[opfr83]

При проверке пачек с адресами в протоколе после строчек

"Успешно создан СОМ-объект an_adr2006

Проверка 1-го документа ИС_СЗВ-4-1...

№2 [ФИО]: <.....>"

Выводится сообщение

"Неизвестная системная ошибка."

systempatch1_0.exe устанавливался
ОС Win2003 Server SP2

Есть какие-нибудь рекомендации?
Заранее спасибо.

[Дмитрий]

Ответ: Неизвестная системная ошибка

а сама то программа какой версии?

[opfr83]

Ответ: Неизвестная системная ошибка

Пробовали начиная с версии от 14.01.
Сегодня пробовали версию от 25.01

[Дмитрий]

Ответ: Неизвестная системная ошибка

сначала ставите последнюю версию, потом патч
с рекомендациями, изложенными здесь
https://www.buhsoft.ru/forums/showthread.php?t=6935

все так и сделали? абсолютно точно?

[opfr83]

Ответ: Неизвестная системная ошибка

Да, все так. Точно.


!!!!! Сегодня попробовали еще одну вещь.
Поставили VFP 8.0. Целиком.
У нас стал работать интерактивный CheckXML.
Но не работает вызов библиотеки cpsnxml.dll через программный интерфейс (вернее, работает, но при проверке ЗЛ с адресами все та же "неизвестная системная ошибка").
В чем разница ?!!!
А нас ведь интересует именно вызов библиотеки - для пакетного прогона файлов из наших программ.

[Дмитрий]

Ответ: Неизвестная системная ошибка

я запутался что-то
что такое "интерактивный CheckXML" ?
"Поставили VFP 8.0. Целиком" Откуда?

в общем, ничего непонятно.
Можете описать более подробно и более последовательно?

[opfr83]

Ответ: Неизвестная системная ошибка

Поскольку решили "шаманить" до последнего, то поставили Microsoft Visual FoxPro 8.0 из дистрибутива. Это позволило заставить-таки работать интерактивную версию CheckXML (это Ваш полноценный программный продукт "как есть"). Даже обрадовались. Но рано При вызове функций библиотеки cpsnxml.dll (той же самой, которая лежит в Вашем дистрибутиве), остается все та же системная ошибка. Непонятно, в чем разница. Может, изменился программный интерфейс dll-библиотеки? Хотя с другой стороны, все отлично работает на файлах без адресов. Куда дальше рыть? Очень надо использовать именно в "консольном", пакетном варианте

[Дмитрий]

Ответ: Неизвестная системная ошибка

ну это уже вам видней. Я ж не знаю, как она там у вас вызывается...

[opfr83]

Ответ: Неизвестная системная ошибка

Вызывается в соответствии с приложенным документом (от Екжанова). Было бы понятно если бы не работало в принципе, но проверка не работает только на адресах. Кроме того имеется в наличии еще два сервера, на которых наш способ вызова работает замечательно. И с адресами. С такой же ОС.

Вот примера кода, написанного на VB, для тестирования вызова библиотеки:

Declare Function cpsnInitLib Lib "CPSNXML" (hParent As Long, ByVal sBaseDir As String) As Long
Declare Function cpsnInitLib2 Lib "CPSNXML" (hParent As Long, ByVal sBaseDir As String, ByVal sKladrDir As String) As Long
Declare Function cpsnValidate Lib "CPSNXML" (ByVal sXmlFileName As String, ByRef nError As Long, ByRef nWarning As Long) As Long
Declare Function cpsnValidateZ Lib "CPSNXML" (ByVal sXmlFileName As String) As Long
Declare Function cpsnGetLogFileName Lib "CPSNXML" (ByVal sXmlFileName As String, ByVal sLogFileName As String, ByVal nLogFileNameLen As Long, ByVal bFullPath As Long) As Long
Declare Function cpsnFreeLib Lib "CPSNXML" () As Long



Private Sub Command1_Click()

Dim file As String
Dim err As Long
Dim war As Long

res = cpsnValidate(txtFile.Text, err, war)
MsgBox "res = " + Str(res) + vbCrLf + "Err = " + Str(err) + vbCrLf + "War = " + Str(war)

End Sub


Private Sub Form_Load()
Dim sBaseDir As String
Dim sKladr As String
Dim res As Long


sBaseDir = "C:\\PF\\CheckXML\\"
sKladr = "C:\\PF\\CheckXML\\kladr\\"

res = cpsnInitLib2(Me.hWnd, sBaseDir, sKladr)

MsgBox "Res = " + Str(res)

End Sub

Private Sub Form_Unload(Cancel As Integer)
cpsnFreeLib
End Sub

[Дмитрий]

Ответ: Неизвестная системная ошибка

ВизуалБейсиком я не очень часто занимаюсь....

[opfr83]

Ответ: Неизвестная системная ошибка

А на C++ ?


Объявление функций:
HRESULT (__stdcall *dll_cpsnInitLib) (HWND hParent, LPCTSTR lpszBaseDir);
HRESULT (__stdcall *dll_cpsnInitLib2) (HWND hParent, LPCTSTR lpszBaseDir, LPCTSTR lpszKladrDir);
HRESULT (__stdcall *dll_cpsnValidate) (LPCTSTR lpszXmlFn, UINT *pnError, UINT *pnWarning);
HRESULT (__stdcall *dll_cpsnValidateZ) (LPCTSTR lpszXmlFn);
int (__stdcall *dll_cpsnGetLogFileName) (LPCTSTR lpszXmlFileName, LPTSTR lpszLogFileName, int nLogFileNameLen, BOOL bFullPath);
HRESULT (__stdcall *dll_cpsnFreeLib) (void);

HINSTANCE CPSNXMLdllp;

int loadCpsnInitLib()
{
CPSNXMLdllp = LoadLibrary("CPSNXML.dll");

if(CPSNXMLdllp) {
dll_cpsnInitLib = (HRESULT(__stdcall *)(HWND, LPCTSTR))GetProcAddress(CPSNXMLdllp, "cpsnInitLib");
if (!dll_cpsnInitLib) {
return 1;
}

dll_cpsnInitLib2 = (HRESULT(__stdcall *)(HWND, LPCTSTR, LPCTSTR))GetProcAddress(CPSNXMLdllp, "cpsnInitLib2");
if (!dll_cpsnInitLib2) {
return 1;
}

dll_cpsnValidate = (HRESULT(__stdcall *)(LPCTSTR, UINT*, UINT*))GetProcAddress(CPSNXMLdllp, "cpsnValidate");
if (!dll_cpsnValidate) {
return 1;
}

dll_cpsnValidateZ = (HRESULT(__stdcall *)(LPCTSTR))GetProcAddress(CPSNXMLdllp, "cpsnValidateZ");
if (!dll_cpsnValidateZ) {
return 1;
}

dll_cpsnGetLogFileName = (int(__stdcall *)(LPCTSTR, LPTSTR, int, BOOL))GetProcAddress(CPSNXMLdllp, "cpsnGetLogFileName");
if (!dll_cpsnGetLogFileName) {
return 1;
}

dll_cpsnFreeLib = (HRESULT(__stdcall *)(void))GetProcAddress(CPSNXMLdllp, "cpsnFreeLib");
if (!dll_cpsnFreeLib) {
return 1;
}

} else {
return 1;
}
return 0;
}


HRESULT cpsnInitLib(HWND hParent, LPCTSTR lpszBaseDir)
{
return (*dll_cpsnInitLib)(hParent, lpszBaseDir);
}

HRESULT cpsnInitLib2(HWND hParent, LPCTSTR lpszBaseDir, LPCTSTR lpszKladrDir)
{
return (*dll_cpsnInitLib2)(hParent, lpszBaseDir, lpszKladrDir);
}


HRESULT cpsnValidate(LPCTSTR lpszXmlFn, UINT *pnError, UINT *pnWarning)
{
return (*dll_cpsnValidate)(lpszXmlFn, pnError, pnWarning);
}

HRESULT cpsnValidateZ(LPCTSTR lpszXmlFn)
{
return (*dll_cpsnValidateZ)(lpszXmlFn);
}


int cpsnGetLogFileName(LPCTSTR lpszXmlFileName, LPTSTR lpszLogFileName, int nLogFileNameLen, BOOL bFullPath)
{
return (*dll_cpsnGetLogFileName) (lpszXmlFileName, lpszLogFileName, nLogFileNameLen, bFullPath);
}


HRESULT cpsnFreeLib(void)
{
HRESULT result;
result = (dll_cpsnFreeLib)();
FreeLibrary(CPSNXMLdllp);
return result;

}


Использование:




message("Load CheckXML base... ");
loadCpsnInitLib();
result = cpsnInitLib(0, base_dir);
if (result != 0) {
message("ERROR\n");
return 1;
}
message("OK\n");


.....

message("Cheking file ");
message(szFile);
message("... \n");
result = cpsnValidate(szFile, &error, &warning);

.....

cpsnFreeLib();

[Дмитрий]

Ответ: Неизвестная системная ошибка

Честно говоря, времени разбираться с вашим кодом катастрофически мало...

[opfr83]

Ответ: Неизвестная системная ошибка

Тогда, может, дадите свой? Только вызов?

[Дмитрий]

Ответ: Неизвестная системная ошибка

Таких полномочий у меня нет...

[Moisey]

Ответ: Неизвестная системная ошибка

А ошибка есть ((