Erro TOleAuto/65535 - Fim de Tempo para Bloqueio

[MarcioCezar]

Olá Pessoal, estou com o seguinte problema:

Descrição do erro.: Erro TOleAuto/65535 - Fim de Tempo para Bloqueio: TOLEAUTO:NEW
Area Atual........: 1 - RPS
Argumentos:
[ 1] = C MSXML2.DOMDocument.5.0
[ 2] = U MSXML2.DOMDocument.5.0
[ 3] = U MSXML2.DOMDocument.5.0

Lista de Chamada
================
Chamada de THROW(0)
Chamada de TOLEAUTO:NEW(346)
Chamada de CREATEOBJECT(78)
Chamada de TMONTADOCUMENTOXML:ASSINAR(463)
Chamada de TRECIBOPROVISORIOSERVICOENVIARRPS:ENVIARRPSTINUS(1588)

Este erro está acontecendo no seguinte trecho de código:

#IfnDef DEBUG_MODE
TRY
oDOMDoc := CreateObject( "MSXML2.DOMDocument.5.0" ) <-- Aqui
CATCH
RETURN msgErro("Não foi possível carregar o componente MSXML2.DOMDocument.5.0", "Assinando")
END
#Else
oDOMDoc := CreateObject( "MSXML2.DOMDocument.5.0" )
#Endif

oDOMDoc:async := .F.
oDOMDoc:resolveExternals := .F.
oDOMDoc:validateOnParse := .T.
oDOMDoc:preserveWhiteSpace := .T.

Este é uma parte do código que realiza a assinatura do XML da nota de serviço.

Conto com a atenção de todos.
Este erro não ocorre aqui na minha máquina, mas está ocorrendo no cliente.

[JoséQuintas]

Instalou o MSXML5 ?

[alxsts]

Olá!

Seja bem-vindo ao Fórum Marcio Cezar!

Instalou o MSXML5 ?

Pelo que consta na mensagem de erro está instalado.

Isto funcionava e parou de funcionar? Será que não é erro de conexão com a internet?

[JoséQuintas]

Não, na mensagem de erro consta que o parâmetro foi "MSXML2.DomDocument.5.0".
E ele mesmo já confirmou que é na criação do objeto.

Se não consegue criar, a primeira coisa a verificar é se o MSXML5 está instalado.
Talvez também verificar se CAPICOM está instalada, já que ele faz uso dela.

[MarcioCezar]

Olá amigos, bom dia!

As DLLs estão na mesma pasta do programa. Quando se diz, "Instalar", está falando em Registrar a DLL?
Qual procedimento que devo fazer?

Obrigado!

[JoséQuintas]

Lembrando que precisa abrir o prompt como administrador pra poder registrar.

Conforme o Windows seja 32 ou 64 bits, a pasta é diferente.

Em Windows 64 bits é na pasta windows\syswow64
Em Windows 32 bits é na pasta windows\system32
É importante a pasta certa, porque CADA uma tem um regsvr32.exe, e não são iguais.

Dentro dessa pasta, registrar as DLLs

REGSVR32 msxml5.dll

Só uma das DLLs é que não precisa registrar, acho que é msxml5r.dll
É só registrar todas, apenas saiba que acusa erro ao registrar uma delas.

Não sei se dá certo deixar na pasta do aplicativo, mas não esqueça de usar o regsvr32.exe correto
\windows\syswow64\regsvr32.exe msxml5.dll ou \windows\system32\regsvr32.exe msxml5.dll
Melhor na pasta do Windows, já que é o Windows quem vai ser vinculado, e não o aplicativo.

[MarcioCezar]

Obrigado pela atenção.
Assim que puder, irei realizar estes procedimentos no cliente.
Postarei aqui o resultado.

[Kapiaba]

Em FiveWn, tente assim:

Código: Selecionar todos

      #IFDEF __XHARBOUR__  // xHarbour

         Try
             oServer:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" )
         Catch
            MsgInfo('Erro na Criação do Serviço')
            Return Nil
         End

      #ELSE

         Try
            oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0")
         Catch
            MsgInfo('Erro na Criação do Serviço!', 'Atenção!')
            exit
         End

      #ENDIF

Abs.

[MarcioCezar]

Olá Kapi,

Minha versão do Fivewin (17.06) não tem esta função (Win_OleCreateObject() ). Mas utilizando apenas CreateObject() funciona, deve ser apenas o registro da dll como José Quintas postou.

Valeu pela atenção!

[Kapiaba]

Bom dia Márcio, deve haver algum engano. Você está usando HARBOUR, ou xHARBOUR? Abs.

[JoséQuintas]

Pela mensagem de erro, deve ser XHarbour.
Como funciona na máquina dele, e não no cliente, isso indica que o EXE está ok, só pode ser a falta das DLLs.

[Kapiaba]

Mister Quintas, me refiro a Fivewin (17.06) não tem esta função (Win_OleCreateObject() ).

Abs.

[MarcioCezar]

Ola Kapi,
Eu uso Fivewin com xHarbour!

[Kapiaba]

Ok. Essa: Win_OleCreateObject() é para Harbour.

Abs.

[MarcioCezar]

Após seguir os procedimento postado por Quintas, deu certo!

Obrigado a todos pela atenção!

Lembrando que precisa abrir o prompt como administrador pra poder registrar.

Conforme o Windows seja 32 ou 64 bits, a pasta é diferente.

Em Windows 64 bits é na pasta windows\syswow64
Em Windows 32 bits é na pasta windows\system32
É importante a pasta certa, porque CADA uma tem um regsvr32.exe, e não são iguais.

Dentro dessa pasta, registrar as DLLs

REGSVR32 msxml5.dll

Só uma das DLLs é que não precisa registrar, acho que é msxml5r.dll
É só registrar todas, apenas saiba que acusa erro ao registrar uma delas.

Não sei se dá certo deixar na pasta do aplicativo, mas não esqueça de usar o regsvr32.exe correto
\windows\syswow64\regsvr32.exe msxml5.dll ou \windows\system32\regsvr32.exe msxml5.dll
Melhor na pasta do Windows, já que é o Windows quem vai ser vinculado, e não o aplicativo.