Duarte

Bom dia. Graças ao meu Deus, terminei de migrar todos os projetos para XE10, trocamos todos os DBX por FireDAC, bem quase todos os Memory Leaks foram sanados, ainda ficaram alguns mais trata-se do DataSnap pois usamos muito conexões remotas com DataSnap e esta ainda usa DBX, eu pergunto para meus amigos, esta levantando muitos memory Leaks com JSON + DataSnap, pois uso assim: * Tenho funções aonde no servidor é criados Classes e convertidas em JSONObject do lado do clientes retorno para classe. * Tenho funções aonde no servidor faça consultas, monto .xml comprimo ele com zLib e transformo em JSON no cliente faço o processo reverso, deste modo é incrível a velocidade que importo dados remotamente, pois o meu sistema não suporta vários CNPJ no mesmo banco, porém faço toda a gestão de várias lojas num só .exe tudo com DataSnap + JSON... Em fim, agora depois que migrei para XE10 tenho vários memory leaks, pois JSONArray não aceita Free/FreeAndNil. Alguém ai está passando por isto?

Bom dia. Para Vox, não imprimi não, Agora para VOX+ funciona, para ElginI9 use o modelo = EscEpson. Para VOX sugiro utilizar um destes danfe (Fortes e/ou Fast) Para Vox eu utilizo o Fortes.

Bom dia, Sim, estou usando Provider, e está setado esta propriedade como True, no entanto e me retornado não um TBlobField mais sim um TStringField, pelo que notei o FireDAC agora trabalha com Stream, peguei um código da net, mais ainda não testei, vou testa-lo, segue exemplo: Gravando a imagem no Banco de Dados: procedure frmTeste.btnIncluirFotoClick(Sender: TObject); var vArquivo: TFileStream; begin vArquivo := TFileStream.Create('d:\01.bmp', fmOpenRead or fmShareDenyWrite); FDQuery1.Close; FDQuery1.SQL.Clear; //Pode ser feito Insert ou Update FDQuery1.SQL.Add('INSERT INTO tbl_usuario (FOTO) VALUES(:FOTOCARREGADA)'); FDQuery1.Params[0].DataType := ftBlob; FDQuery1.ParamByName('FOTOCARREGADA').AsStream := vArquivo; FDQuery1.ExecSQL; FDQuery1.Close; end; Lendo a imagem do Banco de Dados: procedure frmTeste.btnCarregarFotoClick(Sender: TObject); var vFoto : TStream; vImagem : TBitmap; begin FDQuery1.Close; FDQuery1.SQL.Add('SELECT * FROM tbl_usuario WHERE id_usuario = 6'); FDQuery1.Open; //Lendo a imagem do campo BLOB para a Memória vFoto := FDQuery1.CreateBlobStream(FDQuery1.FieldByName('FOTO'), bmRead); //Criando a instância de TBitmap (pode ser JPG tb) vImagem := TBitmap.Create; //Carregando a imagem a partir do stream TStream vImagem.LoadFromStream(vFoto); //Exibindo a Imagem Image1.Picture.Assign(vImagem); //Image1.Bitmap.LoadFromStream(vFoto); //Caso esteja usando FMX ao invés de VCL end; Vou testar assim que terminar algo aqui, meu medo ai é, será que vai recuperar o que já está armazenado no banco? E lá está .JPG...

Boa noite, Isaque você que já esta mais familiarizado com FireDAC, será que poderia me ajudar neste caso: Tenho num banco exclusivo par armazenar fotos (Clientes, Produtos, Funcionários, etc), nele é armazenado a ID e Foto campo Blob, Para gravar no banco faço assim: Foto := TJpegImage.Create; Foto.LoadFromFile(_opdImagem.FileName); clipboard.Assign(Foto); _dbiFoto.PasteFromClipboard; Ai link o campo TBlobField ao TDBImage... Pronto aqui funciona a anos pelo DBX. Mais no FireDAC os campos blob estão vindo como String, sabe como tratar este caso?

