PC Toledo

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.

Instalou o MSXML5 ?

Olá!

Seja bem-vindo ao Fórum Marcio Cezar!

Jose Quintas escreveu: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?

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.

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!

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.

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

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.

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!

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

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.

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

Abs.

Ola Kapi,
Eu uso Fivewin com xHarbour!

Ok. Essa: Win_OleCreateObject() é para Harbour.

Abs.

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.