Harbour - demora no retorno de file() em rede

Projeto [x]Harbour - Compilador de código aberto compatível com o 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:

Harbour - demora no retorno de file() em rede

Mensagem por ANDRIL »

Pessoal, estou intrigado com a demora da verificação da existência de um arquivo em rede.
Estou usando o AcbrMonitorPlus em um máquina onde é o servidor. De outra máquina envio o ENT.TXT e o monitor recebe e começa o processamento, nisso meu sistema monitora a existência do arquivo SAI.TXT, assim que estiver no diretório saio do loop e leio o retorno. No caso, do código abaixo, defini 30 segundos máximos de espera, geralmente o arquivo é criado em 3 a 4 segundos na pasta do servidor (isso eu mesmo vi) só que file() só retorna .T. quando esta em 11 segundos.

Código: Selecionar todos

nCounter=1
arqsai="\\SERVIDOR\ACBR\SAI.TXT"

do while nCounter<=30
	if file(arqsai)
	exit
	endif
	@maxrow(),00 say padr(">> S@T Aguardando retorno Acbr... "+alltrim(str(nCounter))+"/30 ",80) colo "gr+/n"
	nCounter++
	inkey(1.0)
enddo
Já usei rede WIFI, também cabeada, desativei os ANTI-VIRUS e permanece a mesmo tempo de resposta. Quando executo os na máquina servidora o tempo é bem menor.

Agora fiquei em dúvida se o problema só ocorre aqui na minha rede ou é um "problema" da função no Harbour?
Até+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Harbour - demora no retorno de file() em rede

Mensagem por JoséQuintas »

Tenho esse problema num servidor W2008.
Se eu acessar as pastas por \\servidor\pasta fica demorado.
Se eu acessar o mesmo local mapeado como H:, vai rapidinho.
Sempre pensei que fosse por causa da segurança da rede.
Só uso mapeado.

Como mapeado funciona, nunca me preocupei em pesquisar.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
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:

Harbour - demora no retorno de file() em rede

Mensagem por ANDRIL »

José, não testei mapeado, vou testar e verificar se melhora. Agradeço sua atenção.
Ate+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

Harbour - demora no retorno de file() em rede

Mensagem por fladimir »

Se não me falha a memória tb tem algo q possa ser feito a nível de Registro do Windows com relação a este tempo de verificação além tb da questão de desabilitar o CACHE do HD.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
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:

Harbour - demora no retorno de file() em rede

Mensagem por ANDRIL »

JoséQuintas escreveu:Se eu acessar o mesmo local mapeado como H:, vai rapidinho
É aqui não foi, demorou o mesmo tempo e o mais impressionante, o SAT começou a não validar o CFe acusando ERRO NA EMISSAO: 1999: Rejeicao: Erro nao identificado vai entender. Tive que voltar ao caminho de rede mesmo.
fladimir escreveu:tb da questão de desabilitar o CACHE do HD
Foi a primeira opção em que pensei, mais não melhorou. Não cheguei a reiniciar o PC, acho também que não seria necessário.

Bom continuo sem entender...
Obrigado pela ajuda.
Ate+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

Harbour - demora no retorno de file() em rede

Mensagem por fladimir »

ANDRIL e com relação a algo no REGISTRO do windows vc chegou a pesquisar?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
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:

Harbour - demora no retorno de file() em rede

Mensagem por ANDRIL »

fladimir escreveu:relação a algo no REGISTRO do windows vc chegou a pesquisar
Não faço nem idéia, tem alguma dica do que configurar?
Ate+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Harbour - demora no retorno de file() em rede

Mensagem por sygecom »

De uma olhada
viewtopic.php?f=53&t=11773&hilit=registro#p67358
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Harbour - demora no retorno de file() em rede

Mensagem por alxsts »

Olá!

Já tentou usar a função abaixo, nativa do Harbour?

Código: Selecionar todos

HB_FileExists
Tests for the existence of a file

Syntax

      HB_FileExists( <cFileSpec> ) --> <lExist>
[]´s
Alexandre Santos (AlxSts)
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:

Harbour - demora no retorno de file() em rede

Mensagem por ANDRIL »

alxsts, também tentei sua dica, permanece a mesma demora. Realmente é algo vinculado ao Servidor, quanto a colocação da chave "EnableOpLocks"=dword:00000000 para "EnableOpLocks"=dword:00000001 não encontrei no meu WIN7, já que a dica era para WIN2008.
Agradeço a ajuda.
Ate+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Responder