Função WIN_OSNETREGOK()

[asimoes]

Prezados,

De onde é essas funções:

TReg32() e IsRegistryKey() ?

[rossine]

Olá Alexandre,

Ela faz parte da Minigui:

Código: Selecionar todos

 \minigui\source\h_registry.prg

[Itamar M. Lins Jr.]

Ola!
Depois que o Przmek criou o NetIO e Alexader/Elch fez o Letodb[f], essas funções de registro do windows ficaram obsoletas.
Usem o NetIO ou o Letodbf. Os DBF´s Cliente/Servidor real Via TCP. Nem precisa usar o protocolo SMB da M$/SAMBA(linux) para compartilhar DBF´s
Acabam TODOS os problemas de velocidade e mapeamento/travamentos etc pelo windows/samba(linux)
Não muda quase nada na sintaxe para trabalhar com eles.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
Toda essa burocracia do windows faz parte de questões de segurança.
Acredito que sempre haverá a intervenção do usuário nesta parte, quando um programa quer "mexer" no registro do windows.

Microsoft ‘admite’ falha que dá privilégios ao invasor no Windows 10

https://www.tecmundo.com.br/seguranca/1 ... ows-10.htm

Voltando ao assunto, o NetIO/LetoDb são as únicas opções que temos(gratuitas) e funcionam perfeitamente.
Mapear unidades para compartilhar DBF é um tiro no próprio pé. Agora, pois temos essas ferramentas para uso. Se o uso é standalone (mono usuário) não precisamos nos preocupar "muito" mas o NetIo foi criado principalmente para corrigir essa falha dos RDDś em sistemas operacionais modernos.
Uma coisa é vc "pedir" para algum servidor(NetIO/Letodb), outra coisa é vc "escancarar(leitura/gravação)" a "PASTA" com os DBFś em rede e fazer uso como se fosse "mono usuário". Cedo ou tarde vai corromper ntx/cdx/dbf's mesmo ajustando o registro do windows.

Saudações,
Itamar M. Lins Jr.

[Daniel]

ola
voce terá que usar um arquivo "rc ou res" com manifest

Para compilar
hbmk2 %1 arquivo.rc

Código: Selecionar todos

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3">
  <asmv3:application>
    <asmv3:windowsSettings xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
      <dpiAware>True/PM</dpiAware>
    </asmv3:windowsSettings>
  </asmv3:application>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        publicKeyToken="6595b64144ccf1df"
        language="*"
        processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="requireAdministrator"
          uiAccess="false"/>
        </requestedPrivileges>
    </security>
  </trustInfo>
</assembly>

[rossine]

Olá Itamar,

Sei que aqui no fórum tem vários tópicos falando sobre o NetIO e O LetoDBF e também que vários programadores migraram para NetIO ou LetoDBF, mas a pergunta é o seguinte:

Se eu quiser abandonar o DBFCDX padrão do Harbour e migrar para o LetoDBF, estes problemas de corrompimento de arquivos e arquivos de indices danificados vão diminuir ou praticamente acabar ?

OBS: O meu intuito seria não ter que mudar praticamente nada em meu sistema, usar tudo igual já uso no DBFCDX. Seria só a migração para LetoDBF para evitar estes erros que corrompem nossos sistema.

Obrigado,

[Itamar M. Lins Jr.]

Ola!

Se eu quiser abandonar o DBFCDX padrão do Harbour e migrar para o LetoDBF, estes problemas de corrompimento de arquivos e arquivos de indices danificados vão diminuir ou praticamente acabar ?

Ai é que está esse mal entendido, porque não vai mudar vai continuar usando o mesmíssimo "DBFCDX/NTX"
Eu nem sei mais o que é arquivo corrompido, sem falar na velocidade.

Código: Selecionar todos

REQUEST LETO
#include "rddleto.ch"

function main
cPath:="//localhost:2812/"
If leto_Connect( cPath ) == -1
? "error..", , leto_Connect_Err(), leto_Connect_Err( .T. )
endif

E trocar file() por leto_file() no caso de procurar dbf no servidor... tem outras funções iguais, mas que enxergam tudo do lado do servidor.
Vc pede ao LetoDb as coisas e ele faz como se fosse em uma maquina local.
Leto_memowrite(), etc...
Mas nós continuamos usando os comandos para DBF sem mudar nada.

Código: Selecionar todos

