_vmouse_code e _vkbd_code

Mensagem por **Maligno** » 28 Jul 2007 15:49

Primeiro de tudo: tente linkar da forma mais simples possível, até o erro sumir. Depois você tenta usar outros scripts. Se possível, até escreva um PRG simples e monte seu EXE. Depois vá avançando. Não tente por cima primeiro. Tente por baixo.

Gelson · Mensagem por **Gelson** » 28 Jul 2007 16:02

Maligno,

Lendo o help do blinker estas parecem ser os parametros necessários para linkar. Não uso nenhuma lib grafica, não tem nenhum recursos para uso de mouse, e tudo simples mesmo. A unica coisa que quero é linkar em modo protegido para não ter mais problemas de memória segundo informações que também li aqui pelo forum.

Vou colocar o script inteiro talvez fique mais claro.

Código: Selecionar todos

NOBELL
BLINKER INCREMENTAL OFF
BLINKER CACHE EMS 50%,50%
BLINKER CACHE XMS 50%,50%
BLINKER CLIPPER PAGE OFF
BLINKER LINK EMS ON
BLINKER LINK XMS ON
BLINKER EXECUTABLE EXTENDED 2048 
BLINKER HOST MESSAGE ON
BLINKER HOST DPMI ON
BLINKER HOST VCPI ON
BLINKER HOST XMS ON
BLINKER PROCEDURE DEPTH 70
BLINKER EXECUTABLE COMPRESS 1
SEARCH BLXRATEX
SEARCH BLXCLP53
OUTPUT CONTACOR
STACK 7068
FILE CCOP01
FILE CCOP02
FILE CCOP03
FILE CCOP04
FILE CCOP05
FILE CCOP06
FILE CCOP07
FILE CCOP08
FILE CCOP09
FILE CCOP10
FILE CCOP11
FILE CCOP12
FILE CCOP13
FILE CCOP14
FILE CCOP15
FILE CCOP17
FILE CCOP18
FILE CCOP19
FILE CCOP20
FILE CCOP21
FILE CCOP22
FILE CCOP23
FILE CCOP24
FILE CCOP25
FILE CCOP26
FILE CCOP27
FILE CCOP28
FILE CCOP29
FILE CCOP30
FILE CCOP31
FILE CCOP32
FILE CCOP33
FILE CCOP35
FILE CCCABP10
FILE CCCABP20
FILE CCCABP27
FILE CCCABP30

LIB CLIPPER,EXTEND,DBFNTX,CTP53

Mensagem por **Maligno** » 28 Jul 2007 16:05

Devolvo seu script o mais enxuto possível. Com isso deveria funcionar:

Código: Selecionar todos

NOBELL 
BLINKER EXECUTABLE EXTENDED
BLINKER EXECUTABLE COMPRESS 1 

OUTPUT CONTACOR 

FILE... O PRIMEIRO PRG AQUI
FILE... DECLARE O RESTO AQUI

LIB CTP53
LIB BLXCLP53

Teste e dê o retorno se funcionou ou não.

Mensagem por **sygecom** » 28 Jul 2007 16:36

Peixe Frito.....hehe

Mensagem por **Maligno** » 28 Jul 2007 16:49

Não. Na verdade é bem o contrário. Infelizmente você não consegue perceber isso. Mas tem um exemplo de peixe frito e já cortado bem aqui. Até vejo que muitos colegas tem o hábito de passar scripts monstruosos, que podem atrapalhar. Claro que sempre com a inteção de ajudar. É válido. Mas o que fiz foi apenas dar a semente do script e orientei o colega a testá-lo. Como é mais simples, é mais fácil. Depois, com o tempo, livre de possíveis erros, e com ajuda do help do BLinker pra consolidar os conhecimentos, ele poderá aumentar seu script, acrescentando novas características. É melhor do que usar um script monstruoso logo de cara e que, na hora que dá pau, só atrapalha.

