Versão atual:

WS TWsdlManager com certificado digital

//chamo a classe para o tratamento de arquivos WSDL (DOCUMENTAÇÃO: http://tdn.totvs.com/display/tec/Classe+TWsdlManager)

    oWsdl := TWsdlManager():New()


    //oWsdl:nSSLVersion    := 1
    oWsdl:cSSLCACertFile := "\certOK\000004_all.pem.pem"

    oWsdl:cSSLCertFile   := "\certOK\000004_cert.pem"

    oWsdl:cSSLKeyFile    := "\certOK\000004_key.pem"

    oWsdl:cSSLKeyPwd     := "XXXXX"



    // DLB-Ticket (solicitar o Ticket de Segurança)
    xRet := oWsdl:ParseURL("https://ymbdlb.santander.com.br/dl-ticket-services/TicketEndpointService/TicketEndpointService.wsdl")

    if xRet == .F.
        conout( "Erro primeiro link: " + oWsdl:cError )
        Return(.F.)
    else 
        conout( "Sucesso! " )
    endif

Retorno objeto oWsdl:cError = [WARN ][SERVER] Trying WSDL annonymous (PEER) connection...

Erro primeiro link: An exception occurred at 0:0 WsdlParser Exception : Unable to connect to https://ymbdlb.santander.com.br/dl-ticket-services/TicketEndpointService/TicketEndpointService.wsdl due to error: SSL connect error

Versões (2):

Ver a versão formatada

WS TWsdlManager com certificado digital

Comentário

new question