FiveTech Software tech support forums

... yourself. You can do this by drawing a rectangle using functions like WndBoxClr, where you can specify the brush or pen color. Otto local hPen, oCli := ::GetCliRect() hPen = CreatePen( PS_SOLID, 1, nRGB( 255, 0, 0 ) ) WndBoxClr( ::GetDC(), 1, 1, oCli:nBottom - 2, oCli:nRight - 2, hPen ) DeleteObject( ...

... Regards, saludos. Very strange, please tell me what message is returned in this code: #include "Fivewin.ch" FUNCTION MAIN() LOCAL oUrl, oCli oUrl = TUrl():New( "https://apis.averbeporto.com.br/php/conn.php" ) oCli = TIPClientHttp():New( oUrl ) ? oCli:Open() RETURN NIL .F. -> ...

... Regards, saludos. Very strange, please tell me what message is returned in this code: #include "Fivewin.ch" FUNCTION MAIN() LOCAL oUrl, oCli oUrl = TUrl():New( "https://apis.averbeporto.com.br/php/conn.php" ) oCli = TIPClientHttp():New( oUrl ) ? oCli:Open() RETURN NIL .F. -> ...

... Regards, saludos. Very strange, please tell me what message is returned in this code: #include "Fivewin.ch" FUNCTION MAIN() LOCAL oUrl, oCli oUrl = TUrl():New( "https://apis.averbeporto.com.br/php/conn.php" ) oCli = TIPClientHttp():New( oUrl ) ? oCli:Open() RETURN NIL

karinha wrote:

Karinha this example works to you? The line IF oCli:Open() returns .T.?

yes!!

https://imgur.com/queLIA2



Many thanks.

Regards, saludos.

Karinha,

I say my example with the Porto Seguro website, not Enrico's example.

Karinha this example works to you? The line IF oCli:Open() returns .T.?

yes!!

https://imgur.com/queLIA2



Many thanks.

Regards, saludos.

... SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL   ACTIVATE DIALOG oDlg CENTEREDRETURN NILSTATIC FUNCTION Averba()   LOCAL oUrl, oCli, url, cNFSeResp, RespC   LOCAL hQUery := Hash()   url := "https://apis.averbeporto.com.br/php/conn.php"   TRY      // oUrl = ...

... SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL   ACTIVATE DIALOG oDlg CENTEREDRETURN NILSTATIC FUNCTION Averba()   LOCAL oUrl, oCli, url   LOCAL hQUery := Hash()   url := "https://apis.averbeporto.com.br/php/conn.php"   TRY      // oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' ...

... "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL ACTIVATE DIALOG oDlg CENTERED Return nil Static Function Averba() LOCAL oUrl, oCli LOCAL hQUery := Hash() TRY oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' ) CATCH CurSorArrow() MsgInfo('Conection Error','Erro') ...

I need a reduced and self-contained sample that I can compile and execute here. In the meantime, you can try assigning these: oCli:nDefaultPort = nPortoCli:lSSL = .T. Thanks Enrico. The service integration manual does not say to define the port. Code below: #Include "Fivewin.ch" ...

... much for your help. Through your post I managed to create the libs and put the dll in the executable folder. It is compiling normally but the IF oCli:Open() line is returning false, is there a different new parameter to use https? Thank you again. Code below: TRY oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' ...

... oDlg CENTERED Return nil FUNCTION WebPageSource(cUrl) local oIE,cTXT,cHTML,cMemo:="" local cString LOCAL cString1,cString2 LOCAL oUrl, oCli,lOk DEFAULT cUrl := "https://www.bcv.org.ve" BEGIN SEQUENCE oUrl = TUrl():New( cUrl ) IF EMPTY( oUrl ) BREAK ENDIF oCli = TIPClientHttp():New( ...

... ) 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"] ...

... ) 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"] ...

... these changes to the fwteam #define WHITE_PEN 6 // add this on top METHOD PaintBorder() CLASS TBtnBmp local nAdjustBorder := 0 local nWidth, nAdj, oCli local nRound := If( ::lRound, ::nRound, 0 ) local hWhitePen, hGrayPen, hOldPen add these line 1752 //if ! ::lPressedif !   ::lMOver        ...