Inicio xharbour Página 1 de 4

Inicio xharbour.
Se você é realmente iniciante em Xharbour e era “Clippeiro”, este artigo lhe será útil, pois
provavelmente você tem sua pastinha Clipper configurada com seu BAT de compilação onde você
trabalhou por anos e não tem nem idéia de como sequer começar a instalar o xharbour, muito
menos de como funciona a programação, o acesso aos novos Bancos de dados e muito menos
programação gráfica.

Geralmente o pessoal dos fóruns, te dá uma explicada, mas tudo que é falado são escolhas de
“você pode usar isto” ou “você pode usar aquilo”, porém como você não tem idéia de nada,
precisa de alguém que escolha pra você, o que, e como usar, pois você realmente só sabe que faz
programas em Clipper, mas sequer sabe preparar as pastas e compilar utilizando Xharbour.

A primeira coisa que você pode ter certeza é que, os comandos e tudo que você fez em Clipper
não se perderá, só mudou de nome mesmo para Xharbour, e os comandos são os mesmos, a única
coisa que aconteceu é que aumentaram os comandos para você usar, então, se vai mudar a
plataforma de programação, não vai mudar em nada os Prgs que você tem prontos.

O que quero dizer com “só mudou de nome” é que aparentemente pra você que é clippeiro só
mudou o nome mesmo, porém internamente na compilação o Xharbour converte tudo que
escreveu em PRG para C e logo depois converte o C para EXE, os compiladores mudaram
internamente para atender os nomes sistemas operacionais e outras novidades, evitando os
problemas antigos de estouro de memória na época do DOS, e outros.

Mas isto você também não precisa saber, a única coisa, que você quer, é instalar sua pastinha para
recompilar seus programinhas, testar, e depois pensar em alguma coisa mais intensa como acesso
aos novos Bancos de dados e interface gráfica.

Pois bem, você está no lugar certo. Fiz as escolhas pra você e vou te falar como fazer passo a
passo.

PASSO 1 – Faça o download do Xharbour no endereço:

http://downloads.sourceforge.net/xharbour/xharbour-1.20.01.bin.w32.bcc32.5.51.zip

Caso o link acima esteja com defeito abra em www.xharbour.org, procure por “binaries”, escolha
a plataforma “Windows” e baixe algo parecido com “binaries para borland c++”

Obs: Pode ficar tranqüilo que ao escolher plataforma “Windows” não significa que você vai puxar
algo gráfico é só para identificar Windows ou Linux. O que você vai puxar continua sendo sua
interface DOS. (Como já disse fiz as escolhas pra você).

1.1 – Após fazer o download você irá descompactar o conteúdo do ZIP de forma que você deverá
criar uma pasta em seu HD nomeada para C:\xharbour e coloque o conteúdo lá:
1.2 - Vai ficar assim:
1.2.1 c:\xharbour
1.2.2 c:\xharbour\bin
1.2.3 c:\xharbour\doc
1.2.4 c:\xharbour\include
1.2.5 c:\xharbour\lib

http://www.girashop.com.br/xharbour/xharbour.htm 16/01/2018
Inicio xharbour Página 2 de 4

*Já está começando a parecer seu velho Clipper não é ?

PASSO 2 – Configurando o BAT para compilação.

2.1 - Dentro da pasta C:\xharbour\bin CRIE um BAT com o nome XHB.BAT e dentro dele vai
ter:

@echo off
cls
call BLD_B32 %1

2.2 – É este Bat que você vai substituir seu antigo “CL meuprog”

2.3 – Dentro da pasta C:\xharbour, crie outro BAT com o nome BPATH.bat com seguinte
conteúdo:

SET PATH=c:\windows\system32
SET PATH=%PATH%;c:\BCC55\BIN;c:\BCC55\LIB;c:\BCC55\INCLUDE
SET PATH=%PATH%;c:\xharbour\bin;c:\xharbour\lib;c:\xharbour\include

SET INCLUDE=c:\xharbour\include;c:\Bcc55\include
SET LIB=c:\Bcc55\lib;c:\xHarbour\lib

SET HB_PATH=C:\xHARBOUR

2.4 – Calma que ainda não está pronto.

PASSO 3 – Fazendo o download do segundo compilador BCC32

3.1 – Não se preocupe, não é “mais um programa para configurar” seu Bat que já foi criado vai
utilizar este compilador para transformar o que o xharbour criou (PRG para C) e converter de (C
para EXE), mas será feito automático pelo XHB.BAT já criado basta seguir os passos abaixo.

3.2 – Faça o download do compilador C em:

http://www.baixaki.com.br/site/dwnld38080.htm
Se o link não funcionar ou se aposentar, vá no google e procure por:
“download bcc32”; você vai encontrar alguns links, o que você precisa saber para puxar certo é
que é o “Borland C++ compiler”

*Não se acanhe em preencher algum formulário para fazer o download, o compilador é

gratuito.

3.3 – Feito o download descompacte o conteúdo alterando para a pasta C:\BCC55, ficará assim:
3.3.1- C:\BCC55
3.3.2- C:\BCC55\BIN

