Problema com tamanho de DBF x Memoria?

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1298
Registrado em: 06 Jul 2004 00:44
Contato:

Problema com tamanho de DBF x Memoria?

Mensagem por ANDRIL »

Ola Pessoal,

Tenho um dbf com mais de 16 MB e com tendencia a aumentar. O fato é que o sistema abre-o normalmente porem ao solicitar um relatorio que envolve o comando TOTAL ao realizar o calculo o sistema simplesmente é fechado com a seguinte mensagem:



BLX286 : line 1216 in NP
Called line 0 in DBEDIT
Called line 0 in CALLUSER
Called line 3546 in AND_UDF
Called line 111 in AGEOPC
Called line 126 in AGEMEN4
Called line 104 in AGEFATU
Called line 0 in __DBTOTAL

BLX286 : 1313 : exception error 0D : general protection fault, code = 0000h

Active host is DPMI (v5.10 iP6 54724 Kb)

Reg Value Limit Base Flags Segment Module File
CS 0097 FFFF 00013600 FB00 ****
DS 008F FFFF 0001CA60 F300 ****
ES 003B ****
SS 0227 FFFF 87766698 F300 23 MAKEMIX C:\NP\MAKEMIX.EXE

Código: Selecionar todos

 01 00 74 02 A4 49 D1 E9 [IP] F3 A5 13 C9 F3 A4 1F C3 90 B8 

[Registers]  AX=008F  BX=6A1A  CX=0200  DX=CDC0   CS:IP=0097:5777
             SI=4A1A  DI=0000  BP=73F2  SP=73D0  
             FL=0206  NV UP EI NT PL NZ NA PE NC 

[Stack value SS] 0F07 73D0 196C 01D7 0012 4800 0001 0400 0000 1FA2 73DC 01B3 
            [SP] 008F 480E 0400 0400 008F 6A1A 0387 486A 0400 462C 79E9 02DB 

[Stack frame SS] 6A1A 0387 486A 0400 462C 79E9 02DB 01BF 0246 0227 1B30 085E 
            [BP] 7408 4AC4 01C7 0011 0000 118F 0400 0000 01B3 0000 118F 742E 


Notei que sempre que o arquivo é maior q a metade da memoria disponivel ( Exemplo: micro com 32mb de memoria(total) sendo que somente 16mb estao livres VISTAS PELO COMANDO MEM /D  e o arquivo tem 16mb) ACONTECE o erro.
Linko o sistema com blinker 5.10 e utilizo o seguinte scrit:

FILE meufonte
OUTPUT meuprog

BLINKER INCREMENTAL OFF
BLINKER DEMONSTRATION DATE 2005/07/31
BLINKER EXECUTABLE CLIPPER F250
BLINKER EXECUTABLE EXTENDED
BLINKER EXECUTABLE COMPRESS 1

file @meusprgs
SEARCH BLXCLP52 

LIB CTP
LIB CLIPPER
LIB EXTEND
LIB DBFCDX
LIB SCRSVE52
LIB IMPBAR

Preciso saber se tem como utilizando mais opcoes no script acima acabar com este erro. Ficarei muito agradecido.

Abracos
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Dudu_XBase
Membro Master
Membro Master
Mensagens: 1071
Registrado em: 25 Ago 2003 16:55

Mensagem por Dudu_XBase »

Andril Boa Noite.
Migre para a versão 7 do blinker.
Fiz umas alterações no seu lnk ..

Código: Selecionar todos

FILE meufonte
OUTPUT meuprog

BLINKER INCREMENTAL OFF
BLINKER DEMONSTRATION DATE 2005/07/31
BLINKER EXECUTABLE CLIPPER //F:200 //DYNF:8 //SWAPK:65535 //SWAPPATH:"C:\" //TEMPPATH:"C:\"
BLINKER HOST DPMI ON
BLINKER HOST VCPI ON
BLINKER HOST XMS  ON
BLINKER HOST MESSAGE OFF
BLINKER EXECUTABLE COMPRESS 1
file @meusprgs
LIB BLXCLP52
LIB BLXRATEX
LIB CTP
LIB CLIPPER
LIB EXTEND
LIB DBFCDX
LIB SCRSVE52
LIB IMPBAR 


________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle




Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1298
Registrado em: 06 Jul 2004 00:44
Contato:

Mensagem por ANDRIL »