Muito obrigado... Eu preferi fazer o trabalho na mão, pois tem muita coisa que preciso analisar, O nosso sistema está bem instável, quero fazer está migração, mais manter a mesma qualidade, ou melhor, melhorar a qualidade, uma migração de forma "Automatizada" poderia criar muitos pontos negativos que passariam desapercebido, exemplo de um deles no meu caso: * Usei um técnica minha aqui para alimentar campos oriundos de sub-consulta SQL tipo (LEF JOINT, INNER JOINT) que só são atualizadas no refresh da tabela, mais nem sempre dar para dar um refresh, ai eu uso uma função minha mesmo, para tal uso a propriedade do ClientDaset "ORIGIN", com a DBX este campo não era alimentado, sempre vinha limpo, agora com FireDAC ele com o mesmo nome do FieldName, e ao ativar o ClientDataSet o Provider repassa este valor é nome caso esta assim. Ex. ID_CLIENTE=RAZAO (Onde ID_CLIENTE é o campo que tem a função no onChange e na "ORIGIN" deste tem o ClientDaset onde ele vai pesquisar. Em fim... Acho que terá que ser na unha mesmo... rsrs, mais deste já agradeço e vou dar uma olhada nesta dica com certeza.

Boa noite, Complementando o post que fiz acima, notei que em alguns casos os MapeRoles são removidos, não sei explicar o porque, mais resolvi o problema acrescentando os MapeRoles em run-time assim: Coloquei depois de conectar... procedure T_dmDados._ConexaoAfterConnect(Sender: TObject); begin _Conexao.FormatOptions.MapRules.Clear; with _Conexao.FormatOptions.MapRules.Add do begin SourceDataType := dtBCD; //Tipo de entrada. TargetDataType := dtFmtBCD; // Tipo de Saída. end; end;

Boa noite, Quero aqui reportar com muito prazer que é possível tratar o erro que encontrei acima usando o próprio FireDAC, por sinal estou ficando apaixonado por esta Engine de acesso... RSRS Veja como tratar qualquer tipo de dados com FireDAC... 1º Na sua FDConnection1 encontre a seguinte propriedade: TFDFormatOptions->TFDMapRules (Nesta propriedade é possível fazer um mapeamento dos tipos de dados, isto mesmo, você determinar que tipo será entrada e que será a saída)... No meu caso ficou assim:

Boa tarde, Isaque, inicie o processo de migração de DBX para FireDAC, e já me deparei com algo que me esquentou a cabeça, veja se você passou por isto... Cenário Hoje aqui: Uso FireBird 2.5 para campos númerico uso: Numeric = Size = 15 Scale = 2/3. Bem na DBX este campos eram retornados como: TFMTBCDField agora pela FireDAC eles estão vindo como: TBCDField. Ou seja, terei que apagar e chama-los novamente nos ClientDaset, pode até falar simples, nem tanto... Tenho DataModule com centenas de ClientDaset e utilizo muito os eventos (OnValidate, OnChange, OnGetText) Sem falar que bolei um técnica que uso a propriedade do Campo "Origem" para setar de onde vem os dados no caso dele vim de campo dinamico de deu um LEFT JOIN que só é retornado ao atualizar a tabela, se eu apagar e adiciona-los terei que redefinir tudo... Tem como Setar para FireDAC retornar os campos números como TFMTBCDField?

Olá pessoal, quero deixar minha opinião / experiência aqui sobre assunto: Bem passei anos usando BDS2006 que em parte dar o mesmo trabalho para migrar de D7. Bem, consegui migrar todas as nossas ferramentas para XE10 Seatle, já tinha isto em mente, pois no BDS2006 não tinha a poderosa "DataSnap", até já usava ela integrada ao BDS2006, inclusive usava os relatórios do FastReport do XE5 integrado ao XE5, como fiz isto? Crie na época uma .dll que recebei os parâmetros, processava e devolvia as coisa para nossa aplicação. Mais com esta noticia que o ACBr que não daria mais suporte aos delphi sem suporte a UNICODE, topei o desafio e Graças a Deus está tudo rodando 100% no XE10, e não é um sistema qualquer não o nosso...! Hoje temos mais de 13 executaveis, PDV Retaguarda, Sistema para Android, Sistema para Browser, com sistema de gestão completo. Tive e ainda estou tendo alguns pontos a serem resolvidos na verdade, tudo está em Memory Leaks que não tinhamos no BDS2006, teremos que migrar tudo de DBExpress para FireDAC. Em Fim..., se não fosse esta dura do pessoal da ACBr para evolução, ficaria estagnado ao passado até poderia como fiz, arrumar um jeitinho para ir empurrando com a bariga, mais migrei, estou super satisfeito pois agora posso usufruir de toda a tecnologia do DataSnap sem .dll sem "Gambiaras" todos os projetos numa só IDE. Outro ponto, não posso reclamar do pessoal da ACBr, esta belíssima comunidade que faz tudo de GRAÇA!!! de GRAÇA Mesmo, 80% dos programadores Delphianos usam algum componente deste biblioteca, então meus amigos, parem de reclamar, evoluam, pois estão pegando a vaca e bezerro... Falo como usuário!!! Quando deram a noticia que não mais dariam suporte a RaveReport, QuicReport, etc, foi uma dor de cabeça para mim. Mais evolui e depois agradeci pela evolução, não diferente agora. Na verdade já quero deixar aqui meus agradecimentos ao ACBr, pois foi com essa atitudes de vocês que eu evoluir do dia para noite e que evolução, até alguns fornecedores meus de componentes evoluirão junto, pois cobrei que atualizassem os componentes, então todos nos estamos ganhando...

Bom dia, Bem, migrei para XE10 Seatla, os Memory Leaks continuaram, peguei a dica apontado pelo nosso amigo Isaque Pinheiro. Fiz um teste, acrescentei apenas um TSQLConnetion + TSimpleDaset, este consultado uma tabela com 75 campos com variados tipos de dados. veja o tanto de Memory Leaks levantado... Print logo abaixo... Bem, um amigo meu usa uma unit chamda ScaleMM2, ao acrescentar ela no dpr do projeto os memory leaks somem, alguém já usa esta unit. Sabe me dizer o que ela realmente propoem e se consegue? Ou seja tem como testar se ela libera ou apenas omite os aviso de Memory Leaks?

Boa noite, É meu amigo, migrei para XE10, os erros de Memory Leaks com UnicodeString condinuam, sem saber de onde vem eles, mesmo usando o EukaLog não conseguir rastrear... Vou migrar agora o meu projeto para FireDAC e largar de mão o DBX. Vamos ver...

Boa tarde, Quando você se refere ao usar o delphi está se referindo, desta linha que acrescentamos ao final do form principal? initialization ReportMemoryLeaksOnShutdown := DebugHook <> 0; Ai quando debugamos ao finalizar a aplicação ele mostra os objetos que não foram liberados?

Show de Bola Isaque, hoje todo o nosso sistema é TQuery + Provader + ClientDaset, irei seguir sua linha de raciocio, concordo 100% contigo... O Bom da FireDAC é como você disse mais banco podem ser acessado, inclusive Mysql que até então deveriamos usar outra Engine como Zeos creio que uma das mais usadas. Voltando ao assunto do Memory Leaks, em pesquisa ouvi falar sobre "SCALYMM2" que promete remover este tipo de erros, conhece esta unit?

Bom dia, Muito obrigado pela resposta, Não é erro no meus projetos não! Pois ele já tem mais de 9 anos, vim do delphi 6 para BDS2006 agora para XE5, deste a primeira versão do nosso sistema que tivemos muito cuidado com Memory Leaks. Estava pensando em ir para Seatla, mais como você já mencionou o problema om DBX, cara meu sistema usa tudo DBExpress Agora DBX, sendo assim seria um caus ter que mudar para FireDAC. Sobre o ACBr, eu também uso quase 100% dele, realmente está rodando 100%...! Só estou migrando por causa do ACBr, não posso nunca nem sonhar em ficar sem esta biblioteca...! Uma Pergunta, Você ao migrar para FireDAC, trocou os seus ClientDataSet, pois o FireDAC tem a mesma funcionalidade num só componente... Ou trocou apenas os TQuery? Deixando o mesmo ligamento (Query -> Provader -> ClientDaset -> DataSouce)? Pois se for para trocar para FireDAC teria que manter este vinculo. O FirecDAC se comporta bem nesta estrutura?

Boa Noite, Amigos, estou abrindo este tópico para tratarmos de alguns dificuldades na migração de Delphi sem suporte a UNICODE, Nos aqui já migramos todas as nossas ferramentas para XE5, pois conseguimos todos os componentes de terceiros para esta versão. Tudo rodando 100%. Mais alguns pontos foram encontrados e conto com a ajuda de todos aqui do fórum, aproveito para parabenizar a todos os amigos, pois é assim que os vejo, profissionais amigos! Eu particularmente sou muito preocupado com Memory Leak (Vazamento de Memoria) tento no máximo liberar todos os componentes criados em Run-Time, no BDS2006 plataforma aonde ficamos por anos com nossas ferramentas quase não tínhamos problemas com Memory Leak, até tinha, mais tratando de componentes de terceiro sem fonte. Bem ao migramos para o XE5, trocamos apenas as chamadas de String para AnsiString que foram necessário (Fazendo uso de caracteres). Mais agora ao Degugar a aplicação ativando "Monitoramento de Memory Leak" Mostra vários pontos que não foram liberados e todos quase com referência a UnicodeString O que pode está acontecendo? Isto poderá impactar em lentidão no sistema? Print das telas em anexo. Dica: Em todos os meus projetos eu acrescento no final do form principal esta linha, assim será levantado um relatório do que não foi liberado da memoria: initialization ReportMemoryLeaksOnShutdown := DebugHook <> 0;

Regys, muito obrigado pela retorno, Deus seja louvado através de sua vida... Muito obrigado Mesmo Daniel respondeu de uma forma direta, obrigado meu amigo...!! Responta que precisava, acabei aqui descobrindo isto na prática, tenho um .exe responsável por códificar / decodificar texto para meu sistema, ao migrar ele para XE "Unicode" usei AnsiString e String... Usando String ao decodificar não voltava para o mesmo texto, alguns caracteres eram perdidos, dai cheguei a conclusão do Daniel, agora ele com sua vasta experiência evidencia o que notei aqui... Muito obrigado a todos, e em parte pressão de vocês me vez evoluir estou satisfeitíssimo com todos os meus projetos na plataforma XE.

Bom dia, Graças a Deus, migrei de BDS2006 para XE5, o nosso sistema é gigantesco também... E utilizamos quase todos os componentes da ACBr, que sou fã de carteira! Bem, como fiquei nesta versão deste o seu lançamento até hoje, não estou muito acostumado com UNICODE, tenho uma dúvida, por favor, se alguém poder compartilhar suas experiências comigo, trata-se: Falando de String, tenho que migrar minhas variáveis todas de String -> AnsiString? Em alguns casos, notei que ouvi perda de dados, ou seja, string cortada, então migrei! Mais seria melhor migrar todas as referencia de string para AnsiString?. Outro ponto, em testes aqui, ao migrar boa parte do código de string para AnsiString, utilizando o EukaLog, tive alguns vazamento de memoria sobre UNICODE, coisa que não ocorria com o de string, o que poderia está acontecendo? Por favor, deem suas opiniões, é muito importe para mim não enfrentar uma mudança sem ser necessário.

Bom dia, Estou usando o Acbr atualizadíssimo revision 11076, apaguei agora mesmo todos os fr3 reinstalei todos os pacotes, mesmo assim o erro persiste, vou tentar a dica do coloca ai acima, qualquer posto aqui... Mais se der certo... Teremos que ficar fazendo este procedimentos todas as vezes que houver mudanças na estrutura dos arquivos fr3, sem problemas para mim...

Bom dia, Pessoal eu tenho sérios problemas para imprimir Danfe NF-e usando o FastReport, quero mudar as impressões para FastReport, pois acho elas mais bem definidas, mais veja os erros que é levantado ao visualizar / imprimir Cenários: Usando Delphi XE5 + FastReport Instalado por fora "Completo" versão 4.15.6 Arquivos fr3. Testei com todos(DANFeRetrato.fr3, DANFeRetratoNovo.fr3, DANFeRetrato_Basic.fr3) Em anexo arquivos com erros, preciso muito colocar para rodar em FastReport as NF-e.

Boa tarde, Amigos, conforme postado aqui no foram, que a partir de Agosto/2016, o Acbr não mais dará suporte a Delphi que não suportam Unicode, bem nos usamos o BDS2006 com um sistema bem grande, e utilizando quase todos os componentes da Acbr e anos e sempre com ele atualizado diariamente, sendo assim, estamos iniciando o ardor de trabalho de migrar para outra versão do Delphi. Iniciamos o processo de instalação, aquisição de componentes para o Delphi XE 10 Seatle. Bem estou abrindo este tópicos para ir postando minhas dúvidas e dificultardes, segue algumas, por favor se alguém poder nos ajudar... 1º Instalamos o Acbr 100% isto é, sem nenhum componente de Relatório, queremos padronizar as impressões todas em Fortes Report, primeira pergunta, qual versão do fortes utilizando, alguém pode nos indicar o link via Tortoise? Eu partilarmente não sei encontrar nada no site GitHub.

Pode postar aqui o .ini da cidade? Para que assim eu possa tentar ajustar principalmente em Parauapebas? Não vão Add no SVN ainda não, falaram que devem muitas alterações que podem complicar o andamento do componente.http://www.projetoacbr.com.br/forum/topic/27345-nfs-e-provedor-governa-cidade-parauapebas-maraba/#comment-178767

Bom dia, Pessoal tenho vários clientes nas cidades de Parauapebas/Marabá, era um sonho implementar NFS-e para estas cidades, o colega (Emerson Teixeira) Implementou para este provedor segundo ele, gostaria de iniciar e implementação / testes. Tem como subir ai para o repositório? Post do Emerson: http://www.projetoacbr.com.br/forum/topic/15594-adicionar-novo-provedor-portal-governa/#comment-178710

Boa noite, Emerson vai ser um sonho realizado integrar pro Governa. Vou iniciar os testes o mais rápido possível. Deste já muito obrigado

Boa noite companheiros, gostaria de contar com a ajuda dos senhores, pois adquiri hoje meu Modem URMET DARUMA MIN300A, e comecei a realizar os testes utilizando o mesmo, de início tive um contratempo pois no computador do meu call center não tem placa serial, então consegui fazer a instalação USB do mesmo, utilizando o próprio cabo que vem nele e baixando os drives diretamente do site http://www.desenvolvedoresdaruma.com.br/. Após a instalação do drive consegui estabelecer a comunicação e enviar e receber mensagem, só que esta acontecendo um sinistro, ele esta enviando a mesma mensagem continuamente, além de gerar a mensagem de log a seguir: Communication error 31: Um dispositivo conectado ao sistema não está funcionando.

Boa tarde, Italo, sabe me disser se alguém topou implementar este provedor? Atendemos as cidade de: Parauapebas, Marabá, Eldorado dos Carajas, Cananã dos Carajas, Novo Repartimento, Ourilândia do Norte e Tucumã, todo usandos estes Provedor.