xyberx

Bom dia, fiz um componente que funciona com a company por TCP/IP e por SERIAL, já tudo ok, caso queiram ajuda me deem um toque que podemos fazer algo juntos, agora estou trabalhando na Wayne para outro componente, estou separando, dpois vejo as similaridades para juntar tudo.

pode sim

No DBX vai ter que criar uma procedure de starttransaction, eu tinha isso, mais eh para o componente mesmo nao eh procedure SQL. Se eu achar aqui posto pra vc, pq tem muitos anos que nem uso ele mais para FB.

Se precisar de ajuda me add no skype que olho com vc. [email protected] imagino o que seja já mais terei que conferir, pois o Seattle tem lances de permissão de acesso e o library path as vezes quando se adiciona componentes pode perder o base path...

Caso seja Pirata o seu Delphi, verifique se alguma atualização recente do Anti-Vírus não está tentando dar scan na pasta bin do Delphi, pois como o path dele contorna a ativação e o mesmo é um patch da dll de Ativação, pode ser o seu problema, recomendo colocar a pasta da Embarcadero nas exceções do seu Anti-Vírus

Crie um Metodo no Seu WebDatamodule, procure sobre isso, criar metodo WebDatamodule, pois é só criar uma procedure nele e chamar ela pelo client, nada de mais.

Crie um metodo para dar commit na transação, simples, aí coloca nele a linha do amigo, eu gosto de usar commitretain pq ele cria uma nova transação após commitar.

Faltou o Commit, por isso só funcionou após fechar o sistema, vc não commitou o dado ele só foi commitado após o fechamento da app, realize o commit após qualquer alteração de dados, crie uma transação e sempre commite ou de o rollback, mais a transação é altamente necessário.

Eu uso ele há um ano num WS que nunca desligo com meu REST DW, tudo ok. Caso queira testar coloque e veja por si só, se for eficiente para vc use. Assim penso no dia a dia mais pode olhar direito mesmo pq sistemas são como pão, cada um gosta de um jeito e sabor kkkkk.

Use isso que vai limpar a memoria nao utilizada por sua app procedure TrimAppMemorySize; var MainHandle : THandle; begin try MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID) ; SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF) ; CloseHandle(MainHandle) ; except end; Application.ProcessMessages; end;

Qualquer coisa que precisar pode falar que estou aqui para ajudar...

Caso precise de algo estou desenvolvendo uma package REST e já fiz uma conversão de REST para Lazarus, dá uma olhada nos meus projetos do SF, caso queira uma força estou a disposição. VLW. https://sourceforge.net/projects/rest-dataware-componentes/ https://sourceforge.net/projects/lazarus-rest-json-project/

A MS já não recomenda desde o D7 kkkkkkkkkkkkkkk. Muito disso pela concorrência, o Delphi sempre deu atenção ao MDI e eles não, quando fizeram o .NET, começaram a dar mais atenção ao que eles queriam para deixar as outras Ling. para trás, pois na época eles foram tão efetivos com a tarefa que até o Delphi mais vergonhoso da história foi feito sob. essa pressãozinha. MDI é um simples conceito de janelas ligadas a uma janela principal que não vai mudar durante muito tempo; Não se iluda com tudo que dizem, pois o tempo as vezes mostra o contrário kkkkkk.....

Tem timer's, ou coisas do tipo? Já cogitou que a máquina dele possa ter um vírus de captura do conteúdo ativo da GDI? Verificou se o Anti-Vírus é comum nos dois casos e o Real-Time Protect está tentando ler algo na sua aplicação? Verificou se as duas máquinas tem o Plugin GAS Tecnologia do Banco da Caixa que dá certas zicas em algumas aplicações por fazer monitor de processos? Se fez tudo isso e nada aí verifique se por acaso a versão desses dois clientes não são versões diferentes de sua app sendo restauradas pelo ponto de restauração do Windows das máquinas.

