Biblioteca Six

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

querentino
Usuário Nível 1
Usuário Nível 1
Mensagens: 25
Registrado em: 28 Jan 2009 19:53
Localização: Guarulhos - São Paulo

Biblioteca Six

Mensagem por querentino »

Olá pessoal, bom dia.

Sou totalmente leigo no assunto "biblioteca six", portanto preciso de uma ajuda, daqueles que manja de clipper e querem me ajudar. Estou usando clipper5.3 e (rtlink) tentando usar blinker7.
O problema é o seguinte estou tentando usar a funcao wildseek(), só que não estou conseguindo linkar o prg nem com rtlink nem com blinker?

Código: Selecionar todos

request dbfcdx
rddsetdefaut("dbfcdx")
# include "sixcdx"
USE D:\KARVAN\PECAS
                         index on nomepeca tag nomepeca to pecas 
                         ordsetfocus('nomepeca")
                         priv lista:={}
                         go top
                         do while sx_wildseek("*rolamento*",.t.)
                                aadd(lista,field->nomepeca)
                         enddo
                         achoice(05,11,22,70,lista,.t.,,)
INKEY(0)
compilo o prg assim: clipper c.prg /b e blinker fi c

Agradeço qualquer interresse em ajudar.
Editado pela última vez por querentino em 20 Abr 2009 16:54, em um total de 1 vez.
querentino
Usuário Nível 1
Usuário Nível 1
Mensagens: 25
Registrado em: 28 Jan 2009 19:53
Localização: Guarulhos - São Paulo

Re: Biblioteca Six

Mensagem por querentino »

Olá pessoal, uma pergunta até um pouco ridicula para o pessoal deste forum, mais eu não consigo linkar esse prg.
Por favor peço ajuda urgente.
Obrigado a todos.
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Re: Biblioteca Six

Mensagem por Hasse »

Boa noite Querentino.

Você está incluindo as instruções abaixo no PRG principal ?

Código: Selecionar todos

REQUEST DBFCDX
RddSetDefault("DBFCDX")
#include "SIXCDX.CH"
Como já faz alguns anos que migrei para o xHarbour, não lembro, mas acho que a biblioteca SIX não funciona com o NTX. Assim você deve usar o NSX ou o CDX. Eu recomendo este último, muito mais seguro e rápido.

Também recomendo usar o Blinker.

Cuide também dos detalhes das instruções abaixo:

Código: Selecionar todos

     NOTE:  The installation program merely creates the specified direct-
            ories, if necessary, and extracts the proper files from the
            distribution disk(s) into those directories.  It does NOT modify
            your DOS environment settings, or alter your AUTOEXEC.BAT or
            CONFIG.SYS files in any way.

            In order to properly use the SIx Driver you must make sure that
            the Clipper compiler (CLIPPER.EXE) can find the SIx Driver header
            (.CH) files, and that your linker can find the appropriate SIx
            Driver libraries (.LIB) and object (.OBJ) files.  To do this, just
            add the path where you've installed these files to your
            AUTOEXEC.BAT file's SET LIB and SET INCLUDE environment setting.

            For example:

              SET LIB=c:\clipper5\lib; ... ;C:\SIX3\LIB
              SET INCLUDE=c:\clipper5\include; ... ;C:\SIX3\INCLUDE
Boa sorte e bom trabalho.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
querentino
Usuário Nível 1
Usuário Nível 1
Mensagens: 25
Registrado em: 28 Jan 2009 19:53
Localização: Guarulhos - São Paulo

Re: Biblioteca Six

Mensagem por querentino »

Olá amigo Hasse, agradeço muito a sua ajuda. Consegui resolver um problema e encontrei outro.
Quando utilizo o blinker da esse erro
BLINKER : 1115 : C.OBJ(C) : 'DBFCDX' : UNRESOLVED EXTERNAL
BLINKER : 1115 : C.OBJ(C) : 'SIXCDX' : UNRESOLVED EXTERNAL
BLINKER : 1115 : C.OBJ(C) : 'SX_SETTRIG' : UNRESOLVED EXTERNAL
BLINKER : 1115 : C.OBJ(C) : 'SX_WILDSEE' : UNRESOLVED EXTERNAL
E agora meu amigo como resolvo esse problema.
Desde já obrigado a todos e principalmente ao amigo Hasse.
Há eu mudei o prg. confira nio post acima.
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Re: Biblioteca Six

Mensagem por Hasse »

Estes erros não são do PRG. São do Blinker incorretamente configurado.

Segue um *.lnk padrão para executar o Blinker que eu uso faz muito tempo.

Código: Selecionar todos

#
# TESTE.LNK
#
blinker exe compress 1
blinker cache xms 512, 25%
blinker cache ems 50%, 1024
blinker lowmem reserve 64
blinker incremental off
blinker executable clipper=//F:100 //X:20
blinker executable nodelete
blinker overlay pageframe on
blinker overlay opsize 65
stack 7168

# -> a linha abaixo gera o programa em modo protegido (mem. extendida),
# se não desejar assim, basta comentar com a cerquilha.
blinker executable extend

map

output MeuExecutavel.exe

fi prog01                      # Objetos anteriormente clipados
fi prog02, prog03

fi msg                         # Em \Clip53\obj
fi ntxpo850                    # Em \Clip53\obj

fi \clip53\six\obj\sixcdx
search \blinker\lib\blxclp53          

lib \clip53\lib\dbfcdx
lib \clip53\lib\_dbfcdx
lib \clip53\lib\oslib

@\clip53\six\samples\six3.lnk
@\blinker\clp\lnk\cl530mid.lnk
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
querentino
Usuário Nível 1
Usuário Nível 1
Mensagens: 25
Registrado em: 28 Jan 2009 19:53
Localização: Guarulhos - São Paulo

Re: Biblioteca Six

Mensagem por querentino »

Desculpe a demora para responder, porque estava viajando e retornei a poucos dias.

Obrigado pela gentileza em ajudar... Consegui resolver o problema graças a sua ajuda.
Responder