Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 1:11 pm
by karinha
Intente con ACTIVEX:
#include "FiveWin.ch"
STATIC oActiveX
FUNCTION Main( cChave )
LOCAL oFont, oDlgCaptcha, oGet, oGet1, cCaptcha := Space(8), oSefaz, oImage
LOCAL oFnt, oSaida, oBaixarXML
LOCAL oChildWnd, cSite
Default cChave := Space(44)
MsgWait( "CONECTANDO AO PORTAL DA PORTO SEGURO...", ;
"AGUARDE UM MOMENTO POR FAVOR... ", 2.0 )
cChave := "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
cSite := "https://apis.averbeporto.com.br/php/conn.php" // + Login + Senha(cChave)
DEFINE WINDOW oChildWnd FROM 0,0 TO 600,800 PIXEL TITLE "PORTO SEGUROS"
oActiveX = TActiveX():New( oChildWnd, "Shell.Explorer.2" )
oActivex:Silent := .T.
oChildWnd:oClient = oActiveX
oActiveX:Do( "Navigate2", cSite )
ACTIVATE WINDOW oChildWnd
RETURN NIL
// FIN / END
Regards, saludos.
Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 1:36 pm
by Enrico Maria Giordano
This is working fine, so it looks like there is something wrong in your server:
- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oUrl, oCli
// oUrl = TUrl():New( "https://apis.averbeporto.com.br/php/conn.php" )
oUrl = TUrl():New( "https://www.emagsoftware.it" )
? oUrl
oCli = TIPClientHttp():New( oUrl )
? oCli
? oCli:Open()
RETURN NIL
Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 2:04 pm
by Enrico Maria Giordano
You are still using tip.lib. You have to use tipssl.lib instead.
Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 3:03 pm
by karinha
Enrico, if I remove TIP.LIB:
- Code: Select all Expand view
Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023 Embarcadero Technologies, Inc.
ENRICO01.c:
Turbo Incremental Link 6.98 Copyright (c) 1997-2023 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_TURL' referenced from C:\FWH1905\SAMPLES\ENRICO01.OBJ
Error: Unresolved external '_HB_FUN_HB_BASE64' referenced from C:\XHBBCC76\LIB\TIPSSL.LIB|client1
Error: Unresolved external '_HB_FUN_TIPENCODERURL_ENCODE' referenced from C:\XHBBCC76\LIB\TIPSSL.LIB|httpcln1
Error: Unresolved external '_HB_FUN_TIPENCODERBASE64' referenced from C:\XHBBCC76\LIB\TIPSSL.LIB|httpcln1
Error: Unable to perform link
* Linking errors *
Is it possible for you to send me yours. LIBs for me to test? There is something wrong with my LIBs.
¿Es posible que me envíes el tuyo? ¿LIB para probar? Hay algún problema con mis LIB.
Where do I download the correct .DLLs to compile with BCC76?
¿Dónde descargo los archivos .DLL correctos para compilar con BCC76?
Regards, saludos.
Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 3:16 pm
by Enrico Maria Giordano
karinha wrote:Is it possible for you to send me yours. LIBs for me to test?
Of course. These are the SSL libs:
https://wormhole.app/AEpe5#v4kFOa7EMouYDQ8MvifgEQAnd these are the SSL dlls:
https://wormhole.app/31eO1#Fuwohtx2zBTUjY3YpLz8RADo you need something else?
Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 3:55 pm
by karinha
Enrico, Did not work. Are these LIBS correct?
Enrique, no funcionó. ¿Son correctas estas LIBS?
- Code: Select all Expand view
Pasta de c:\XHBBCC76\lib
25/07/2020 11:28 608.768 libcrypto.lib
25/07/2020 11:28 74.752 libssl.lib
15/09/2023 16:02 115.200 tipssl.lib
Gracias, thanks.
Reards, saludos.
Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 4:16 pm
by Enrico Maria Giordano
karinha wrote:Enrico, Did not work. Are these LIBS correct?
Enrique, no funcionó. ¿Son correctas estas LIBS?
- Code: Select all Expand view
Pasta de c:\XHBBCC76\lib
25/07/2020 11:28 608.768 libcrypto.lib
25/07/2020 11:28 74.752 libssl.lib
15/09/2023 16:02 115.200 tipssl.lib
Gracias, thanks.
Reards, saludos.
Yes, they are correct. Can I see your compile batch and the list of the libs you are linking?
Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 4:18 pm
by Enrico Maria Giordano
karinha wrote:Enrico, if I remove TIP.LIB:
- Code: Select all Expand view
Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023 Embarcadero Technologies, Inc.
ENRICO01.c:
Turbo Incremental Link 6.98 Copyright (c) 1997-2023 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_TURL' referenced from C:\FWH1905\SAMPLES\ENRICO01.OBJ
Error: Unresolved external '_HB_FUN_HB_BASE64' referenced from C:\XHBBCC76\LIB\TIPSSL.LIB|client1
Error: Unresolved external '_HB_FUN_TIPENCODERURL_ENCODE' referenced from C:\XHBBCC76\LIB\TIPSSL.LIB|httpcln1
Error: Unresolved external '_HB_FUN_TIPENCODERBASE64' referenced from C:\XHBBCC76\LIB\TIPSSL.LIB|httpcln1
Error: Unable to perform link
* Linking errors *
Are you sure you have put tip.lib
AFTER tipsll.lib, libssl.lib and libcrypto.lib?
Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 5:09 pm
by karinha
Ahora funcionó de pronto! Gracias Enrico! Many thanks!!
- Code: Select all Expand view
// C:\FWH..\SAMPLES\WARTIAG4.PRG
#include "Fivewin.ch"
#include "tip.ch" // ARISTON.PRG
FUNCTION Main()
LOCAL oDlg, oGet, oGet1
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()
LOCAL inicio
inicio := 0
SET CENTURY ON
SET DATE TO BRITISH
SET EPOCH TO 1960
SET Multiple ON
SET DELETED ON
DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION
@ 1, 2 SAY "Text..:" OF oDlg
@ 1, 6 GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" PICTURE "99999999"
@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION Averba()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
STATIC FUNCTION Averba()
LOCAL oUrl, oCli, url, cNFSeResp, RespC
LOCAL hQUery := Hash()
url := "https://apis.averbeporto.com.br/php/conn.php"
TRY
// oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' )
oUrl := TUrl():New( url ) // From tip.lib
oCli := TipClientHttp():New( oUrl, .f. ) // From tip.lib
// oCli = TIPClientHttp():New( oUrl )
CATCH
MsgInfo('Conection Error','Erro')
RETURN NIL
END
IF .NOT. Empty( oUrl )
// oCli = TIPClientHttp():New( oUrl )
IF .NOT. Empty( oCli )
oCli:nConnTimeout = -1
oCli:lSSL = .T.
IF oCli:Open()
hQuery[ "mod" ] := "login"
hQuery[ "comp" ] := "5"
hQuery[ "user" ] := "xxxxxxxxxxxx"
hQuery[ "pass" ] := "xxxxxxxxxxxx"
oCli:cUserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)'
IF !oCli:PostMultiPart( hQuery )
CurSorArrow()
MsgInfo( oCli:lastErrorMessage, 'Error' )
ELSE
cNFSeResp := oCli:ReadAll()
RespC := oCli:GetCookies() // Get cookie
ENDIF
oCli:Close()
ENDIF
ENDIF
ENDIF
msginfo( cNFSeResp )
msginfo( RespC )
RETURN NIL
DLL Function DeleteUrlCacheEntry(lpszUrlName AS STRING) AS LONG PASCAL FROM "DeleteUrlCacheEntryA" LIB "wininet.dll"
Regards, saludos.
Re: xHarbour.org updated!
Posted:
Wed Sep 20, 2023 5:57 pm
by wartiaga
karinha wrote:Ahora funcionó de pronto! Gracias Enrico! Many thanks!!
- Code: Select all Expand view
// C:\FWH..\SAMPLES\WARTIAG4.PRG
#include "Fivewin.ch"
#include "tip.ch" // ARISTON.PRG
FUNCTION Main()
LOCAL oDlg, oGet, oGet1
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()
LOCAL inicio
inicio := 0
SET CENTURY ON
SET DATE TO BRITISH
SET EPOCH TO 1960
SET Multiple ON
SET DELETED ON
DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION
@ 1, 2 SAY "Text..:" OF oDlg
@ 1, 6 GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" PICTURE "99999999"
@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION Averba()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
STATIC FUNCTION Averba()
LOCAL oUrl, oCli, url, cNFSeResp, RespC
LOCAL hQUery := Hash()
url := "https://apis.averbeporto.com.br/php/conn.php"
TRY
// oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' )
oUrl := TUrl():New( url ) // From tip.lib
oCli := TipClientHttp():New( oUrl, .f. ) // From tip.lib
// oCli = TIPClientHttp():New( oUrl )
CATCH
MsgInfo('Conection Error','Erro')
RETURN NIL
END
IF .NOT. Empty( oUrl )
// oCli = TIPClientHttp():New( oUrl )
IF .NOT. Empty( oCli )
oCli:nConnTimeout = -1
oCli:lSSL = .T.
IF oCli:Open()
hQuery[ "mod" ] := "login"
hQuery[ "comp" ] := "5"
hQuery[ "user" ] := "xxxxxxxxxxxx"
hQuery[ "pass" ] := "xxxxxxxxxxxx"
oCli:cUserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)'
IF !oCli:PostMultiPart( hQuery )
CurSorArrow()
MsgInfo( oCli:lastErrorMessage, 'Error' )
ELSE
cNFSeResp := oCli:ReadAll()
RespC := oCli:GetCookies() // Get cookie
ENDIF
oCli:Close()
ENDIF
ENDIF
ENDIF
msginfo( cNFSeResp )
msginfo( RespC )
RETURN NIL
DLL Function DeleteUrlCacheEntry(lpszUrlName AS STRING) AS LONG PASCAL FROM "DeleteUrlCacheEntryA" LIB "wininet.dll"
Regards, saludos.
Karinha this example works to you? The line IF oCli:Open() returns .T.?