use arquivo.dbf //vai abrir o DBF lá no endereço TCP onde está rodando o LetoDB ou NetIO...
close
select
cAlias->(DbSKip())
append blank...
etc
Vai indexar da mesma forma
index on ... para NTX
index on TAG .. para CDX

etc... Não muda nada, bem eu uso o LetoDbf, por isso coloco exemplos de uso dele. Mas com NetIO o José Quintas usa e disse também que nunca deu problema.

Saudações,
Itamar M. Lins Jr.

[fladimir]

Uso terminal services a quase 10 anos e não tenho problemas de mapeamento, índices, comrromper tabelas etc.

Testei o leto e o netio tive problemas com índices temporários

E mesmo em rotinas sem índices temporários o TS foi superior em desempenho.

[Itamar M. Lins Jr.]

Ola!
Como é que vc faz um relatório de mercadorias (kardex) entre duas filiais ou mais ? Ou verifica o débito de um cliente que compra em lojas diferente e escolhe qualquer loja para pagar/comprar no crediário ? usando DBF ?

Testei o leto e o netio tive problemas com índices temporários

Reportou o BUG para os desenvolvedores ?

Eu uso WTS também em conjunto, mas WTS não faz mágica.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
Outra coisa do WTS, uma loja com 20 funcionários vai criar 20 usuários ? como é que isso é feito ?
Com LetoDbf ou NetIO a porta: "192.168..." está lá é só usar. Quem trabalha com SQL sabe muito bem a facilidade que é.

Saudações,
Itamar M. Lins Jr.

[janio]

Eu fiz assim:

E funcionou?

[fladimir]

Em resposta ao Itamar, não trabalho com multiempresas, entendo q nesse cenário o Banco de Dados ou LetoDB/NetIO para DBF se encaixa melhor com essas particulariedades q vc citou nos questionamentos de relatórios multiempresa, clientes pagando em qualquer loja etc.

Só quis contribuir com minha experiência/realidade dentro do meu caso/cenário, o WTS se mostrou mais rápido em comparação ao LetoDB/NetIO.
E pensando em multiempresa, até pensei, na época, em usar o LetoDB para um projetinho aki nesse sentido, mas devido aos problemas com índices temporários q não reportei aos desenvolvedores, pq mudei de linguagem (permaneço com o Harbour para manter projetos anteriores)

[Itamar M. Lins Jr.]

Ola!

devido aos problemas com índices temporários

Pois é né !?
Eu uso índices temporário muito mesmo, penso que a maioria dos relatórios.. Inclusive com o tal "mem:"
Fica parecendo que o que escrevo não tem validade... porque um dia "no passado distante" vc achou um erro no LetoDb etc... Mas e neste momento como vc usa o LetoDBf ? Meu caso que estou postando aqui. Vc testou "neste momento" se o erro que vc encontrou ocorre com o LetoDbf ?
Eu uso em diversos cenários o LetoDbf, encontramos problemas reportamos ao Elch e ele tem corrigido... Vamos progredindo, devagar as vezes.
Senão ficará invalidando as opções que nós outros, neste momento usamos.
WTS é pago para multi usuários, a não ser que use um CRACK, já com Win10 temos um gratuito etc... Mas não é uma opção da M$, se quiser usar da M$ tem que pagar.
Eu procuro mostrar opções "viáveis" gratuitas de preferência, "open source" que qualquer pessoa poderá usar com um mínimo de conhecimento.
Se vamos sair das opções "open source" e vamos entrar no outro cenário o pago temos também milhares de opções.
Se tiver opções melhores que sejam "open source" gostaríamos de saber.

O quem tenho conhecimento no momento, é que não existe melhor forma de trabalhar com DBF "para quem usar Harbour" do que usar NetIO ou LetoDbf.

Ps. Ultima alteração no LetoDbf foi 2018-08-30 19:59.

Saudações,
Itamar M. Lins Jr.

[fladimir]

Tem razão Itamar, talvez meu comentário tenha mais atrapalhado do q ajudado, peço desculpa aos colegas.

Pra efeito de colaboração vou testar a rotina em q testei q deu problema nos indices temporarios no meu cenário com a última versão q vc comentou e posto aki o resultado, se der problema vejo contigo o link / como faço pra passar aos desenvolvedores para q eles possam avaliar, pq não é pq não tenho usado q não posso contribuir em melhorar para os q optarem por essa solução.

Abraço.