xHarbour.org updated!

[karinha]

Enerico, esta correcto esto?

Code: Select all | Expand

// BCC32.CFG

-6
-DHB_GUI
-DHB_INCLUDE_WINEXCHANDLER
-DHB_NO_PROFILER
-DHB_NO_TRACE
-DHB_WIN32_IO
-Ic:\bcc76\include\windows\crtl;c:\bcc76\include\windows\sdk;c:\bcc76\include\dinkumware
-O
-O1
-O2
-OS
-Ob
-Oc
-Ov
-c
-d
-g0
-k-
-v-
-w
-w!
 

// ILINK32.CFG

Code: Select all | Expand

-Gn
-Lc:\bcc76\lib;c:\bcc76\lib\psdk
-aa
-x
 

Regards, saludos.

[Enrico Maria Giordano]

I also noticed that the size of the DAUGHTER WINDOW was a little smaller than the one compiled with the BCC74 version. As shown in the image, look at the bottom of the window to understand.

Sorry, I don't understand. Can you mark the place of the problem, please?

[Enrico Maria Giordano]

Enerico, esta correcto esto?

Code: Select all | Expand

// BCC32.CFG

-6
-DHB_GUI
-DHB_INCLUDE_WINEXCHANDLER
-DHB_NO_PROFILER
-DHB_NO_TRACE
-DHB_WIN32_IO
-Ic:\bcc76\include\windows\crtl;c:\bcc76\include\windows\sdk;c:\bcc76\include\dinkumware
-O
-O1
-O2
-OS
-Ob
-Oc
-Ov
-c
-d
-g0
-k-
-v-
-w
-w!
 

No, use this:

Code: Select all | Expand

-I@\..\include\windows\crtl;@\..\include\windows\sdk;@\..\include\dinkumware
-O
-O1
-OS
-Ob
-Oc
-Ov
-c
-d
-g0
-k-
-v-
-w
-w!

// ILINK32.CFG

Code: Select all | Expand

-Gn
-Lc:\bcc76\lib;c:\bcc76\lib\psdk
-aa
-x
 

Yes, this look correct.

[karinha]

Enrico: thank you very much. Everything is working perfectly. This is, without a doubt, a very robust and powerful new compiler. Fantastic.

enrico: muchas gracias. Todo está funcionando perfectamente. Este es, sin duda, un nuevo compilador muy robusto y potente. Fantástico.

Regards, saludos.

[Enrico Maria Giordano]

Great! I'm happy for this. But to be honest, it's been a year now that I'm using MSC32 because it generates a much smaller EXEs. If you want to try it just let me know.

[wartiaga]

Enrico,

Can you help me about this? Thank you!


Turbo Incremental Link 6.80 Copyright (c) 1997-2017 Embarcadero Technologies, Inc.
Error: Unresolved external '___get_std_stream' referenced from D:\LANG\FWH1811\XH1.3.0\LIB\COMMON.LIB|hbtrace
Error: Unresolved external '__chdir' referenced from D:\LANG\FWH1811\XH1.3.0\LIB\HBZIP.LIB|zipplatform
Error: Unable to perform link

[Enrico Maria Giordano]

Sure, but I need a simple PRG showing the errors that I can test here.

[wartiaga]

Sure, but I need a simple PRG showing the errors that I can test here.

Code below, I change testget in samples folder to try tipclient with https. Thanks in advance!

#Include "Fivewin.ch"


Function Main()

LOCAL oDlg, oGet
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()
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 WebPageSource()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL


ACTIVATE DIALOG 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( oUrl )

IF EMPTY( oCli )
BREAK
ENDIF

IF !oCli:Open( oUrl )
BREAK
ENDIF

WHILE .T.

cString := oCli:Read()

IF Empty(cString)
EXIT
ENDIF

cMemo:=cMemo+cString

ENDDO

cString:=cMemo
oCli:Close()
oUrl:Close()

END SEQUENCE

MEMOWRIT("BCV.TXT",cMemo)
MsgInfo( cString )
MemoEdit( cString )

Return Nil

[Enrico Maria Giordano]

