PC Toledo

Bom dia,

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

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

Obrigado,

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 //

Rossine,

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

rossine escreveu: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.

Olá Leonardo, irei dar olhada neste material Obrigado.

Olá Quintas, entendi como funciona. Obrigado.

PC Toledo

Versão do XMLHTTP

Versão do XMLHTTP

Versão do XMLHTTP

Versão do XMLHTTP

Versão do XMLHTTP

Versão do XMLHTTP