win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0")

[eduardomc00]

Pessoal, boa tarde!!!
Me desculpem se há algum tipo de tópico, mas procurei e não achei!

Seguinte, estou com problemas de utilizar win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0") (ou 6.0) no Win 10. (SOMENTE WIN 10)

Se o Windows é 10 mas foi uma atualização do win8 funciona!!!!

Já atualizei a dll MSXML5.dll, mas não quer funcionar por nada!

Alguém já passou por isso ?

Código: Selecionar todos

  TRY
      oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0")
   CATCH
   	RETURN( {} )
   END
   TRY
      oServer:Open( "GET", cUrl2, .F. ) // Erro dá aqui, não acha o método OPEN.
   CATCH
      RETURN( {} )
   END

[sygecom]

Coloque em um .BAT e execute como administrador.

Código: Selecionar todos

ECHO *** Removendo registro das DLLs ***
regsvr32 c:\temp\msxml5.dll /u
regsvr32 c:\temp\msxml6.dll /u

ECHO *** Registrando as DLLs ***
regsvr32 c:\temp\msxml5.dll
regsvr32 c:\temp\msxml6.dll

Nota: tenha as DLL em C:\TEMP

[JoséQuintas]

Código: Selecionar todos

FUNCTION InstalaCapicom()

   LOCAL cPath := "c:\windows\system32\"

   IF Len( Directory( "c:\windows\syswow64\*.*" ) ) != 0
      cPath := "c:\windows\syswow64\"
   ENDIF
   hb_MemoWrit( cPath + "capicom.dll", ze_RawImage( "CAPICOM.DLL" ) )
   hb_MemoWrit( cPath + "msxml5.dll",  ze_RawImage( "MSXML5.DLL" ) )
   hb_MemoWrit( cPath + "msxml5r.dll", ze_RawImage( "MSXML5R.DLL" ) )
   RUN ( cPath + "regsvr32.exe " + cPath + "capicom.dll" )
   RUN ( cPath + "regsvr32.exe " + cPath + "msxml5.dll" )

   RETURN NIL

Atenção ao PATH do regsvr32.exe, no 64 bits existem 2.

[eduardomc00]

Bom dia pessoal!

eu já fiz isso, fiz até manualmente pra desencargo, mas não funcionou !

[JoséQuintas]

Fez na pasta certa, com o regsvr32 certo?

Em Windows 10 64 bits:

programas 32 bits precisam das DLLs em \windows\syswow64, registrados por \windows\syswow64\regsvr32.exe
programas 64 bits precisam das DLLs em \windows\system32, registrados por \windows\system32\regsvr32.exe

XHarbour... é complicado, depende do XHarbour, da LIB usada, etc.
Harbour... também tem conflito se usar LIB de compatiblidade XHarbour, e me parece que com GTWVW também.

Parece que existem duas rotinas de usar DLL, uma destinada a OLE e outra a Activex.
Se entrar a de Activex... ferrou tudo, mesmo que use a de OLE depois.
Essa foi a impressão que eu tive, que dependendo do "conjunto", acontece esse problema.

Descobrir o que causa conflito: complicado, talvez testes isolados, e acrescentar uma LIB de cada vez, ou alguma coisa diferente do normal de cada vez. O principal é primeiro conseguir um teste isolado que funcione, antes de acrescentar outras coisas.

[Itamar M. Lins Jr.]

Ola!

programas 32 bits precisam das DLLs em \windows\syswow64, registrados por \windows\syswow64\regsvr32.exe

Funciona um programa feito usando 64Bit acessar DLL de 32Bit ?

Saudações,
Itamar M. Lins Jr.

[eduardomc00]

Boa tarde.

Sim, eu fiz na pasta certa!
Meu programa é 32 bits. Em outras versões do Windows está funcionando normalmente!

[sygecom]

Eduardo,
Posta o erro do que não da certo.