Ola Dudu,

Ja utilizei a versao BLINKER 7.0 com o meu script continuou dando o mesmo erro agora vou testar com suas alteracoes. Espero que funcione!!!

Qto ao uso de alguma lib vc notou se há alguma no meu lnk que não funcione em modo protegido? Todas funcionaram bem ate hoje.

Vou testar e posto o retorno aqui,

Obrigado!
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1298
Registrado em: 06 Jul 2004 00:44
Contato:

Mensagem por ANDRIL »

Ola Dudu!

Fiz o teste com seu script e nao funcionou deu falta de memoria e nem abriu o sistema.

Qto as lib notei que o erro acontece com maior frequencia quando utilizado a DBFCDX e DBFNSX. Qto ao linkador utilizei o RTlink com a lib DBFNTX e processou normalmente o programa.

O que será q está acontecendo????

Abraços
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Jorge Adourian
Usuário Nível 2
Usuário Nível 2
Mensagens: 95
Registrado em: 05 Jul 2004 23:38
Localização: São Paulo-SP-Brasil
Contato:

Mensagem por Jorge Adourian »

Se você tem certeza que as LIBs são compativeis com o Modo Protegido, então apenas coloque no LNK:

BLINKER PROCEDURE DEPTH 70 (pelo menos)
Até...
Jorge Adourian
Clipper5.2e, Blinker7.0, SIX2(NSX), ADS7.1, FW2.3c, PrintFile2.1.5 e PDFCreator0.8.0(2)
Mário Isa
Usuário Nível 4
Usuário Nível 4
Mensagens: 907
Registrado em: 07 Jul 2004 13:54
Localização: Ilha Solteira-sp

Mensagem por Mário Isa »

e aí Andril?
Deu certo ??
:xau
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1298
Registrado em: 06 Jul 2004 00:44
Contato:

Mensagem por ANDRIL »

Ola Pessoal,

Descobri parcialmente o problema. utilizo a funcao KEYSEC() da CTP.LIB para modo protegido para ativar o screensave do meu programa. Notei que quando o sistema estava processando os calculos ocorria o erro. Anulei a funcao e o erro acabou. Agora pergunto: A CTP.LIB é uma lib para modo protegido entao porque deu esse GPF.

Consultei o NG da lib acima e estou agora a procura da CTUS.LIB para tentar sanar o problema ou tirar de vez o screensave do meu sistema.

NOTA: somente ocorre o erro quando o sistema tem grandes calculos a fazer pois utilizei a funcao KEYSEC() ate hoje normalmente sem que ocorresse este erro.

Quanto as dicas acima tentei utiliza-las de todas as formas sendo que a dica do JORGE retardou o problemas em algumas telas e em outras continuou o mesmo erro. Enfim, agora so preciso da lib CTUS.lib PARA TESTAR COM ELA O SISTEMA.

ABRACOS A TODOS
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
janio
Colaborador
Colaborador
Mensagens: 1846
Registrado em: 06 Jul 2004 07:43
Localização: UBAJARA - CE

Mensagem por janio »

Andril,

CTUS não seria um OBJ e não uma LIB?

Se for realmente o OBJ que vc precisa... fala que te mando...


Janio

PS: Além do CTUS.OBJ tem tbem o CTUSP.OBJ
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1298
Registrado em: 06 Jul 2004 00:44
Contato:

Mensagem por ANDRIL »

Ola Janio,

No NG da CTP.LIB na funcao KEYSEC() consta CTUS.LIB porem vasculhei meu micro e so encontrei a CTUS.OBJ. Se vc tiver a CTUSP.OBJ acho q é p/ modo protegido poderia enviar-me no e-mail

andrilsp1@ig.com.br

Fico no aguardo, Obrigado!
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Jorge Adourian
Usuário Nível 2
Usuário Nível 2
Mensagens: 95
Registrado em: 05 Jul 2004 23:38
Localização: São Paulo-SP-Brasil
Contato:

Mensagem por Jorge Adourian »

Andril, não existe CTUSP.LIB, é OBJ.

Tire a LIB de screen saver que provavelmente é ela o problema.
Até...
Jorge Adourian
Clipper5.2e, Blinker7.0, SIX2(NSX), ADS7.1, FW2.3c, PrintFile2.1.5 e PDFCreator0.8.0(2)
Responder