FiveTech Software tech support forums

Hi, I have this code to conect:

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"] := "xxxxxxxxx"
hQuery["pass"] := "xxxxx"
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

I received the news that they will only accept TLS 1.2 and above, having to change the address to https. Will this code work with just changing to https? If not, what else needs to be changed? Thanks.

Intenta asi:

https://wws.averbeporto.com.br/websys/?comp=5

Regards, saludos.

Code: Select all  Expand view

#include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL cSite

   cSite := ( "https://wws.averbeporto.com.br/websys/?comp=5" )

   //-> Invisibilizo a Janela
   DEFINE WINDOW oWnd FROM -10, -10 TO -5, -5

   ACTIVATE WINDOW oWnd     ;
      ON INIT( ShellExecute(GetActiveWindow(),"OPEN",'"'+cSite+'"'), oWnd:End() )

RETURN NIL
 

Regards, saludos.

Artiaga, veja a "Aba" Ajuda, tem as novas instruções do Sistema de Averbação de Seguros da Porto Seguro.

Regards, saludos.

karinha wrote:Artiaga, veja a "Aba" Ajuda, tem as novas instruções do Sistema de Averbação de Seguros da Porto Seguro.

Regards, saludos.

Karinha, obrigado pela resposta mas o meu sistema já fazia a averbação através do webservice normalmente só que estão mudando para TSL 1.2 consequentemente mudaria somente http para https minha dúvida é se essa rotina vai funcionar somente mudando isso.

wartiaga wrote:

karinha wrote:Artiaga, veja a "Aba" Ajuda, tem as novas instruções do Sistema de Averbação de Seguros da Porto Seguro.

Regards, saludos.

Karinha, obrigado pela resposta mas o meu sistema já fazia a averbação através do webservice normalmente só que estão mudando para TSL 1.2 consequentemente mudaria somente http para https minha dúvida é se essa rotina vai funcionar somente mudando isso.

Não sei te informar. O melhor a fazer, é mudar para TLS 1.2 (windows 10 ou superior) testar e se não funcionar, entrar em contato com o suporte técnico da Porto Seguro, ok?

Como não uso esta ferramenta da Porto Seguro, não tenho como afirmar se vai funcionar. Eu acho que sim...

Em tempo: O teu Português está excelente. Parabéns!

Regards, saludos.

hi,

wartiaga wrote:I received the news that they will only accept TLS 1.2 and above, having to change the address to https.

i guess you work with hbtip Constribution which use ssleay32.dll / libeay32.dll
have a look which Version these *.DLL have ( Property -> Detail )

for TLS 1.2 you should have Version 1.02.xx e.g. from c:\fwh\samples\ssleay32.dll

Jimmy wrote:hi,

wartiaga wrote:I received the news that they will only accept TLS 1.2 and above, having to change the address to https.

i guess you work with hbtip Constribution which use ssleay32.dll / libeay32.dll
have a look which Version these *.DLL have ( Property -> Detail )

for TLS 1.2 you should have Version 1.02.xx e.g. from c:\fwh\samples\ssleay32.dll

Thanks for answer. Version of my ssleay32.dll = 1.0.2.11
Even linking tipssl.lib, ssleay32.lib and libeay32.lib this error occurs:

Error occurred at: 07/17/2023, 14:56:24
Error description: Error BASE/1081 Operation not supported: TIPCLIENTHTTP:New()
Args:
[ 1] = THE TIPCLIENTHTTP
[ 2] = C https