lentidao para acessar DBF em rede

[porter]

ola pessoal, estou com um problema de lentidao para acessar arquivos DBF em rede, pelo servidor, nos arquivos locais, consegue acessar rapidamente na hora.
nos terminais acesso dessa forma:

TERMINAL.BAT

NET USE F: \\SERVIDOR \YES
F:
CD\SYS212
LOJA.EXE
C:

Estou compilando com o CLIPPER 5.2
Estou usando indIces NSX
Estou usando o Windows XP

Ate arquivos contendo 8000 registros demora para acessar pela rede.

Alguem ja passou por essa experiencia ?

[sygecom]

Olá Porter,
De uma procurada no fórum que esse assunto já foi bastante discutido, mas vou apenas deixar o que eu faria no seu lugar, de olho fechado eu migraria isso para Harbour de uma vez e ganharia além de desempenho milhares de recursos extras...boa sorte.

[porter]

ola Sygecom, estou usando o as bibliotecas CPMI e OSLIB e estou acessando atravez do Ol_AutoYield(.t.), essas libs funcionam no Windows Xp ?
De uns tempos para ca que comecou a ficar lento quando abro os arquivos pelo DbEdit.

O tamanho do executavel esta em 408.896

tem arquivo que estou acessando atravez do Dbedit que possui 175.903 registros, sera que esses arquivos estao muito grandes ?

No servidor acessa rapidinho.

[sygecom]

Não é muito registro não, eu já usei muito mais registro que isso no CLIPPER 5.3 + DBFCDX, veja se é algum SET FILTER que não está lento ou algum LOCATE que são geralmente muitos lento, em CDX para o lugar do SET FILTER tem o ORDSCOPE que é muito mais rápido, mas para NSX não sei se tem o mesmo comando por que nunca usei NSX.

[porter]

mas a lentidao ocorre quando vou abrir esse arquivo atravez do Dbedit, ele demora para mostrar o Dbedit na tela, no servidor acessa na hora, nos terminais que demora, estive pesquisando aqui no forum e vi que se pode usar o FreeTSlice, ele tem a mesma funcao do Ol_AutoYield(.t.) ?

[sygecom]

mas a lentidao ocorre quando vou abrir esse arquivo atravez do Dbedit, ele demora para mostrar o Dbedit na tela, no servidor acessa na hora, nos terminais que demora,

Mas quando abre essa tabela você faz algum tipo de filtro usando SET FILTER ?
Mostre o codigo completo e aponte o local da lentidão.

estive pesquisando aqui no forum e vi que se pode usar o FreeTSlice, ele tem a mesma funcao do Ol_AutoYield(.t.) ?

Já vi post que o FreeTSlice é melhor, mas sim era para ter o mesmo objetivo, porém quando usei usei apenas o FreeTSlice.

[porter]

Mas quando abre essa tabela você faz algum tipo de filtro usando SET FILTER ?
Mostre o codigo completo e aponte o local da lentidão.

Nao usando SET FILTER, apenas estou mostrando o arquivo na tela atravez do Dbedit,
Estou fazendo assim nesse arquivo com 175.903 registros.

DBEDIT(12,01,22,78,v1,"FdbMovto",v2,v3,"_"," ")

[Imatech]

Olá Porter !

Por acaso algum de seus índices usa funções que não sejam nativas do Clipper ?

*** Principalmente para campos tipo Data(), formatados por função do usuario durante indexação !

[porter]

estou usando indIces NSX

INDEX ON CCLIENTE TO ind10

Essa demora para abrir é apenas nos terminais, no servidor acessa na hora.
O tecnico fez os testes de transmissao pelo ping e ele disse que está transmitindo rapidamente 1 ou 2 segundos, ele esta dizendo que o problema é no sistema, mas nao estou concordando com ele, fiz um teste em outro computador com rede ponta a ponta e o acesso é rapidinho tanto no servidor como no terminal.

[sygecom]

Olá Porter,
Eu já tive problemas parecido em redes sem fio, é uma M....
Se testou em outra rede com os mesmos numero de usuário conectado então já está resolvido é BO na rede...

[porter]

pela manha o sistema comeca rapido, mas com o passar do tempo durante o dia, vai ficando mais lento.
O teste que fiz foi em uma rede ponta a ponta.

[sygecom]

É o caso é estranho ! mas na duvida tente trocar pelo FreeTSlice, ou melhor ainda faça a migração para Harbour...

[porter]

ola pessoal, acho que o problema esta no meu sistema, porque em outro cliente com arquivos com quantidade de registros pequenos, tipo 20.000 registros enta lento para acessar pelo terminal, estou acessando os arquivos assim:

Código: Selecionar todos

SELECT 1
ONDE("PRODUTOS.DBF")
USE &DRIVE\PRODUTOS SHARED
IF NETERR()
   RETURN
ELSE
   SET INDEX TO COD
ENDIF
RETURN

STATIC FUNCION ONDE(arquivo)
  IF FILE("C:\LOJA\"+arquivo)
      drive := "C:\LOJA"
  ELSE
     drive := "F:\LOJA"
  ENDIF
  RETURN(drive)

Sera que poderia tentar compilar o progrma no servidor da empresa para ver se resolve ?
O tamanho do executavel é 408.896, sera que esta muito grande ?

Obs: No meu Pc fazendo os testes acessa rapidamente pelo terminal, o que eu poderia verificar que tem nesse terminal que acessa rapido para fazer igual nos meus clientes ?

obrigado pessoal.

[Jairo Maia]

Olá Porter,

Sera que poderia tentar compilar o progrma no servidor da empresa para ver se resolve ?

Na minha opinião nada irá mudar.

O tamanho do executavel é 408.896, sera que esta muito grande ?

Negativo. Sempre trabalhei com sistemas por volta de 2MB e não causava problema.

Situações como essa é realmente chato descobrir o que ocorre. Tive poucos problemas deste tipo na minha jornada com Clipper, mas sempre foram resolvidos ajustando SO ou Hardware. Faça a seguinte verificação no cliente:

1 - O HD do servidor é mais rápido que o da estação? Se a estação tiver HD mais rápido que o servidor, pode causar isso.

2 - Qual o SO das máquinas? Se for o XP, todas as máquinas têm o XP SP3? XP inferiores ao SP3 sempre apresentaram algum tipo de problema em rede.

3 - No cliente, tem proteção de tela personalizada? Essas que se acha na internet? Se sim, já vi casos em que a proteção acaba sobrecarregando a memória, e aumenta o ARQUIVO DE PAGINAÇÃO do Windows, também provocando lentidão.

[porter]

mas essa protecao de tela teria que tirar de todos os computadores para ver se vai dar certo ?

obrigado pela atencao.