PC Toledo

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

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

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.

Bom dia pessoal!

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

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.

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.

Boa tarde.

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

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