Atualização e correção de BUG's, muitas modificações e criação da package com icones e tudo certo para uso profissional, já está em produção há mais de um Ano, e hoje tempos no SF 536 Downloads com 100 colaboradores, dúvidas estou a disposição..

Massa esse vou olhar também....

Adicionado ao pacote o componente CurrencyDBEdit ao Pacote

Se você não achou a solução ainda, use o REST Dataware que já faz o que você quer tudo prontinho sem escrever nada além dos seus SQL's, funciona tudo via WS, com o Datasnap integrado tudo certo... https://sourceforge.net/projects/rest-dataware-componentes/ Pode usar que é batata, eu mesmo sou o desenvolvedor do Pacote e já é usado por mais de 500 Programadores e crescendo justamente para suprir esse tipo de necessidade. VLW.

Show, é que estou fazendo coisas que são de ajuda a todos e postando em forum de programadores a princípio, já para poderem usar sem esquentar muito a cabeça, mais breve quero fazer um site com tudo centralizado nele e somente OpenSRC mesmo inclusive os meus projetos OpenSRC, muitos precisam mais não sabem fazer, o mesmo que fiz com os outros projetos quero sempre fazer, ajudar aos que precisam sem ganhar por isso, pois já tenho meu emprego mesmo e não custa nada compartilhar o conhecimento que me sobra sobre certas coisas, ajudo a muitos e eles podem ter algo que lhes ajudem a melhorar seus programas sem custo.

A necessidade é a mãe de todas as criações kkkkk. Precisei de um CurrencyEdit para VCL e FMX simples que pudesse ser usado em Mobile sem a necessidade de pontuação e etc... Aí está para todos que precisem : https://sourceforge.net/p/delphi-currencyedit/code/HEAD/tree/ Funciona em Win, OSX e Mobile, VCL e FMX.

Sim, isso é o conceito. Porém existe casos que as pessoas querem usar WS para não precisar instalar clientDB e coisas do tipo, então usam 3 camadas para a instância do Servidor conter o que é necessário e os client's acessam na rede local por ws. 3 Camadas pode ser usado em qualquer situação que precise, pois ainda conta com a vantagem de : 1 - Se seu banco conta licenças de USO por Client Conectado você só pagará uma licença, pois o Servidor é a única conexão ativa. 2 - Se você não quer ter problemas de configuração de DB, usando 3 camadas segue a mesma lógica acima, o Servidor é a única conexão. 3 - Se você quiser trocar o db de lugar com maior facilidade, como o Servidor é a única conexão, você pode simplesmente parar o Serviço e mudar no Servidor que todos estarão na nova base. Eu poderia enumerar várias utilidades do 3 camadas, mais cada um pode usar para o que achar mais adequado a sua realidade. Usem o REST Dataware que será transparente, você vai programar como se fosse duas camadas normalmente com Dataset, SQL e coisas comuns se dificuldade, e poderá usufruir das coisas que enumerei e muitas mais...

O caminho mais simples para você é usar o REST Dataware, minha package de componentes é justamente para o que vc quer, vc não vai precisar programar nada além do duas camadas que vc já faz e minha package faz todo o processo de 3 camadas transparente para vc, como se usasse 2 camadas normal, com Database e query da minha paleta normal, ainda é Cross Plataform, podendo ser usada em FMX, para Android, IOS, MacOS e outras opções. https://sourceforge.net/projects/rest-dataware-componentes/

delete os aquivos dcu que seu Delphi gerou e compile novamente...

Criada classe de envio e recebimento de requisições que será usada para o REST Dataware, retirando assim o idHTTP do Form do exemplo e usando a nova classe para Retornos. No SVN já está atualizado...

Ainda não, estou fazendo esse porque quero tirar do meu pacote REST Dataware a dependencia de Datasnap para ele ficar multi linguagem, aí ele sendo do jeito que estou fazendo além de cross plataform ele também vai ser multi linguagem e ajudar a todos, tanto do Delphi quanto do Lazarus/Free Pascal.