http://www.girashop.com.br/xharbour/xharbour.htm 16/01/2018
Inicio xharbour Página 3 de 4

3.3.3- C:\BCC55\EXAMPLES
3.3.4- C:\BCC55\HELP
3.3.5- C:\BCC55\INLCUDE
3.3.6- C:\BCC55\LIB

3.4 – Não será necessário fazer nenhum BAT ou configuração para esta pasta.

3.5 – Copie todos os arquivos da pasta C:\BCC55\include para a pasta

C:\XHARBOUR\INCLUDE;
Não sobreponha arquivos já existentes na pasta destino caso haja.

3.6 – Copie todos os arquivos da pasta C:\BCC55\lib para a pasta C:\XHARBOUR\LIB;

Não sobreponha arquivos já existentes na pasta destino caso haja.

PRONTO !!!!!! TESTANDO ....

Para começar a programar:

1-Entrar na pasta C:\xharbour

2-digite bpath <enter>
3-digite seu programa com EDIT TESTE.PRG
4-compile com XHB TESTE
5-O sistema irá gerar seu TESTE.EXE se não houver erros.

Observação1: Para você fazer seu primeiro teste é fundamental que você saiba que, o teste.prg
deverá começar sempre com “function main()” e terminar com “return nil”

Exemplo: TESTE.PRG

Function main()
clear
? “Ola Tudo bem!”
return nil

Observação2: Em algumas ocasiões você se deparará com um “warning” de compilação sobre

“ambiguous reference GETLIST.

É normal, para eliminar isto basta colocar no teste.prg assim:

Function main()
Local getlist:={}
Clear
? “ola Tudo bem!”
return nil

Observação 3: O mesmo “warning” acontece com algumas variáveis, é normal e não impede a
confecção do EXE.

http://www.girashop.com.br/xharbour/xharbour.htm 16/01/2018
Inicio xharbour Página 4 de 4

Aos meus companheiro iniciantes;

“Nosso saudoso Clipper não vai morrer, unidos e
pensando juntos manteremos nossa linguagem na
ativa, ela se aperfeiçoou e mudou de nome
Xharbour.”

Abraços
Ruy Maurício de Paula Barbosa
13/12/2012

http://www.girashop.com.br/xharbour/xharbour.htm 16/01/2018
Xharbour para Iniciantes Página 1 de 3

Xharbour para Iniciantes. – Por Ruy Mauricio

Acessando e consultando um arquivo .FDB ou .GDB através do Xharbour.

(FIREBIRD 1.5)

Observação: Por se tratar de aprendizado para quem está realmente começando o melhor exemplo
que posso dar é como fazer uma simples abertura e consulta em um banco de dados .FDB
ou .GDB (Firebird). Sem gravações ou complexidades.

Você precisa saber:

1-Seu xharbour deve estar instalado corretamente, se não instalou leia e execute minha instrução
de instalação básica aqui mesmo www.girashop.com.br/xharbour .

2-As dicas que serão apresentadas irão mostrar basicamente como consultar um GDB/FDB através
do xharbour DOS, sei que você não conhece nada dos bancos novos, mas tem um único comando
que você TEM que saber, que é o SELECT. Este comando é similar ao LIST ou DISPLAY do
Clipper e nele mesmo tem as condições de consulta. É simples de aprender. Caso não saiba
coloquei uma pequena aulinha sobre ele no fim deste documento em Anexo 1. Não precisa ler
agora, pois mais tarde você vai precisar.

3-Preparando o Xharbour para fazer acesso ao FIREBIRD:

3.1 – Se você que ler um banco FIREBIRD, obrigatoriamente na maquina deve estar
instalado o próprio FIREBIRD que é gratuito e se quiser pode fazer o download aqui
www.girashop.com.br/xharbour/firebird.zip . Instale aceitando todos os valores padrão.

3.1.1 – Sei que você deve estar pensando “ihhh já complicou, tenho que instalar
mais programas, e se for assim terei que instalar isto nos meus clientes, etc.

Saiba que esta cruz, o pessoal que trabalha com os novos bancos carregam. Com
certeza você não vai precisar instalar o FIREBIRD na maquina de seu cliente, pois
se seu cliente já usa um banco FDB/GDB o FIREBIRD já está instalado na
maquina dele obrigatoriamente. Vai por mim, acostume-se com a idéia, pois é
normal. Se Quiseres abrir um FDB/GDB sem o FIREBIRD instalado este tutorial
seria bem mais complicado desnecessariamente.

3.2 – Provavelmente você já instalou seu Xharbour como eu falei no item 1.

3.3 – Faça o download destas LIBs fbclient.lib e firebird.lib, você ira gravar estas libs na
pasta LIB do seu Xharbour.

3.4 – Ajuste o seu BAT de compilação do seu Xharbour para incluir estas LIBS na
compilação. Se você não sabe como fazer isto explico no Anexo 2 ao fim deste documento.

3.5 – Provavelmente você já tem um Arquivo.FDB ou .GDB para consultar. É importante