Compiled: no unresolved externals, with both Harbour and xHarbour. Please try with the latest xHarbour from here:

http://xharbour.org/index.asp?page=down ... naries_win

[karinha]

Enrico, no acepta https.

Code: Select all | Expand

// C:\FWH..\SAMPLES\WARTIAGA.PRG - Compila perfecto.

#include "Fivewin.ch"

FUNCTION Main()

   LOCAL oDlg, oGet, oGet1
   LOCAL cCad := "Testing    " // pad("Testing Gets",40)
   LOCAL nNum := 0
   LOCAL dDat := Date()
   LOCAL 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 UPDATE

   // NO HACE SENTIDO... PARA QUE SIRVE?
   @ 1,  6 GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" ;
      PICTURE "99999999" UPDATE

   @ 3,  7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ;
      ACTION WebPageSource()

   @ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ;
      ACTION( oDlg:End() ) CANCEL

   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

FUNCTION WebPageSource( cUrl )

   LOCAL oIE, cTXT, cHTML, cMemo := ""
   LOCAL cString
   LOCAL cString1, cString2
   LOCAL oUrl, oCli, lOk

   // BANCO CENTRAL DE VENEZUELA?
   DEFAULT cUrl := "www.bcv.org.ve"

   BEGIN SEQUENCE

      // Enrico: No acepta https aqui:
      oUrl = TUrl():New( cUrl )

      IF Empty( oUrl )

         __QUIT()

         // BREAK // NO USE ESTO

      ENDIF

      oCli := TIPClientHttp():New( oUrl )

      IF Empty( oCli )

         __QUIT()

         // BREAK // NO USE ESTO

      ENDIF

      IF !oCli:Open( oUrl )

         __QUIT()

         // BREAK // NO USE ESTO

      ENDIF

      WHILE( .T. )

         SYSREFRESH()

         cString := oCli:Read()

         ? cString

         IF Empty( cString )

            EXIT

         ENDIF

         cMemo := cMemo + cString

      ENDDO

      cString := cMemo

      oCli:Close()

      // oUrl:Close()  //??

   END SEQUENCE

   MemoWrit( "BCV.TXT", cMemo )

   MsgInfo( cString )

   MemoEdit( cString )

RETURN NIL

// fin / end
 

Regards, saludos

[leandro]

Excelente Enrico y karinha , aplicación compilada correctamente. De momento sin problemas, cualquier cosa comento.

[karinha]

Artiaga, ¿qué necesitas "sacar" de la página web del banco central de Venezuela? ¿No necesitas una clave o autorización?

Code: Select all | Expand

// C:\FWH..\SAMPLES\WARTIAG3.PRG

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL cCnpj

   cCnpj := "00000000000000"

   SiteCnpjFazenda( cCnpj )

RETURN NIL

FUNCTION SiteCnpjFazenda( cCnpj )

   LOCAL cUrl

   /*
   cUrl := [http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao2.asp?cnpj=] + ;
      StrZero( Val( cCnpj ), 14 )
   */
   cUrl := "https://www.bcv.org.ve" // falta algo????

   ShellExecute(GetActiveWindow(),"open",'"'+cUrl+'"', 0)

RETURN NIL

// FIN - kapiabafwh@gmail.com
 

Regards, saludos.

[wartiaga]

Compiled: no unresolved externals, with both Harbour and xHarbour. Please try with the latest xHarbour from here:

http://xharbour.org/index.asp?page=down ... naries_win

I downloaded xharbour from this address. What version of bcc and fwh did you use? Does it use hbzip.lib and common.lib? Thanks.

[Enrico Maria Giordano]

Enrico, no acepta https.

You have to setup your compiler for SSL. Please search in this forum my instructions about that.

[Enrico Maria Giordano]

Compiled: no unresolved externals, with both Harbour and xHarbour. Please try with the latest xHarbour from here:

http://xharbour.org/index.asp?page=down ... naries_win

I downloaded xharbour from this address. What version of bcc and fwh did you use?

BCC 7.60 and latest FWH.

Does it use hbzip.lib and common.lib? Thanks.

Yes, of course.