CreateObject com API usando .PEM e .KEY (ssl)

[Ari]

Estimado,

Necesito conectarme a una API y me pide un certificado con los archivos: .PEN y .KEY key

yo uso xharbour

¿Alguien tiene un ejemplo de cómo hacer esta conexión?

* Usar POSTMAN y registrar el certificado funciona.

* La API de mi cliente utiliza "Sin autenticación"

[código]

Ejemplo de código fuente API para establecer la conexión:

======================================================
METHOD StartApi() CLASS TApi // Conecta com o Servidor
======================================================
local n

TRY
::oServer = CreateObject( 'MSXML2.XMLHTTP')
CATCH
::oServer = CreateObject( 'MSXML2.ServerXMLHTTP.6.0')
END

if ::oServer == NIL
Msg('Erro interno na criação do oServer')
return nil
Endif

TRY

// cMethod (POST,GET)
// cServer ( URL ) em HTTPS
// cRota ( EndPoint )

::oServer:Open( ::cMethod, ::cServer + ::cRota, .F. )
::oServer:SetRequestHeader( 'cache-control' , 'no-cache' )
::oServer:SetRequestHeader( 'Connection' , 'keep-alive' )
::oServer:SetRequestHeader( 'Accept' , '*/*' )
::oServer:SetRequestHeader( 'Content-Type' , 'text/html,application/json' )


CATCH
END

return nil

===============================================
METHOD EndApi() CLASS TApi // Envia o conteudo
===============================================
TRY
if !empty( ::cBody )
::oServer:Send(::cBody) // quando tem conteúdo no Body
Else
::oServer:Send() // sem conteúdo no Body
Endif

While ::oServer:readyState <> 4
::oServer:WaitForResponse( 500 )
End
::cResponse := ::oServer:responseText

::cBody := ""
::aHeaders := {}
CATCH
BREAK
END

::LogApi() // grava requisições

return nil
[/code]