xHarbour.org updated!

[karinha]

Intente con ACTIVEX:

Code: Select all  Expand view

#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.

[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.

[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

[karinha]

Enrico,

Code: Select all  Expand view

Application
===========
   Path and name: c:\FWH1905\samples\ENRICO01.exe (32 bits)
   Size: 3,479,552 bytes
   Compiler version: xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914)
   FiveWin  version: FWH 19.05
   C compiler version: Borland/Embarcadero C++ 7.6 (32-bit)
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 3 secs
   Error occurred at: 09/20/23, 10:48:55
   Error description: Error BASE/1081  Operation not supported: TIPCLIENTHTTP:New()
   Args:
     [   1] = O   TIPCLIENTHTTP
     [   2] = C   https

Stack Calls
===========
   Called from: source\tip\client.prg => TIPCLIENT:NEW( 0 )
   Called from: source\tip\httpcln.prg => TIPCLIENTHTTP:NEW( 0 )
   Called from: ENRICO01.prg => MAIN( 14 )
 

Regards, saludos.

[Enrico Maria Giordano]

You are still using tip.lib. You have to use tipssl.lib instead.

[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.

[Enrico Maria Giordano]

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#v4kFOa7EMouYDQ8MvifgEQ

And these are the SSL dlls:

https://wormhole.app/31eO1#Fuwohtx2zBTUjY3YpLz8RA

Do you need something else?

[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.

[Enrico Maria Giordano]

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?

[Enrico Maria Giordano]

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?

[karinha]

Are you sure you have put tip.lib AFTER tipsll.lib, libssl.lib and libcrypto.lib?

Enrico, asi?

Code: Select all  Expand view

echo %hdirl%\libcrypto.lib + >> b32.bc
echo %hdirl%\libssl.lib + >> b32.bc
echo %hdirl%\tipssl.lib + >> b32.bc
echo %hdirl%\tip.lib + >> b32.bc
 

Regards, saludos.

[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.

[karinha]

BUILDX.BAT

Code: Select all  Expand view

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 19.05 - May. 2019          xHarbour development power ³Ü
ECHO ³ (c) FiveTech 1993-2019 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

if "%FWDIR%" == "" set FWDIR=.\..\
if "%XHDIR%" == "" set XHDIR=c:\xHBBCC76
rem if "%2" == "/b" set GT=gtwin
rem if not "%2" == "/b" set GT=gtgui
set GT=gtgui

set hdir=%XHDIR%
set hdirl=%hdir%\lib
set bcdir=c:\BCC76
set fwh=%FWDIR%

%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log 2> warnings.log
IF ERRORLEVEL 1 GOTO COMPILEERRORS
@type comp.log
@type warnings.log

echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32.exe -r -I%bcdir%\include -I%bcdir%\include\windows\sdk %1

REM %bcdir%\bin\BRC32.Exe -R XPLOOK.RC

echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib %fwh%\lib\libmysql.lib + >> b32.bc
echo %fwh%\lib\pgsql.lib %fwh%\lib\libpq.lib + >> b32.bc
echo %hdirl%\rtl.lib + >> b32.bc
echo %hdirl%\vm.lib + >> b32.bc
echo %hdirl%\%GT%.lib + >> b32.bc
echo %hdirl%\lang.lib + >> b32.bc
echo %hdirl%\macro.lib + >> b32.bc
echo %hdirl%\rdd.lib + >> b32.bc
echo %hdirl%\dbfntx.lib + >> b32.bc
echo %hdirl%\dbfcdx.lib + >> b32.bc
echo %hdirl%\dbffpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\debug.lib + >> b32.bc
echo %hdirl%\common.lib + >> b32.bc
echo %hdirl%\codepage.lib + >> b32.bc
echo %hdirl%\pp.lib + >> b32.bc
echo %hdirl%\pcrepos.lib + >> b32.bc
echo %hdirl%\ct.lib + >> b32.bc
echo %hdirl%\zlib.lib + >> b32.bc
echo %hdirl%\hbzip.lib + >> b32.bc
echo %hdirl%\libmisc.lib + >> b32.bc
echo %hdirl%\hbzebra.lib + >> b32.bc
echo %hdirl%\png.lib + >> b32.bc
echo %hdirl%\libcrypto.lib + >> b32.bc
echo %hdirl%\libssl.lib + >> b32.bc
echo %hdirl%\tipssl.lib + >> b32.bc
rem para que TIPSSL.LIB funcione, por a TIP.LIB depois.
echo %hdirl%\tip.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\ws2_32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type comp.log
ECHO * Compile errors *
GOTO EXIT

:LINKERROR
ECHO * Linking errors *
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

Regards, saludos.

[wartiaga]

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.?

[Enrico Maria Giordano]

Are you sure you have put tip.lib AFTER tipsll.lib, libssl.lib and libcrypto.lib?

Enrico, asi?

Code: Select all  Expand view

echo %hdirl%\libcrypto.lib + >> b32.bc
echo %hdirl%\libssl.lib + >> b32.bc
echo %hdirl%\tipssl.lib + >> b32.bc
echo %hdirl%\tip.lib + >> b32.bc
 

Regards, saludos.

Better this:

Code: Select all  Expand view

echo %hdirl%\tipssl.lib + >> b32.bc
echo %hdirl%\libssl.lib + >> b32.bc
echo %hdirl%\libcrypto.lib + >> b32.bc
echo %hdirl%\tip.lib + >> b32.bc