Abaixo estão relacionadas algumas dicas que serão muito úteis para facilitar a programação em Clipper. Clique sobre uma das dicas abaixo para mais detalhes.
Se você tiver alguma dica para colocar nessa seção envie para o e-mail toledo@pctoledo.com.br.
Como configurar o MS-DOS para executar uma aplicação em Clipper.
Para executar uma aplicação em Clipper 5.x, você deve ter alguns cuidados ao configurar o ambiente de trabalho para que a aplicação funcione corretamente. No arquivo CONFIG.SYS dois parâmetros básicos devem ser reconfigurados:
FILES - parâmetros que especifica ao DOS o número máximo de arquivos que podem ser abertos simultaneamente. O número de arquivos abertos simultaneamente refere-se a arquivos de qualquer tipo (.dbf, .dbt, .ntx, .mem etc.) abertos em um dado momento pela aplicação. A configuração ideal é que este número seja um múltiplo de 15, obedecendo o limite máximo de 255.
BUFFERS - parâmetro que especifica o número de buffers (áreas da memória reservadas para a transição de dados) que devem ser utilizados durante as operações de leitura e gravação no disco. Neste comando deve ser utilizados valores múltiplos de 8.
No arquivo AUTOEXEC.BAT deve ser colocado a variável ambiental SET CLIPPER, a sintaxe a ser utilizada é a seguinte:
SET CLIPPER=F:<nn>;DYNF:8;SWAPK:65535;SWAPPATH:<"dir">
Parâmetros:
F:<nn> é usado junto com o valor especificado no comando FILES do arquivo CONFIG.SYS para informar ao Clipper o número máximo de arquivo a serem usados. Isto só é válido para programas que usem mais de 20 arquivos e executem debaixo de DOS 3.3 ou superior. Quando especificado, Clipper determina o número de arquivos que podem ser abertos usando o menor entre o parâmetro F ou o comando FILES do CONFIG.SYS. Por exemplo, se o comando FILES é estabelecido em 135 e o parâmetro F em 50, o máximo de arquivos a serem abertos será 50. O ideal para <nn> é um número par e 5 menor que o especificado no comando FILES.
DYNF:8 especifica o número de arquivo para o sistema de overlays dinâmicas. Valores válidos vão de 1 a 8 inclusive. Se não especificado, assume 2.
SWAPK:65535 especifica o maior tamanho permitido para o arquivo de swap em disco usado pelo sistema de memória virtual (VM). Especifica-se em incrementos de Kbyte. Valores válidos vão de 256 a 65535 inclusive. Caso não seja especificado, o assumido será 16384 (16 MB).
SWAPPATH:<"dir"> especifica a localização do arquivo de swap de memória virtual. Se não especificado, o arquivo será criado no drive/diretório corrente.
Exemplo:
SET CLIPPER=F:100;DYNF:8;SWAPK:65535;SWAPPATH:"C:\TEMP"
Voltar
Utilizando o RMAKE
O RMAKE automatiza a manutenção de sistemas de programas multi-arquivos, mantendo os arquivos atualizados. RMAKE mantém os arquivos atualizados comparando a data e hora dos arquivos relacionados (.prg e .obj) um ao outro e executa uma série de ações se a
data e hora não corresponderem. Se a data e hora de um arquivo .prg for mais recente que a do arquivo .obj correspondente o RMAKE realiza as ações especificadas, caso contrário, não é realizada as ações. Com isto a compilação e a linkedição se torna mais rápida, pois só os arquivos modificados recentemente serão compilados e linkeditados. Para que possamos usar o RMAKE temos que criar dois arquivos, um com as ações que serão realizadas (.RMK) e outro que vai especificar os arquivos a serem linkeditados (.LNK).
Veja abaixo um exemplo de um arquivo .RMK (nome do arquivo - ESTOQUE.RMK):
.PRG.OBJ:
CLIPPER $** /M /L
ESTOQUE.OBJ : ESTOQUE.PRG
PRODUTO.OBJ : PRODUTO.PRG
FORNEC.OBJ : FORNEC.PRG
VENDAS.OBJ : VENDAS.PRG
ESTOQUE.EXE:
RTLINK @ESTOQUE.LNK
Na maioria dos casos vamos começar o aqruivo RMK com o comando .PRG.OBJ:, que são os arquivos que sofrerão as ações a serem realizadas. O primeiro é o dependente (.PRG) e o segundo é o destino (.OBJ).
Depois vem o comando do Clipper que vamos utilizar para compilar os arquivos do programa. No exemplo está sendo usado as opções /M (compila somente o arquivo fonte) e /L (suprime a numeração das linhas).
Depois vem a lista dos arquivos a serem compilados. Observe que devemos especificar primeiro o nome dos arquivos objetos (.OBJ), colocar um separador (: dois pontos) e em seguida o nome do programa fonte (.PRG).
Depois temos que especificar qual será o nome do arquivo executável (.EXE) a ser gerado.
Depois vem o comando para linkedição do programa, acompanhado com o nome do arquivo LNK precedido por uma arroba.
Agora vamos ver como ficará o arquivo LNK (nome do arquivo - ESTOQUE.LNK):
No arquivo .LNK vamos especificar os arquivos objetos (.OBJ) que serão linkeditado e também as bibliotecas externas que serão usadas. Veja o exemplo:
FILE ESTOQUE
FILE PRODUTO
FILE FORNEC
FILE VENDAS
LIB MINHALIB, OUTRALIB
A opção LIB só é usada se você estiver utilizando alguma biblioteca externa que não seja do Clipper. Se você estiver usando somente as bibliotecas do Clipper este comando não será preciso.
Depois que você criou os dois arquivos que serão usados junto com o RMAKE, basta digitar o seguinte comando:
RMAKE ESTOQUE
Pronto, o seu programa vai ser compilado e linkeditado tudo automaticamente.
Voltar
Como criar arquivos DBF através do seu programa
Quantas vezes você já foi instalar um programa em um cliente e acabou esquecendo de levar os arquivos de dados (.DBF)?
Criando os arquivos de dados através do seu programa, você nunca mais vai passar por esta situação. Abaixo vamos dar um exemplo de como criar um arquivo .DBF dentro de um programa.
FUNCTION CRIAARQ( )
PRIVATE aStru
aStru := {;
{"CODIGO","C",03,00},;
{"NOME","C",40,00},;
{"ENDERECO","C",40,00},;
{"NUMERO","N",04,00},;
{"BAIRRO","C",25,00},;
{"CIDADE","C",25,00},;
{"SALDO","N",12,02},;
{"DATA","D",08,00}}
DBCREATE("CLIENTE.DBF",aStru)
RETURN NIL
aStru é um vetor contendo a estrutura do arquivo de dados, contendo uma série de sub-vetores, um por campo. Cada sub-vetor contém a definição dos atributos de cada campo possuindo a seguinte estrutura:
{"NomedoCampo","TipodoCampo","Tamanho","Decimais"}
O tipo do campo pode ser: Caractere (C), Numérico (N), Lógico (L), Data (D) e Memo (M).
O campo Decimais é obrigatório em todos os tipos de campos, se o campo não for numérico terá de ser preenchido com zero (00).
Agora é só chamar a função DBCREATE( ) passando como parâmetro o nome do arquivo a ser criado e a matriz contendo a estrutura do arquivo.
Voltar
Como criar sua própria biblioteca (.LIB)
Um grande recurso do Clipper é poder criar suas próprias funções, facilitando ainda mais a programação nesta linguagem. Muitos programadores guardam suas funções sempre dentro de um mesmo arquivo que é usado em vários programas, mesmo que este programa não vai usar todas as funções que estão neste arquivo. Isto aumenta o tamanho do executável, exigindo mais memória para executar o programa. O programa LIB que vem junto com os produtos da Microsoft serve para criar sua própria biblioteca (.LIB). A vantagem de se ter uma .LIB é que quando você linkar esse arquivo junto com o seu programa, apenas as funções que estão sendo usadas serão incorporadas.
O programa LIB basicamente permite que você agrupe vários arquivos objetos (.OBJ) em um arquivo com a extensão .LIB.
Sintaxe:
LIB <arqlib> <comandos>, <arqlist>, <arqsaida>
<arqlib> é o nome do arquivo lib.
<comandos> pode ser os seguintes comandos:
+ Adiciona um arquivo .OBJ na lib.
- Remove um arquivo .OBJ da lib.
* Extrai um .OBJ sem removê-lo da lib.
-+ Substitui um .OBJ da lib
-* Extrai um .OBJ e o remove da lib.
<arqlist> é o nome de um arquivo texto a ser gerado e que possui o nome e utilização da memória de cada .OBJ.
<arqsaida> este parâmetro especifica o nome que a lib terá.
Para criar uma lib com o nome de MINHALIB e que contenha as funções CRIAARQ, MENU, ENCRYP, EXPAND e PROTELA, você deve usar o seguinte comando:
LIB MINHALIB +CRIAARQ +MENU +ENCRYP +EXPAND +PROTELA ;
Agora para retirar uma função da lib você deve usar o seguinte comando:
LIB MINHALIB -ENCRYP
Se você alterou alguma função e gostaria de atualizar a sua lib você deve usar o seguinte comando:
LIB MINHALIB -+MENU
A sua lib está pronta, agora é só você usar ela normalmente pelo seu linkador. Exemplo:
RTLINK FI ESTOQUE LIB MINHALIB
Voltar
Como enviar E-mail através de um programa em Clipper
Parece brincadeira, mas é possível enviar e-mail através de um programa desenvolvido em Clipper, graças a um programa chamado SMTPSend. Este programa pode ser chamado na linha de comando do DOS e através de alguns parâmetros são passadas as informações básicas para o envio do e-mail. No programa em Clipper você pode chamar o SMTPSend usando o comando RUN que serve para executar um programa externo.
O SMTPSend usa os seguintes parâmetros:
-f <Endereço>
Neste parâmetro você vai informar o endereço eletrônico de quem está enviando o e-mail, exemplo: -ftoledo@expressnet.com.br
-t <Endereço>
Neste parâmetro você vai informar o endereço eletrônico para quem você vai enviar o e-mail, exemplo: -tjose@bol.com.br
-s <Assunto>
Neste parâmetro você vai informar o assunto do e-mail, exemplo: -sTeste de envio
-h <Servidor>
Neste parâmetro você vai informar o endereço do seu servidor de e-mail, exemplo -hsmtp.expressnet.com.br.
-i <Arquivo>
Neste parâmetro você vai informar o nome do arquivo que vai servir como corpo da mensagem, exemplo: -ic:\autoexec.bat
-a <Anexo>
Neste parâmetro você vai informar o arquivo que será enviado em anexo com o e-mail, exemplo: -aANEXO.ZIP
-@ <Arquivo>
Neste parâmetro você vai informar o nome do arquivo que terá os parâmetros descritos acima para ser executado ao invés de ficar informando os parâmetros separados.
Exemplo:
-ftoledo@expressnet.com.br
-tjose@bol.com.br
-sTeste de envio
-hsmtp.expressnet.com.br
-ic:\autoexec.bat
-aANEXO.ZIP
Abaixo segue exemplos de como utilizar o SMTPSend:
SMTPSend -ftoledo@expressnet.com.br -tjose@bol.com.br -sTeste de envio -hsmtp.expressnet.com.br -ic:\autoexec.bat -aANEXO.ZIP
ou
SMTPSend -@comandos.txt
Na seção Download você vai encontrar um programa demo usando o SMTPSend com o comando RUN.
Voltar
O RDD DBFCDX
Esse RDD permite a criação e manutenção de arquivos de dados e índices do FoxPro2.
Principais características:
Os índices .CDX do FoxPro são bem menores do que os .NTX criados pelo Clipper.
Cria índices condicionais através das cláusulas FOR, WHILE, REST e NEXT.
Cria arquivos de índices compostos que contém até 99 subíndices ou TAGS em um único arquivo reduzindo, assim, o número de arquivos abertos em nível do DOS.
Como o Clipper permite apenas 15 arquivos associados e abertos com a área atual, o uso dos arquivos CDX permite a abertura de mais arquivos de índices sem sobrecarregar o número de arquivos que o DOS manipula.
Para que o RDD DBFCDX funcione corretamente, devem ser seguidos os seguintes passos:
1 - Acrescente as linhas abaixo no início do seu programa principal:
REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
2 - Para criar os arquivos de índices, você deve usar o seguinte comando:
SELECT 1
USE CLIENTES
INDEX ON codigo TAG indice1 TO cliente1
INDEX ON nome TAG indice2 TO cliente1
Observe que cada campo chave tem um TAG diferente (indice1 e indice2), mas todos estão sendo direcionados para um mesmo arquivo (cliente1), com isto será criado um arquivo de índice chamado CLIENTE1.CDX, com dois subíndices, um indexado pelo código do cliente e outro pelo nome do cliente.
3 - Para mudar a ordem em um arquivo de índice CDX, você deve proceder da seguinte forma:
ORDSETFOCUS("INDICE2")
Com este comando você vai selecionar o subíndice "INDICE2", que está indexado pelo campo nome do cliente.
ORDSETFOCUS("INDICE1")
Retorna ao subíndice principal, que está indexado pelo campo código do cliente.
Se o comando ORDSETFOCUS( ) não for especificado, a ordem será sempre a do primeiro subíndice criado, neste caso será o indice1, pelo código.
4 - Para linkar um programa com o RDD DBFCDX, deve ser acrescentada a LIB DBFCDX durante o processo de linkagem:
RTLINK FI teste LIB DBFCDX
5 - Os comandos abaixos continuam sendo usados da mesma forma:
SET INDEX TO - Abre um arquivo de índice.
CLOSE ALL - Fecha todos os arquivos de dados e índices associados.
Voltar
Códigos de erro do Clipper (Internal Errors)
Aqui estão alguns códigos de erro do Clipper não documentado.
0 - Error System Integrity Error
O erro de sistema foi encontrado como erro desconhecido. A provável causa é memória danificada.
1 - Evaluation Stack Underflow
Um erro na pilha ocorreu após um Return.
2 - Memory Error
Ocorreu um erro de memória antes do RUN. A causa mais provável é corrupção do sistema de alocação do DOS.
3 - Memory Error
Ocorreu um erro de memória após o RUN, quando está descarregando o sistema de buffers. Isto ocorre quando o sistema tenta reinicializar o R space e existe menos de 16Kb de memória para DOS.
4 - Memory Error
Ocorreu um erro de memória, corrompendo o sistema de buffer interno. Isto acontece quando são colocados buffers internos livres quando estes já existem.
5 - Memory Error
Ocorreu um erro de memória corrompendo o buffer e o sistema EMM. Isto ocorre quando tenta-se mapear o bloco de memória EMM no endereço de espaçamento convencional e o driver EMM reporta um erro.
6 - Buffer Error
Isto ocorre quando tenta-se conectar um buffer com uma base de dados e a base de dados já está conectada a um buffer. A causa provável é corrupção de memória.
7 - Buffer Error
Isto ocorre quando tenta-se enviar um buffer de base de dados para uma base de dados e não existem buffers para isso. A causa provável é corrupção de memória.
8 - Buffer Error
O sistema executou fora da base de dados.
9 - Buffer Error
O sistema executou fora da memória quando tentava alocar a base de dados.
10 - Too Many Nested BEGIN SEQUENCE/END Blocks
Existem muitos ninhos de comandos BEGIN SEQUENCE/END definidos. O máximo é 16.
11 - BEGIN SEQUENCE/END Integrity Error
Houve uma quebra de pilha com BEGIN SEQUENCE. Isto acontece somente se existe em END pendente sem um BEGIN SEQUENCE.
14 - SORT Error
O sistema ficou sem memória durante a operação do SORT enquanto tentava alocar um buffer na base de dados.
15 - SORT Error
Ocorreu corrupção de memória durante a operação do SORT.
16 - Database Not Open
Isto ocorre ao final de um grande bloco de operações da base de dados e um dos arquivos usados pela base de dados não está mais aberto.
17 - NTX File Corrupted
Isto ocorre quando um buffer do índice foi encontrado corrompido no ato da atualização do índice.
18 - NTX File Corrupted
Isto ocorre quando um buffer do índice foi encontrado corrompido no ato da atualização do índice com a clausula UNIQUE.
19 - NTX File Corrupted
Isto ocorre quando um buffer do índice foi encontrado corrompido no ato da atualização do índice e não está com a clausula UNIQUE.
20 - NDX File Key Type Error
O processo da chave no arquivo NDX não resulta em um caractere ou em um número. Isto pode ocorrer somente se a chave tem valor lógico.
21 - NDX File Type Error
O comando SEEK processa uma procura diferente da chave de indexação.
22 - NTX File Type Error
Um comando SEEK processa a busca em um arquivo NTX com um valor lógico ou o sistema está sem memória quando processa a chave de expressão.
24 - Write Error
Este erro ocorre quando a aplicação Clipper não consegue gravar um arquivo ou um índice no disco.
92 - SORT/INDEX ON Error
O sistema não consegue criar um arquivo temporário durante a operação SORT ou INDEX.
332 - String/Array memory overflow
A máxima capacidade do Segment Virtual Object Store (SVOS) excedeu. Por causa da natureza dinânmica do SVOS, é praticamente impossível determinar o estado exato quando este erro poderá ocorrer. Em caso pior, este erro ocorre quando existe por exemplo, um megabyte de strings e/ou matrizes em uso, o melhor caso está no excesso de 16 megabytes.
Voltar
|
