FiveTech Software tech support forums

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!
 

Code: Select all | Expand

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

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!

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
 

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