Usar CLD junto com BLINKER

[rubens]

Não estou conseguindo o usar o CLD quando compilo com o blinker... Alguem pode analisar LNK e ver o que pode ser acrescentado/removido para conseguir usar o CLD.

NOBELL
Blinker Incremental Off
Blinker Cache EMS 50%,50%
Blinker Cache XMS 50%,50%
Blinker Link EMS ON
Blinker Link XMS ON
Blinker Exec Clipper //Dynf:8 //F:150
Blinker Exec Comp 1
Blinker Exec Exte
Blinker Memo Pack 60
Search BlxClp52
Blinker Incr Pad 256
Blinker Over Page On
Blinker Over Opsi 60

BEGIN
FI CLUBE
FI CLUBEFUN
FI CLIENTE
FI BROWSERS
FI FORNECE
FI RELCLI
FI RELFOR
FI CTPG
FI RELCP
FI CTRC
FI RELCR
FI BACKUP
FI PRODUTO
FI GRUPOS
FI CONTAS
FI VENDEDO
FI VENDA
FI COMPRA
FI RELEST
FI NOTAF
FI TRANSPO
FI CAIXA
FI CONDICAO
FI BANCOS
FI CHEQUES
FI RELCHE
FI MSGPOR
FI CUPOM
FI IMPRES
FI FUNPESQ
FI TIMESLIC
FI SENHA
LIB CLUBELIB,SUBNTX,NANFOR52,EDBF,ENCRIPT,EXTEND,CTP
ENDAREA

[Maligno]

Antes de tudo, como você utiliza o modo protegido, pode remover qualquer coisa relacionada à overlay, como esse BEGIN/ENDAREA, por exemplo. Nesse modo, o assunto "overlay" é solenemente ignorado pelo BLinker.

Para usar o debugger, inclua FI CLD.LIB (sim, é como arquivo mesmo) e coloque o gatilho Altd() em algum ponto do seu programa. Aliás, se usa a versão 7 do BLinker, pode remover também a TIMESLIC. Troque por uma chamada única da função BliCPURel() no seu PRG principal.

[rubens]

Então Maligno,

Eu gostaria de executar a função showtime() que está na ct ou ctp, mas quando mando executar ele retorna uma série de erros.. Já tentei com o ct.lib ou ctp.lib e dá a mesma coisa, daí deixo o lnk como abaixo e retiro a função showtime() e funciona. Não conhece uma lib ou funçao que mostra um relógio na tela em tempo real como a showtime() e não daria erro na compilação... ? Já pesquisei no Fórum porque alguem teve o mesmo problema mas não se chegou a nenhuma conclusão...

Lnk corrigido que funciona com o CLD... a versão do blinker que tenho é 4.10

Código: Selecionar todos

NOBELL
Blinker Incremental Off
Blinker Cache EMS 50%,50%
Blinker Cache XMS 50%,50%
Blinker Link EMS ON
Blinker Link XMS ON
Blinker Exec Clipper //Dynf:8 //F:150
# Blinker Exec Comp 1
# Blinker Exec Exte
Blinker Memo Pack 60
Search BlxClp52
Blinker Incr Pad 256
Blinker Over Page On
Blinker Over Opsi 60

BEGIN
	FI CLUBE
	FI CLUBEFUN
	FI CLIENTE
	FI BROWSERS
	FI FORNECE
	FI RELCLI
	FI RELFOR
	FI CTPG
	FI RELCP
	FI CTRC
	FI RELCR
	FI BACKUP
	FI PRODUTO
	FI GRUPOS
	FI CONTAS
	FI VENDEDO
	FI VENDA
	FI COMPRA
	FI RELEST
	FI NOTAF
	FI TRANSPO
	FI CAIXA
	FI CONDICAO
	FI BANCOS
	FI CHEQUES
	FI RELCHE
	FI MSGPOR
	FI CUPOM
	FI IMPRES
	FI FUNPESQ
	FI TIMESLIC
	FI SENHA
	FI CIDADE
	LIB CLUBELIB,SUBNTX,NANFOR52,ENCRIPT
ENDAREA

[ANDRIL]

Eu gostaria de executar a função showtime() que está na ct ou ctp, mas quando mando executar ele retorna uma série de erros..

Quais erros?

Notou se esses erros com a showtime passaram a ocorrer depois do uso do CLD ou sempre ocorreram?

Já tentou colocar as libs que citou antes das demais?

Código: Selecionar todos

LIB ctp OU ct, CLUBELIB,SUBNTX,NANFOR52,ENCRIPT

Não tem motivo para não funcionar a função showtime(). Já verificou na NANFOR se não tem uma função de mesmo nome, que poderia neste caso alterar os parametros ocorrendo erros. Ou nesta mesma lib, verifique se não tem uma função equivalente.

Tente colocar no seu arquivo a chamada a este arquivo objeto, poderá ser necessário ao sistema.

Código: Selecionar todos

FI CLUBE
18	   FI CLUBEFUN
19	   FI CLIENTE
20	   FI BROWSERS
21	   FI FORNECE
22	   FI RELCLI
23	   FI RELFOR
24	   FI CTPG
25	   FI RELCP
26	   FI CTRC
27	   FI RELCR
28	   FI BACKUP
29	   FI PRODUTO
30	   FI GRUPOS
31	   FI CONTAS
32	   FI VENDEDO
33	   FI VENDA
34	   FI COMPRA
35	   FI RELEST
36	   FI NOTAF
37	   FI TRANSPO
38	   FI CAIXA
39	   FI CONDICAO
40	   FI BANCOS
41	   FI CHEQUES
42	   FI RELCHE
43	   FI MSGPOR
44	   FI CUPOM
45	   FI IMPRES
46	   FI FUNPESQ
47	   FI TIMESLIC
48	   FI SENHA
49	   FI CIDADE
50        [b]FI __WAIT_B[/b]

Caso não tenha, pegue ele aqui

__wait_b.prg

(259 Bytes) Baixado 107 vezes

. Esta como PRG mais é um OBJ altere para OBJ. No forum não é aceisso arquivo com extensão OBJ.

Outra opção é usar a BGEVENTS.LIB para acionar uma função em segundo plano, basta criar uma função que mostre a hora simples e coloca-la em segundo plano:

no inicio da sua tela principal defina a função em background

Código: Selecionar todos

Define backgroundevent Action myshowtime() Name "UdfClock1" interval  1
bge_start()

Função que exibe a hora, poderia na linha acima colocar apenas TIME() mais não teria como posicionar nas linha e coluna desejada, veja

Código: Selecionar todos

function myshowtime(lin,col)
@lin,col say time()
return

Faça uma busca no forum sobre BGEVENTS voce tera varios exemplos e link para baixá-la.
Abraços