Lentidão no tráfico de dados na Rede.

[clodoaldomonteiro]

Olá!
Uso o Compartilhamento (Server) do windows com Mapeamento (Client), para que meus clientes possam usar o sistema na Rede (Intranet), isso somente os dados, pois o executável fica instalado em cada máquina Client.
No Windows 7, isso é uma maravilha, mas já no win 10 ou 11, cai muito a velocidade, pois uma consulta a uma tabela de 2000 registros q faço no win 7 em menos de um segundo, demora até mais de 30 segundos com windows 11.
Sei que de um tempo pra cá, a MS vem atualizando o windows e alegando segurança, vem criando uma série de entraves no tráfico de arquivos (dá pra ver lentidão até no windows explorer), e pergunto aos amigos se tem como setar as novas versão do windows para os padrões do windows 7, a fim de termos uma leitura de tabelas rápida, já que os PCs de hj tem placa Gigalan, conexão via cabo, SSD 3.5 GBits, processadores Core i5 e por ai vai.

Desde já agradeço a todos.

[Itamar M. Lins Jr.]

Olá!
Soluções possíveis:

a) Formatar com windows 7
b) Usar TS.
c) Usar RDDSQL
d) Usar NetIO ? Xharbour não usa MT.(não sei se está ok)
e) Usar LetoDBf xHarbour. (sem compactação...)
f) Usar LetoDbf Harbour servidor windows 11/10/7...(*)
g) Usar LetoDbf Harbour servidor Linux (**)

* e ** Melhores opções na minha opinião.(mais rápida migração sem mudar muito código.)

Saudações,
Itamar M. Lins Jr.

[alxsts]

Olá!

[OFF-TOPIC]

As palavras "tráfico" e "tráfego" existem na língua portuguesa, mas têm significados diferentes e devem ser usadas em situações diferentes:

Tráfego

Refere-se ao movimento de veículos, cargas, pessoas e até de conteúdo. Por exemplo, "O tráfego continua intenso na Avenida ACM".

Tráfico

Refere-se a um comércio ou negócio clandestino, ilegal. Por exemplo, "Havia uma disputa entre facções pelo tráfico de drogas naquela região".

"Tráfego" e "tráfico" são palavras parônimas, ou seja, são escritas e pronunciadas de forma parecida, mas têm significados diferentes.

Fonte: Google

[Itamar M. Lins Jr.]