você testar abri-lo através dos meios convencionais para ver se seu FIREBIRD está
rodando corretamente na sua máquina. Se não conseguir abrir através do IBEXPERT ou
IBCONSOLE não adianta prosseguir com os testes via Xharbour. Se você não sabe nada
sobre IBEXPERT ou IBCONSOLE leia o Anexo 3.

http://www.girashop.com.br/xharbour/Firebird.htm 16/01/2018
Xharbour para Iniciantes Página 2 de 3

3.6 – Testada a abertura convencional do FDB/GDB, crie sua pasta TESTE de seu futuro
aplicativo, grave nesta pasta um arquivo indispensável ao funcionamento do seu programa
chamado fbclient.dll. (Mais um calo pra quem usa estas bases rsrs).

3.7 – Inicie a edição do seu PRG: Veja, este exemplo mostra como ler e jogar na tela
DOS, o conteúdo que você quiser do banco de dados, de acordo com o comando SELECT
criado. A partir deste exemplo você poderá diversificar e a consulta do jeito que quiser na
tabela que quiser. Aqui o banco que será aberto se chama ORIG.FDB e os dados que serão
consultados será NOME e TELEFONE que estão na tabela CLIENTES, negritei as partes
que você poderá mudar para seu arquivo.

#include "common.ch"
Function Main()
ndialect := 1
clear
/* Connect rdbms */
db := FBConnect("orig.fdb", "sysdba", "masterkey")

if ISNUMBER(db)
? 'Error'
quit
end

trans := FBStartTransaction(db)
vteste = FBQuery(db, "SELECT nome, telefone FROM clientes", ndialect, trans)
vx = 1
do while FBfetch(vteste)==0
@row()+1,00 say FBGetData(vteste,1)
@row(),50 say FBGetData(vteste,2)
if row() > 20 //lista 20 registros por vez e aguarda enter.
inkey(0)
clear
endif
enddo
set curs on
FBFree(vteste) //apaga query
FBClose(db) //fecha db

return nil

3.8 – Se não houve erros seu EXE foi criado.

3.9 – Os warmings “ambiguous reference” para algumas variáveis é normal.
3.10 – Rode seu TESTE.EXE

OBSERVAÇOES:

*Na maquina de seu cliente precisará ter:

( FIREBIRD INSTALADO )
TESTE.EXE
ORIG.FDB

http://www.girashop.com.br/xharbour/Firebird.htm 16/01/2018
Xharbour para Iniciantes Página 3 de 3

FBCLIENT.DLL

*Todas as outras instalações aqui descritas são feitas apenas na maquina do

programador.

ANEXO 1 – Como usar o Comando SELECT do SQL.

O SELECT “puxa” informações do banco de dados do jeito que você quiser parecido com
o comando DISPLAY ou LIST do Clipper

Exemplo 1: Obter o conteúdo do campo NOME da tabela CLIENTES:

SELECT nome FROM clientes

Exemplo 2: Obter o conteúdo do campo NOME da tabela CLIENTES só para nome =

joao:
SELECT nome FROM clientes WHERE nome = ‘joao’

Exemplo 3: Obter nome e telefone da tabela clientes só quem tem cidade igual a Belo
horizonte, em ordem de nome.
SELECT nome, telefone FROM clientes WHERE cidade = ‘Belo Horizonte’ ORDER BY
nome

ANEXO 2 – Incluindo as novas LIBS no BAT de compilação.

Tarefa chata; Se você utilizou a instalação indicada no item 1, de como instalar o xharbour,
provavelmente você tem uma arquivo .BAT na pasta c:\xharbour\bin\BLD.BAT

Edite este arquivo e coloque no inicio dele:

set HB_FIRST_LIBS=fbclient.lib firebird.lib

ANEXO 3 – Utilizando IBEXPERT ou IBCONSOLE

Estes utilitários são para acesso direto ao Banco de dados, similar ao Dbase, Fox ou DBU,
para quando voce quiser abrir o BD sem sistema.
Após instalado corretamente Firebird faça o download do IBEXPERT digitando no google
“download ibexpert”.

Fim.
Ruy Mauricio de Paula Barbosa

http://www.girashop.com.br/xharbour/Firebird.htm 16/01/2018
Inicio xharbour Página 1 de 1

INDICES CDX DO XHARBOUR

A manutenção e uso de índices CDX do xharbour é mais organizada e rápida.

O que muda é que não se cria um arquivo de índice para cada chave como era feito antes.

Todos os índices e chaves ficam gravados e organizados dentro de um único arquivo com
extensão CDX.

Exemplo de uso:

*Configuração inicial para começar a usar

REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")

*Criando índices para cadastro de clientes

use CLIENTES
INDEX ON nome TAG indnome TO CLIENTES.CDX
INDEX ON cpf TAG indcpf TO CLIENTES.CDX
INDEX ON codigo TAG indcod TO CLIENTES.CDX

*Abrindo arquivo e índices

USE CLIENTES INDEX CLIENTES.CDX

*Escolhendo índice de cpf para trabalhar

Set order to indcpf

*Escolhendo índice de nome para trabalhar e procurando chave

Set order to indnome
seek vnome

*Reindexando tudo de novo

REINDEX

http://www.girashop.com.br/xharbour/indices.htm 16/01/2018