xHarbour.org updated!

[karinha]

BUILDX.BAT

Code: Select all | Expand

@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

// 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

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

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

[karinha]

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

yes!!

https://imgur.com/queLIA2



Many thanks.

Regards, saludos.

[karinha]

BUILDX.BAT Modificado/Modified. Thanks. Gracias. What a fantastic class! ¡Qué clase(aula) tan fantástica! hahaha.

Code: Select all | Expand

@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

rem para que TIPSSL.LIB funcione, por a TIP.LIB depois.
echo %hdirl%\tipssl.lib + >> b32.bc
echo %hdirl%\libssl.lib + >> b32.bc
echo %hdirl%\libcrypto.lib + >> b32.bc
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]

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]

Arteaga, it also worked. As I don't have the login and password, it doesn't show the data. Yes, go to the Porto Seguro website.

Arteaga, también funcionó. Como no tengo login y contraseña no muestra los datos. Sí, vaya al sitio web de Porto Seguro.

Regards, saludos.

[Enrico Maria Giordano]

Arteaga, it also worked.

It returns .F. here.

[wartiaga]

Arteaga, it also worked. As I don't have the login and password, it doesn't show the data. Yes, go to the Porto Seguro website.

Arteaga, también funcionó. Como no tengo login y contraseña no muestra los datos. Sí, vaya al sitio web de Porto Seguro.

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]

Arteaga, it also worked.

It returns .F. here.

Voy probar de nuevo. Que dificil. hahahaha

Regards.

[karinha]

Artiaga, sorry, I was wrong. I can't log in with the Porto Seguros website. There is some blocking on the site. I think.

Artiaga, perdón, me equivoqué. No puedo iniciar sesión en el sitio web de Porto Seguros. Hay algunos bloqueos en el sitio. Yo creo.

Mejor usar ACTIVEX.

Regards, saludos.

[karinha]

Arteaga, it also worked. As I don't have the login and password, it doesn't show the data. Yes, go to the Porto Seguro website.

Arteaga, también funcionó. Como no tengo login y contraseña no muestra los datos. Sí, vaya al sitio web de Porto Seguro.

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

Call Porto Seguros and ask if you need any authorization (key) to enter via programming, ok?

Llama a Porto Seguros y pregunta si necesitas alguna autorización (clave) para entrar vía programación, ¿ok?

Regards, saludos.

[karinha]

Code: Select all | Expand

// C:\FWH..\SAMPLES\ENRICO01.PRG - funciona perfecto

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oUrl, oCli


    // oUrl = TUrl():New( "https://www.emagsoftware.it" )
    oUrl = TUrl():New( "https://forums.fivetechsupport.com/" )

    oCli = TIPClientHttp():New( oUrl )

    ? "Open oCli? ", oCli:Open(), "Yes, Enrico!"

RETURN NIL
 

Regards, saludos.

[wartiaga]

Arteaga, it also worked. As I don't have the login and password, it doesn't show the data. Yes, go to the Porto Seguro website.

Arteaga, también funcionó. Como no tengo login y contraseña no muestra los datos. Sí, vaya al sitio web de Porto Seguro.

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

Call Porto Seguros and ask if you need any authorization (key) to enter via programming, ok?

Llama a Porto Seguros y pregunta si necesitas alguna autorización (clave) para entrar vía programación, ¿ok?

Regards, saludos.

I will. Thank you very much Karinha!

[wartiaga]

Enrico,

I'm trying to compile with the latest build of xharbour but I get this error.

Error: Unresolved external '_dv_memcpy' referenced from D:\LANG\FWH1811\XH1.3.0\LIB\HBCURL.LIB|hbcurl

Any tip? Thanks in advance!