Olá!
Nem tinha reparado kkk.
Aqui estamos "traficando" informações, rsrsrsrs...
Esqueci de falar do WinFlector (MUITO BOM!!!!! Muito bom MESMO!!! Top!!
Pena que é pago($$$) quer dizer nem sei quanto é, não muito caro, parece que é o mais barato desses que se apresentam.
Testei aqui achei SHOW DE BOLA! (Apenas 2 users) Vc instala ele em um computador, cadastra usuário "por ele" e diz qual é o programa que a pessoa(usuário) poderá usar.
https://www.winflector.com/english/prod ... e_users_en


Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!
Estou pesquisando pq é mais lento.
Windows 11 usa SMB 3:
A versão mais recente do SMB no Windows 11 é a 24H2, que permite: Auditoria de assinatura e criptografia do cliente SMB, Gestão de dialetos SMB, Controle do comportamento da assinatura SMB.
Talvez isso seja um dos motivos da lentidão. Até pq a Microsoft não pensou nas pessoas que ainda usam MAPEAMENTO (DBF). Teria que ver mais sobre isso...
Acredito que SMB é focado em compartilhamento de pastas / Impressoras somente.(hoje)

A versão 24H2 permite que os administradores:

Identifiquem clientes ou servidores de terceiros que não suportam a assinatura ou criptografia SMB

Controlem os dialetos SMB 2 e 3 negociados
Impeçam a conexão de dispositivos Windows mais antigos, menos seguros e menos capazes

Para controlar o comportamento da assinatura SMB, o sistema deve estar executando o Windows 11, versão 24H2 ou posterior.

Quanto mais coisa faz, mais lento fica.

Saudações,
Itamar M. Lins Jr.

[clodoaldomonteiro]

Kkkkk

Olá!

[OFF-TOPIC]

As palavras "tráfico" e "tráfego" existem na língua portuguesa, mas têm significados diferentes e devem ser usadas em situações diferentes:

Tráfego

Refere-se ao movimento de veículos, cargas, pessoas e até de conteúdo. Por exemplo, "O tráfego continua intenso na Avenida ACM".

Tráfico

Refere-se a um comércio ou negócio clandestino, ilegal. Por exemplo, "Havia uma disputa entre facções pelo tráfico de drogas naquela região".

"Tráfego" e "tráfico" são palavras parônimas, ou seja, são escritas e pronunciadas de forma parecida, mas têm significados diferentes.

Fonte: Google

Foi mouse aí professor e na próxima prometo não “traficar” mais.

[clodoaldomonteiro]

Olá!
Estou pesquisando pq é mais lento.
Windows 11 usa SMB 3:
A versão mais recente do SMB no Windows 11 é a 24H2, que permite: Auditoria de assinatura e criptografia do cliente SMB, Gestão de dialetos SMB, Controle do comportamento da assinatura SMB.
Talvez isso seja um dos motivos da lentidão. Até pq a Microsoft não pensou nas pessoas que ainda usam MAPEAMENTO (DBF). Teria que ver mais sobre isso...
Acredito que SMB é focado em compartilhamento de pastas / Impressoras somente.(hoje)

A versão 24H2 permite que os administradores:

Identifiquem clientes ou servidores de terceiros que não suportam a assinatura ou criptografia SMB

Controlem os dialetos SMB 2 e 3 negociados
Impeçam a conexão de dispositivos Windows mais antigos, menos seguros e menos capazes

Para controlar o comportamento da assinatura SMB, o sistema deve estar executando o Windows 11, versão 24H2 ou posterior.

Quanto mais coisa faz, mais lento fica.

Saudações,
Itamar M. Lins Jr.

Sim, tb vi alguns posts falando sobre o protocolo SMB que evoluiu ou foi remodelado, e casos até em q o problema veio a ocorrer, depois que alguns usuários atualizaram o win 10,ficando lento até o “tráfego” de arquivo pelo Windows explorer.
Bom, tenho q ver se tem reverter esse excesso de controle das novas versões do Windows e acho q essa é uma das evoluções do Windows que não tem como reverter.
Como é um sistema antigo e tá rendendo bem, fazer atualizações muito severas nele está fora de questão, nem tenho pessoal pra isso, muita coisa pra fazer na empresa.
É voltar pra escola e estudar o Windows novamente, hehe.

Grato pela ajuda de todos.

[Kapiaba]

Como você inicializa o seu MENU PRINCIPAL, assim?

Código: Selecionar todos

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

ANNOUNCE RDDSYS // IDEM: ANNOUNCE FPTCDX
REQUEST DBFCDX, DBFFPT

FUNCTION Main()

   HB_GCALL( .F. )

   HB_LANGSELECT( 'PT' )
   HB_SETCODEPAGE( "PT850" )
   HB_CDPSELECT( "PTISO" )

   RDDSETDEFAULT("DBFCDX")
   RDDREGISTER( "DBFCDX", 1 )

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   // SET _3DLOOK ON // FiveWin
   SET UNIQUE OFF
   SET ESCAPE OFF
   SET EXACT ON
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF
   SET OPTIMIZE ON

   ... continua...

   // Saindo

   HB_GCALL( .T. )

RETURN NIL

Regards, saludos.

[clodoaldomonteiro]

Assim:

Código: Selecionar todos

Function Main()
...
...

   ////////////////////////////////////////////////////////////////////////////////////////////
   //Defini‡Æo dos Sets gerais
   SET EXCLUSIVE OFF                  //Abrir arquivos compartilhado
   SET AUTOPEN OFF
   set eventmask  to INKEY_ALL
   SET EPOCH TO 1930                  // prepara datas para o terceiro milˆnio
   SET CENTURY ON                     // datas com informa‡„o do s‚culo DD/MM/AAAA
   SetCancel(.f.)                     // desativa ALT-C/BREAK
   SET DATE BRIT                      // datas no formato 'britasileiro`
   SET EXAC OFF                       // comparacoes parciais habilitadas
   SET SCOREBOARD OFF                 // habilita uso da linha 0
   SET WRAP ON                        // habilita rolagem de menus
   SetKey(K_INS, {||;                  // muda tamanho do cursor quando inserindo
    If(READINSERT(), SetCursor(2), SetCursor(3)),;
    READINSERT(!READINSERT())})

   Set Key K_F5      TO cale          // F5 ativa calendario
   Set Key K_F6      TO maqcalc       // F6 ativa calculadora
   Set Key K_ALT_U   TO NOVIDADE      // ALT-U, ve ULTIMAS NOVIDADES
   //Set Key K_ALT_E   TO ERRO          // mostra erros gravados
   //Set Key K_ALT_F4  TO SAIR          // Sair

   HB_SetCodePage("PT850")   &&& PARA INDEXAR CAMPOS ACENTUADOS
   WVW_SetCodePage(NIL, 255)
   WVW_SetLineSpacing(NIL, 0)
   WVW_SetLSpaceColor(NIL, 0)
   WVW_cbSetFont(NIL, "consolas", 14)  //std: 20-2
   Set(_SET_TRACESTACK, 0)

   wvw_SetMouseMove(, .f.)                    // habilita mouse

   wvw_seticon ( , PathImg + "Scp21H.ico" ) //icone para a janela atual
   wvw_settitle( , 'Scp21H - Sistema de Contabilidade Pública ' )

   wvw_setmaincoord(.T.)
   wvw_SetPaintRefresh(0)                    //redesenho das imagens
   wvw_SetVertCaret(.F.)                     //cursor tipo horizontal
   wvw_enableshortcuts(0, .t.)

   mTelaLargura := Wvw_GetScreenWidth()      //Func o t  com nome errado, deveria ser Width
   mTelaAltura := Wvw_GetScreenHeight()     //Deveria ser Height

   mFonteLargura := Int((mTelaLargura / p_nNormalMaxCol )-.5)
   mFonteAltura := Int((mTelaAltura  / p_nNormalMaxRow )-.5)

   wvw_SetFont( 0, "consolas", mFonteAltura, mFonteLargura, .5, 1 )

   wvw_Maximize( 0 )

   SetMode(p_nNormalMaxRow, p_nNormalMaxCol)

   SetInkeyAfterBlock({|nkey| AfterInkey( nkey ) })
..
...
...
   Return

Funciona perfeito com win 7, mas veio unas atualizações do Windows 10 e entrou o windows 11, que redefiniram o SMB e bagunçou a coisa.

ao usar SET EXACT ON, minhas consultas ficam bugadas, não relacionando todos os registros.

[Kapiaba]

O bom programa, mesmo que em MODO CONSOLE, começa assim:

Código: Selecionar todos

/* // CRITERIO SEU LIGAR, EU LIGARIA
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850 // PARA INDEXAR CAMPOS ACENTUADOS

ANNOUNCE RDDSYS // IDEM: ANNOUNCE FPTCDX
REQUEST DBFCDX, DBFFPT
*/

Function Main()
...
...

   ////////////////////////////////////////////////////////////////////////////////////////////
   //Defini‡Æo dos Sets gerais
   /*
   SET EXCLUSIVE OFF                  //Abrir arquivos compartilhado
   SET AUTOPEN OFF                    // DESNECESSARIO NAO RECOMENDAD.
   set eventmask  to INKEY_ALL
   SET EPOCH TO 1930                  // prepara datas para o terceiro milˆnio
   SET CENTURY ON                     // datas com informa‡„o do s‚culo DD/MM/AAAA
   SetCancel(.f.)                     // desativa ALT-C/BREAK
   SET DATE BRIT                      // datas no formato 'britasileiro`
   SET EXAC OFF                       // comparacoes parciais habilitadas
   SET SCOREBOARD OFF                 // habilita uso da linha 0
   SET WRAP ON                        // habilita rolagem de menus
   */

   /* // CRITERIO SEU
   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese
   HB_SETCODEPAGE( "PT850" )
   HB_CDPSELECT( "PTISO" )
   */

   /* // CRITERIO SEU
   RDDSETDEFAULT("DBFCDX")
   RDDREGISTER( "DBFCDX", 1 ) // RDT_FULL -> 20/10/2022 Joao
   */

   // COMO EU VEJO A LOGICA:
   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET UNIQUE OFF
   // SET ESCAPE OFF  // CRITERIO SEU
   SET EXACT ON       // CONTROLA O :=, = e ==
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF
   SET OPTIMIZE ON
   SET SCOREBOARD OFF
   SET EVENTMASK TO INKEY_ALL

   SetKey(K_INS, {||;                  // muda tamanho do cursor quando inserindo
    IIF(READINSERT(), SetCursor(2), SetCursor(3)),;
    READINSERT(!READINSERT())})

   Set Key K_F5      TO cale          // F5 ativa calendario
   Set Key K_F6      TO maqcalc       // F6 ativa calculadora
   Set Key K_ALT_U   TO NOVIDADE      // ALT-U, ve ULTIMAS NOVIDADES

   //Set Key K_ALT_E   TO ERRO          // mostra erros gravados
   //Set Key K_ALT_F4  TO SAIR          // Sair

   /* CRITERIO SEU, PASSEI PARA ANTES DOS PARAMETROS
   // HB_SetCodePage("PT850")   &&& PARA INDEXAR CAMPOS ACENTUADOS
   // WVW_SetCodePage(NIL, 255)
   */

   WVW_SetLineSpacing(NIL, 0)
   WVW_SetLSpaceColor(NIL, 0)
   WVW_cbSetFont(NIL, "consolas", 14)  //std: 20-2

   // COLOQUE NA AREA DOS SETS... ?? NAO SEI O QUE FAZ. NAO USO SEGUNDA LINHA.
   Set(_SET_TRACESTACK, 0)   

   wvw_SetMouseMove(, .f.)                    // habilita mouse

   wvw_seticon ( , PathImg + "Scp21H.ico" ) //icone para a janela atual
   wvw_settitle( , 'Scp21H - Sistema de Contabilidade Pública ' )

   wvw_setmaincoord(.T.)
   wvw_SetPaintRefresh(0)                    //redesenho das imagens
   wvw_SetVertCaret(.F.)                     //cursor tipo horizontal
   wvw_enableshortcuts(0, .t.)               // ???

   mTelaLargura := Wvw_GetScreenWidth()      //Func o t  com nome errado, deveria ser Width
   mTelaAltura := Wvw_GetScreenHeight()     //Deveria ser Height

   mFonteLargura := Int((mTelaLargura / p_nNormalMaxCol )-.5)
   mFonteAltura := Int((mTelaAltura  / p_nNormalMaxRow )-.5)

   wvw_SetFont( 0, "consolas", mFonteAltura, mFonteLargura, .5, 1 )

   wvw_Maximize( 0 )

   SetMode(p_nNormalMaxRow, p_nNormalMaxCol)

   SetInkeyAfterBlock({|nkey| AfterInkey( nkey ) })  // ??? NAO CAUSA LENTIDAO?
..
...
...
RETURN NIL

Regards, saludos.