PC Toledo

... uses the Customer.xml file created in the
// prevous example and extracts from it the structure definition
// for the Customer.dbf file.

PROCEDURE Main
LOCAL oXmlDoc := TXmlDocument():new()
LOCAL oXmlNode, aStruct := {}

oXMlDoc:read( Memoread( "customer.xml" ) )

oXmlNode := oXmlDoc ...

... to STDERR
#command ? <list,...> => ?? hb_Eol() ; ?? <list>
#command ?? <list,...> => OutErr(<list>)

* Note: automatically executes at startup

PROCEDURE ERRORSYS

ErrorBlock( { | e | JoseQuintasError( e ) } )

RETURN

FUNCTION JoseQuintasError( e )

LOCAL nCont, cMessage

// by default ...

NÃO É um teste de uso, é apenas teste de compilação.



PROCEDURE Main

SetMode(33,100)
CLS
hpdf_New()
hb_Zebra()
Inkey(0)

RETURN



d:\temp>hbmk2 test
hbmk2: Processing environment options: -comp=mingw
hbmk2: Processing configuration: d:\harbour\bin\hbmk.hbc
Harbour 3.2.0dev (r2601171121 ...

... comp=mingw
Harbour 3.2.0dev (r2601091642)
Copyright (c) 1999-2025, https://harbour.github.io/
Compiling 'PAGO-GEMI.prg'...
Lines 1267, Functions/Procedures 5
Generating C source output to '.hbmk\win\mingw\PAGO-GEMI.c'... Done.
.hbmk/win/mingw/PAGO-GEMI.o:PAGO-GEMI.c:(.data+0xa8): undefined reference ...

... LETO

// =====================================================
// PONTO DE ENTRADA
// =====================================================
PROCEDURE MAIN()

LOCAL cIP := "127.0.0.1"
LOCAL cPort := "2830"
LOCAL nTimeOut := 10000
LOCAL nConectarLeto, nRes

// Fonte padrão
PUBLIC oFontPSW ...

... como usar harbour com sql, mais precisamente com postgresql.
Criei um trecho de código base com os principais comandos.


#require "hbpgsql"

PROCEDURE Main()

LOCAL conn, res
LOCAL cOpc := ""
LOCAL cDB := "minhabase"

CLS
? "Connecting to PostgreSQL (postgres database)..."

/* 1. Conecta ...

... array com os argumentos que serão passados para a função (opcional).
🧩 Exemplo prático
FUNCTION OlaMundo( cNome )
? "Olá, " + cNome
RETURN NIL

PROCEDURE Main()
LOCAL cFunc := "OlaMundo"
hb_gcall( cFunc, { "José" } )
RETURN


➡️ Nesse exemplo, a função OlaMundo() é chamada dinamicamente através ...

... previous change was not backwards compatible with hb_hrbLoad()
stealing character argument, that would be otherwise passed
to INIT PROCEDURE's in .hrb file

* src/include/hb_hrb.ch
+ add HB_HRB_ARG_PRGNAME definition
use to pass "virtual" script.prg filename as third parameter
hb ...

... Ensure it starts clean
IF __ObjHasMsg( oDlg, "GETLIST" )
oDlg:GetList := {}
ENDIF

__hwg_AddGetsRecursive( oDlg, oDlg )
RETURN Nil


STATIC PROCEDURE __hwg_AddGetsRecursive( oNode, oDlg )

LOCAL i, aChildren, nLen

IF oNode == Nil
RETURN
ENDIF

// If this node is a GET-like control (has ...

... pode ser fim de arquivo, e pode não ficar visível, dependendo do editor de textos.

Em harbour, vai testando caracteres até não sobrar nada.


PROCEDURE Main

LOCAL cTxt, cLetra

SetMode(33,100)
CLS
cTxt := MemoRead( "arquivo.hbp" )
FOR EACH cLetra IN cTxt
DO CASE
CASE cLetra ...

... Não usa hbtip, hbssl, hbhttp, hbjson.
SOMENTE usa:
- RUN
- MemoRead / MemoWrit
- curl.exe

O curl está¡ presente no Windows 10/11.
*/

PROCEDURE Main()
LOCAL cBaseUrl := "http://127.0.0.1:8000"
LOCAL cXmlFile := "nfe_teste.xml"
LOCAL cOpt

DO WHILE .T.
CLS ...

Teste prático

PROCEDURE Main

SetMode(33,100)
CLS
? gzip( "test" )
Inkey(0)

RETURN



D:/harbour/comp/mingw32/bin/../lib/gcc/i686-w64-mingw32/15.2.0/../../../../i686-w64-mingw32/bin/ld.exe:
C:/Users/joseq/AppData/Local/Temp/hbmk_h4k9ma.dir/test.o:test.c:(.data+0x78):
undefined reference to ...

... zlib1.dll", "compress", @cTextOutput, @nLenOutput, cTextInput, nLenInput, 6 )

RETURN Left( cTextOutput, nlenOutput )


E o uso normal

PROCEDURE Main

SetMode(33,100)
CLS
? gzip( "test" )
Inkey(0)

RETURN


No caso do xharbour, é encontrar o equivalente de chamadas de DLL tipo CDECL ...

... código Harbour, entre as diretivas #pragma begin dump ... #pragma End dump.

Na hora de chamar estas funções, o nome utilizado deve ser o que vem depois de HB_FUN_...

Exemplo:

Procedure Main()

EmailMDFE()

RETURN

#pragma begin dump

HB_FUN_EMAILMDFE

// Código em linguagem C

#pragma End dump

... rota pra passar em várias UFs.
É selecionado o caminho com menos UFs, pode não ser o mais curto, e pode não ser o caminho mais usado.


PROCEDURE Main

SetMode(33,100)
CLS
AltD()
? "SP-RN-RS-RJ"
? hb_ValToExp( TrajetoVariasUFs( "SP", "RN", "RS", "RJ" ) )
//? "SP-SE"
//? hb_ValToExp ...