Message-ID:

The only way to learn a new programming language is by writing programs in it. -- Brian Kernighan

devel / comp.lang.xharbour / TIPClientHttp and TSL 1.2 (https)

TIPClientHttp and TSL 1.2 (https)

<46d85c3d-1940-4ffc-ac6f-86ae651fd4e1n@googlegroups.com>

https://www.rocksolidbbs.com/devel/article-flat.php?id=17471&group=comp.lang.xharbour#17471

copy link Newsgroups: comp.lang.xharbour

X-Received: by 2002:a05:620a:4541:b0:765:aaf7:b37b with SMTP id u1-20020a05620a454100b00765aaf7b37bmr7861qkp.2.1689300293438;
Thu, 13 Jul 2023 19:04:53 -0700 (PDT)
X-Received: by 2002:a4a:2c45:0:b0:566:15df:6615 with SMTP id
o66-20020a4a2c45000000b0056615df6615mr2596446ooo.1.1689300292963; Thu, 13 Jul
2023 19:04:52 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!newsfeed.hasname.com!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Thu, 13 Jul 2023 19:04:52 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=179.34.69.167; posting-account=SyNgpgoAAACmCQmKy145-onfY7FAXkp8
NNTP-Posting-Host: 179.34.69.167
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <46d85c3d-1940-4ffc-ac6f-86ae651fd4e1n@googlegroups.com>
Subject: TIPClientHttp and TSL 1.2 (https)
From: wartiagax@gmail.com (Wanderson Artiaga)
Injection-Date: Fri, 14 Jul 2023 02:04:53 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 2244

by: Wanderson Artiaga - Fri, 14 Jul 2023 02:04 UTC

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

Subject	Author
TIPClientHttp and TSL 1.2 (https)	Wanderson Artiaga