Versão do XMLHTTP

[rossine]

Bom dia,

Tem como eu saber qual versão de XMLHTTP está intalado na minha máquina ?

Código: Selecionar todos

MSXML2.ServerXMLHTTP ou
MSXML2.ServerXMLHTTP.5.0 ou
MSXML2.ServerXMLHTTP.6.0 ou
outra...

Obrigado,

[rossine]

Olá,

A maneira que achei para identificar, está abaixo:

O Ideal seria buscar nas chaves do registro do windows para tentar identificar quais versões estão instaladas e buscar a mais recente.

Código: Selecionar todos

function MAin

   local aServers, n, aServers_oAtv := { }, cString

   cls
   
   aServers := { "MSXML2.ServerXMLHTTP", ;
                 "MSXML2.ServerXMLHTTP.7.0", ;
                 "MSXML2.ServerXMLHTTP.6.0", ;
                 "MSXML2.ServerXMLHTTP.5.0", ;
                 "MSXML2.ServerXMLHTTP.4.0", ;
                 "MSXML2.ServerXMLHTTP.3.0", ;
                 "MSXML2.ServerXMLHTTP.2.0" }

   for n = 1 to len(aServers)
       BEGIN SEQUENCE WITH {|o| break(o)}
             oHttp := Win_OleCreateObject( aServers[n] )
             aadd( aServers_oAtv, hb_IsObject( oHttp ) ) 
             if hb_IsObject( oHttp ) .and. empty( cString )
                cString := aServers[n]
             endif
       RECOVER
             aadd( aServers_oAtv, .F. ) 
       END SEQUENCE
   next n

   ? "Servidor:", cString

   ? "Lista Servidores", hb_valtoexp(aServers_oAtv)

return NIL

// EOF //

[sygecom]

Rossine,

Da uma olhada nesse exemplo abaixo, pode ser o caminho que procura.
https://github.com/FiveTechSoft/FWH_too ... rowser.zip

[JoséQuintas]

O Ideal seria buscar nas chaves do registro do windows para tentar identificar quais versões estão instaladas e buscar a mais recente.

Lembrando que isso só precisa pra X-Harbour, e não resolve nada.

Pra Harbour é só usar XMLHTTP sem indicar versão, e ele seleciona automático a que for necessária.

[rossine]

Olá Leonardo, irei dar olhada neste material Obrigado.

Olá Quintas, entendi como funciona. Obrigado.