none
https desde vfp RRS feed

  • Pregunta

  • TENGO UNA APLICACION DONDE MECONECTO A UNA PAGINA HTTP SIN PROBLEMA, EL CODIGO ES EL SIGUIENTE:

    L_WEB

     

    =https://www.mysuitecfdi.com/mx.com.fact.wsfront/Factwsfront.asmx?wsdl

     

    LOCAL

     

    O AS MSSOAP.

    SoapClient30

    O

     

    = CREATEOBJECT ("MSSOAP.SoapClient30")

    O

     

     

    .MSSoapInit(L_WEB

    )

    L_DATOS

     

     

    =O.RequestTransaction(L_REQ,L_TRAN,L_ORI,L_ERFC,L_USER,L_UNAME,L_DAT1,L_DAT2,L_DAT3

    )

    WAIT WINDOW

     

     

    "DATOS............."

    L_RXML

     

     

    =L_DATOS.item(0).parentNode.xml

    SI CAMBIO LA DERECCION DEL WEB SERVICE POR 

    https://www.mysuitecfdi.com/mx.com.fact.wsfront/Factwsfront.asmx?wsdl

    ME DA ERROR DE CERTIFICADO:

    EN SU LIGA DAN UNA FORMA DE PASAR ESTE CERTIFICADO PERO EN VB QUE ES EL SIGUIENTE:

    Imports System.Net

    Imports System.Security.Cryptography.X509Certificates

    Public Class MyPolicy

    Implements ICertificatePolicy

     

    Public Function CheckValidationResult(ByVal srvPoint As ServicePoint, _

    ByVal cert As X509Certificate, ByVal request As WebRequest, _

    ByVal certificateProblem As Integer) _

          As Boolean Implements ICertificatePolicy.CheckValidationResult

    'Return True to force the certificate to be accepted.

    Return True

    End Function

    End Class

    ServicePointManager.CertificatePolicy = New MyPolicy()

    COMO TRADUZCO ESTO A VFP

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     
     
    viernes, 25 de marzo de 2011 17:17