• TIPClientHttp and TSL 1.2 (https)

    From Wanderson Artiaga@21:1/5 to All on Thu Jul 13 19:04:52 2023
    Hello, I have a routine working perfectly for registering loads, but they said they would no longer accept a http connection, but a https connection, does the routine below work normally? What do I need to accept tsl 1.2 and https? My version of xharbour
    (xHarbour 1.2.3 Intl. (SimpLex) (Build 20130903))
    Thanks in advance!

    TRY
    oUrl = TUrl():New( 'http://www.averbeporto.com.br/websys/php/conn.php' ) CATCH
    CurSorArrow()
    MsgInfo('Erro ao criar a conexão','Erro')
    RETURN(.F.)
    END
    IF !EMPTY( oUrl )
    oCli = TIPClientHttp():New( oUrl )
    IF !EMPTY( oCli )
    oCli:nConnTimeout = -1
    IF oCli:Open()
    hQuery["mod"] := "login"
    hQuery["comp"] := "5"
    hQuery["user"] := "userlogin"
    hQuery["pass"] := "Password"
    oCli:cUserAgent:='Mozilla/3.0 (compatible; Indy Library)'
    IF !oCli:PostMultiPart(hQuery)
    CurSorArrow()
    MsgInfo(oCli:lastErrorMessage,'Erro')
    ELSE
    cNFSeResp :=oCli:ReadAll()
    RespC := oCli:GetCookies() // Captura cookie
    ENDIF
    //oCli:Close()
    ENDIF
    ENDIF
    ENDIF

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)