Message-ID:

7 May, 2024: fms is rebuilding. Don't expect much in that section for quite a few days, maybe longer.

devel / comp.lang.xharbour / hbcurl help

hbcurl help

<4b8b2bb2-db15-45e0-8f80-cffcd505615bn@googlegroups.com>

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

copy link Newsgroups: comp.lang.xharbour

X-Received: by 2002:a05:620a:19a0:b0:768:3e5f:a3c3 with SMTP id bm32-20020a05620a19a000b007683e5fa3c3mr47749qkb.14.1691691547397;
Thu, 10 Aug 2023 11:19:07 -0700 (PDT)
X-Received: by 2002:a05:6a00:2d96:b0:688:cbf:b77e with SMTP id
fb22-20020a056a002d9600b006880cbfb77emr695890pfb.3.1691691546868; Thu, 10 Aug
2023 11:19:06 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!newsreader4.netcologne.de!news.netcologne.de!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer01.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, 10 Aug 2023 11:19:06 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=179.178.194.186; posting-account=SyNgpgoAAACmCQmKy145-onfY7FAXkp8
NNTP-Posting-Host: 179.178.194.186
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <4b8b2bb2-db15-45e0-8f80-cffcd505615bn@googlegroups.com>
Subject: hbcurl help
From: wartiagax@gmail.com (Wanderson Artiaga)
Injection-Date: Thu, 10 Aug 2023 18:19:07 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 3208

by: Wanderson Artiaga - Thu, 10 Aug 2023 18:19 UTC

Hi, I need help about create this code above using hbcurl.
Thanks in advance.

TRY
oUrl = TUrl():New( 'https://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"] := "USERNAME"
hQuery["pass"] := "PASSWD"
oCli:cUserAgent:='Mozilla/5.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

If Alltrim(cNFSeResp) == '{"success":1,"logout":1}'
CurSorArrow()
oCli:Close()
MsgBeep()
MsgAlert("Não foi possível conectar ao site de averbação!","Atenção")
Return .f.
Endif

// Faz o upload do xml para averbação

oCli:Close()
oCli = TIPClientHttp():New( oUrl )

IF !EMPTY( oCli )
oCli:nConnTimeout = -1
IF oCli:Open()
ocli:SetCookie( respc )
hQuery["comp"] := "5"
hQuery["mod"] := "Upload"
hQuery["path"] := "eguarda/php/"
hQuery["recipient"] := ""

EmiCte := Dtoc(oArqCto:DTEMIS)
LocXml := Alltrim(oConfCte:P_AUTORI)+Substr(EmiCte,4,2)+Substr(EmiCte,7,4)+"\"+Alltrim(oArqCto:CHAVESEFAZ)+;
"-ProcCTe.xml"

If ! File(LocXml)
CurSorArrow()
MsgBeep()
MsgAlert("Xml do cte não localizado!","Atenção")
oCli:Close()
Return .f.
Endif

ArqAtach := LocXml

oCli:cUserAgent:='Mozilla/3.0 (compatible; Indy Library)'
oCli:Attach("file",ArqAtach)

IF !oCli:PostMultiPart(hQuery)
CurSorArrow()
MsgInfo(oCli:lastErrorMessage,'Erro')
ELSE
Respchave:=oCli:ReadAll()
ENDIF
ENDIF
ENDIF

If Substr(Alltrim(Respchave),1,12) == '{"success":0'
CurSorArrow()
oCli:Close()
MsgBeep()
MsgAlert("Não foi possível fazer o upload do arquivo xml!","Atenção")
MsgAlert(Repchave)
Return .f.
Endif