Gelson · Mensagem por **Gelson** » 28 Jul 2007 17:29

Mudei o script porém a continua a mesma mensagem de erro, tentei apenas um blinker FI ccop01 e nada, fui tentando com vários outros e sempre a mesma coisa.
Há alguma mudança a ser feita nos fontes em relação ao clipper 5.01 e o clipper 5.3 ?

Mensagem por **Maligno** » 28 Jul 2007 17:31

Nos fontes não. Mas você tentou usar esse script mínimo com um programa simples?

Gelson · Mensagem por **Gelson** » 28 Jul 2007 18:11

Testei com os fonte que não fazem chamada a outro fontes, tipo se teclado isto, do fontetal.

compilei e linkei um a um (separadamente) e mesmo assim aparece a mesma mensagem,

criei um prg chamado teste com o conteudo abaixo, e mesmo assim dá a mesma mensagem.

Código: Selecionar todos

CLEAR ALL
SETCOLOR("W+/B")
SET DELETE ON
SET TALK OFF
SET BELL OFF
SET DATE BRITISH
SET EPOCH TO 1990
DO WHILE .T.
   RESP = ' '
   CLEAR
   @1,2 TO 19,79 DOUBLE
   @21,10 SAY 'VERSAO ANO 2007'
   @1,9 SAY ' CONTAS - BANCO DE DADOS 29/08/2.002 - MENU PRINCIPAL'
   @3,10 SAY 'A. INCLUSAO '
   @4,10 SAY 'B. EXCLUSAO '
   @5,10 SAY 'C. ALTERACAO '
   @6,10 SAY 'D. CONSULTA'
   @7,10 SAY 'E. RELATORIOS'
   @8,10 SAY 'F. COPIA DE SEGURANCA'
   @9,10 SAY 'G. RESTAURAR ARQUIVOS'
   @10,10 SAY 'H. RELATORIO DE VENDAS A PRAZO'
   @11,10 SAY 'R. RELATORIO LIMITE ESTOURADO' 
   @12,10 SAY 'T. TERMINAR'
   @14,10 SAY 'RESPOSTA'   
   @16,10 SAY DATE()
    DO WHILE RESP = ' '
         @14,19 GET RESP
         READ
         IF UPPER (RESP) $ 'ABCDEFGHRT'
            EXIT
         ENDIF
         RESP = ' '
ENDDO
ENDDO

praticamente só a tela e nada mais.

Gelson · Mensagem por **Gelson** » 28 Jul 2007 18:22

Consegui compilar o teste.prg usando o blinker 7 porem com o clipper 5.01. com o cl53 não passa.

Mensagem por **Maligno** » 28 Jul 2007 18:25

Tentou com o 5.2? Se você não precisa de algumas "firulas" que tem no 5.3, aconselho a usar a versão 5.2e, que é aliás, a versão que eu uso. Há quem diga que é a melhor versão do Clipper.

Gelson · Mensagem por **Gelson** » 28 Jul 2007 18:57

Preciso da CTP52, tem como me passar ? Agora pelo menos o teste.prg passou sem problemas isto usando o clipper52E

Gelson · Mensagem por **Gelson** » 28 Jul 2007 18:59

no site site tem o clipper52 deve estar até completo com a CTP52 porém são mais de 5 mb e minha net discada está doer.

Mensagem por **Maligno** » 28 Jul 2007 19:01

O pacote com o Clipper 5.2 contém apenas o compilador. A biblioteca CTP52 só vem com a CATools. Do que você precisa?

Mensagem por **Maligno** » 28 Jul 2007 19:05

Sem querer ser chato, mas já sendo... Quase tudo o que você vê no meu site eu peguei quando ainda usava conexão discada. Ali tem mais de 300MB de arquivos. Ou seja, paciência é uma virtude.

Gelson · Mensagem por **Gelson** » 28 Jul 2007 19:56

Você está certo, vou pegar.
assim que tiver compilado post o retorno.