Isaque Pinheiro

31 Dias de RAD Studio XE2 Tutorias

2011-12-11T12:46:00.001-08:00

Vídeos passo-a-passo sobre temas novos, incluindo desenvolvimento de aplicações 64-bit Windows, LiveBindings, desenvolvimento de aplicações móveis para iOS e Android, Windows e Mac desenvolvimento com uma base de código, estilos FireMonkey e muito mais.

31 Dias de RAD Studio XE2 Tutorial Vídeos playlist no YouTube

SAC ACBr

2011-12-08T09:17:00.001-08:00

É com muito prazerque anunciamos o inicio das atividades do SAC do ACBr.

Para contratar o SAC, siga os seguintes passos:

Acesse o site: http://www.djsystem.com.br/acbr/sac/;
Efetue o seu cadastro, com os dados completos, não omitindo nenhum campo obrigatório;
Após recebermos sua ficha de inscrição, lhe enviaremos por e-mail, um boleto para pagamento conforme o plano escolhido;
A fim de agilizar a liberação do seu Login na área restrita aos usuários do SAC, por favor envie o comprovante de pagamento escaneado para o e-mail: financeiro@djsystem.com.br;
Pronto, você será notificado por e-mail quando sua liberação estiver concluída.

O SAC - Suporte ACBr Comercial é uma modalidadedisponibilizada pela DJSystem para todos os desenvolvedores que utilizam e/ouquerem utilizar o Projeto ACBr em seus aplicativos e necessitam de um suporteespecializado.

Quais as vantagens de utilizar o SAC ?

Acesso a fórum privativo;
Resposta em até 1 dia útil;
Disponibilização do ACBrMonitor/ACBrNFeMonitor compilados semanalmente;
Contribuir para que o projeto cresça de maneira sustentável;
Programadores dedicados exclusivamente à prestação de suporte;
Maior credibilidade ao Projeto ACBr.

Planos para contratação do SAC

Suporte por 1 ano R$ 120,00 mensal*
Suporte por 1 semestre R$ 150,00 mensal*
Suporte por 1 Trimestre R$ 250,00 mensal*
30 dias de suporte R$ 500,00*

*Número máximo de 15 perguntas por mês em qualquerplano.

Questões Importantes

O ACBr terá seu código fechado ?
Não. O ACBr nunca terá seu código fechado. Aprópria licença usada nos fontes do projeto (LGPL) impediria isso. A DJSystem,empresa que é a principal mantenedora do Projeto ACBr, está apenas oferecendoum novo serviço, que é o SAC, ou Suporte ACBr Comercial, a contratação doserviço é opcional.

O acesso aos fontes do projeto ACBr serámodificado ?
Não. O Projeto ACBr continuará hospedado nosite SourceForge.com, e nada será modificado na maneira atual de se obteracesso aos fontes.

Quais os tipos de suporte que o SAC oferece?
Todas as dúvidas de usuários do SAC devem serpostadas no Fórum privativo. Não há suporte por acesso remoto, e-mail,telefone, MSN ou Skype.

O Fórum será fechado ?
Não. O fórum atual sempre continuará aberto egratuito. Porém o SAC oferece acesso a um novo fórum, de conteúdo fechado, ecom garantia de resposta em até 1 dia útil. Os funcionários da DJSystem queestão envolvidos diretamente no Projeto ACBr, continuarão ativos nos doisfóruns.

Por que o SAC foi criado ?
Tivemos várias motivações:

Atender a solicitação de diversas empresas, que nos procuraram em busca de um suporte especializado dos componentes ACBr.
Trazer maior credibilidade ao Projeto ACBr
Profissionalizar o Projeto ACBr, que de acordo com a renda obtida, poderá contratar desenvolvedores dedicados, ajudando o ACBr a crescer cada vez mais.

Sou obrigado a contratar o SAC para usar oProjeto ACBr ?
De maneira alguma. O Projeto ACBr é CódigoAberto, todos podem baixá-lo e utilizá-lo livremente. O SAC visa atenderaqueles desejam um suporte ágil e especializado sobre os produtos do Projeto,ou ainda se você deseja contribuir financeiramente com o contínuodesenvolvimento do Projeto.

Se aderir ao SAC, tenho direito a solicitardesenvolvimento específico ?
Não. Ser membro do SAC não dá o direito desolicitar o desenvolvimento de rotinas ou componentes específicos. A correçãode erros sempre será a prioridade, mas antes é fundamental averiguar se oproblema está realmente nos fontes do ACBr.
Os usuários do SAC tem um peso maior nasdecisões de quais componentes devem ser desenvolvidos ou melhorados.

Que tipo de perguntas posso fazer no fórumdo SAC ?
Apenas perguntas técnicas sobre os componentesserão respondidas no fórum exclusivo as demais perguntas serão movidas para ofórum aberto. Perguntas sobre legislação, instalação de certificados digitais,preenchimento de NFe, parte contábil ou financeira ou qualquer outro assuntofora do escopo técnico do componente não será respondido.

O que ocorrerá quando eu atingir o limitede Perguntas no mês ?
Você poderá adquirir pacotes de perguntasadicionais.

As perguntas não utilizadas acumulam para opróximo mês ?
Não. As perguntas deverão ser utilizadas nomês e não acumulam para o próximo mês.

Sou desenvolvedor ativo do ACBr, o que euganho com o SAC ?
Todos os desenvolvedores com direito degravação nos fontes do ACBr já são usuários do SAC, possuindo acesso pleno aofórum exclusivo. Conforme a demanda de usuários do SAC, a DJSystem precisarácontratar consultores ou programadores para tarefas específicas e os atuaisdesenvolvedores envolvidos no projeto ACBr são candidatos naturais para estatarefa.

O Projeto continuará recebendo doações ?
Sim. O sucesso das doações foi o que maismotivou a DJSystem a investir profissionalmente no Projeto ACBr. Se vocêdesejar, pode continuar a contribuir financeiramente com o projeto através dasdoações.

O Projeto continuará aceitando ajuda noscódigos fontes ?
Certamente que sim. Todo projeto de CódigoAberto precisa da ajuda da comunidade de usuários para crescer com qualidade.Essa é uma das principais vantagens do modelo de Código Aberto, todos podemcontribuir para a melhoria do código. A analise das contribuições continuará damesma maneira que é feita hoje, ou seja, através de qualquer desenvolvedor quetenha direito de gravação no nosso repositório de fontes, mesmo que ele nãoseja diretamente envolvido com o SAC.

Qual o tipo de dúvida será respondida?
Apenas dúvidas sobre os componentes serãorespondidas, dúvidas que não estão relacionadas diretamente ao componente serãomovidas para o fórum aberto.
Por exemplo: "Como faço para cadastrarmeu Paf-ECF nos estados?", está é uma dúvida relativa a procedimentos decadastro, não tendo nada a ver com os componentes, este tipo de dúvida serámovido para os tópicos abertos.

O SAC tem como principal finalidade contribuirpara o crescimento do Projeto ACBr.

2011-09-29T07:37:00.000-07:00

Ontem 28/09/2011, saiu o Update 1 do XE2, mal foi lançado e já temos 120 bugs e fixes de correções
Delphi XE2 Update 1, baixei a versão trial, e já encontrei outro bug não corrigido, ao criar um form novo herdando de outro, em uma aplicação VCL, ele tenta criar o form novo do tipo FireMonkey, e chega a fechar a IDE.

Bug Postado no QC

FastReport - Enriquecendo a IDE

2011-09-21T13:36:00.000-07:00

Postei um video no youtube, mostrando passo a passo como enriquecer a IDE do FastReport, o video mostra com podemos levar os componentes da IDE do Delphi para dentro da IDE do FastReport, para poder ser usado.
Assintam, comentem e avaliem.

Várias Versões do Delphi Instaladas

2011-09-21T13:20:00.001-07:00

Para termos várias versões do Delphi instaladas em nosso computador, devemos fazer uma configuração simples para que não haja conflito entre as versões, buscando os caminho das versões antigas ou vice versa.

Passos:
1) Entre na IDE de cada Delphi instalado em sua maquina
2) Vá no menu Tools->Options-> Environment Variables,
3) Procure na lista "System Variables" a opção "Path" e selecione
4) Clique na opção "Add Override", será adicionado no quadro User Override uma opção Path
5) Selecione no quadro User Override, a opção Path que foi adicionada, clique em Edit e retire o path das outras versões, deixando somente os caminhos da versão que você estiver executando esse processo.

Depois de executar essa tarefa em cada versão, cada uma ao ser iniciada, irá sobrepor a variável PATH, não indo buscar mais nada, no path das outras versões do Delphi.

Até a proxima.

Delphi XE2 - LiveBindings

2011-09-13T11:09:00.000-07:00

LiveBindings é baseado em expressões relacionais, chamado de expressões de ligação, que pode ser unidirecionais ou bidirecionais.
LiveBindings é também sobre objetos e controle de objetos de origem.
Por meio de expressões de ligação, qualquer objeto de origem pode ser vinculada a si mesmo (tornando-se fonte e objeto de controle) ou a qualquer outro objeto de controle, simplesmente definindo uma expressão de ligação, envolvendo uma ou mais propriedades dos objetos que você desejar vincular juntos.
Por exemplo, você pode fazer um ligação de um controle TEdit com um TLabel para que, quando as alterações da propriedade Text do TEdit aconteça, o Caption do TLabel automaticamente seja ajustado para o valor avaliado pela a expressão de vinculação.
Outro exemplo é a ligação de um controle de tracker para uma barra de progresso para que o progresso se eleva ou diminui à medida que você mover a barra.
Da mesma forma, você pode se conectar a bancos de dados, alterar uma ou mais propriedades de diferentes objetos, e assim por diante. Porque com LiveBindings, você pode até mesmo alterar as propriedades dos objetos que estão ligados a outros objetos que estão vinculados a um objeto de controle.

Video demonstrando o uso do novo recurso :

Sobrevivência a Bombardeio Fiscal

2011-08-31T12:49:00.000-07:00

Caros, a cada dia estamos vendo o Governo colocar-mos na parede, para poder ter mais arrecadação de impostos, primeiro foi o Sintegra, dizendo que iria cruzar os dados de clientes e fornecedores, mas aos poucos fomos vendo que não era o tal bicho de sete cabeça, mas até hoje tem arquivos de Sintegra gerados de forma errada, por parte dos emitentes e por parte dos softwares também.
Estamos agora com exigências bem além de sintegra, agora temos PAF-ECF, NF-e, CT-e, NFS-e, SPED Fiscal, SPED Pis Cofins, SPED Contabil, SPED FCont é um mundo de informações que temos que gerar em nosso sistema para atender a todas as essas informações impostas pelo Fisco.
Quem de nós desenvolvedores, tivemos que nos rebolar para gerar as informações que o simples sintegra pede? Muitos nem se preocupam em ter essas informações no seu DB, geram na hora que vão criar o TXT.
A cada exigência imposta, vamos nos esbarrando com os obstáculos, que são as informações necessárias para gerar NF-e, SPED, e com isso vamos ajustando daqui ajustando dali, mas para quem tem noção do tamanho que é esses SPED, não pensaria em fazer remendo, se preparem amigos, muitos terão que praticamente desenvolver novamente seus sistemas.
A dificuldade são tantas, que tem até contador rejeitando empresas que não esteja no Simples, de tanta dor de cabeças para fazer as apurações exigida pelo SPED PisCofins como falado nesse link http://www.robertodiasduarte.com.br/sped-efd-piscofins-assusta-profissionais/

As software house vem sofrendo pressão a algum tempo, para oferecer um sistema anti sonegação, prova disso é o PAF-ECF, onde impõe regras rígidas para quem não atender a essas exigências.

Agora veio a NF-e, nos obrigando a informar dados que nossos sistemas não ofertava, mas como a validação do xml da NF-e gerado, passamos ser obrigados a ter essas informações de forma rigorosamente certas, senão não nossos clientes não conseguem emitir a nota fiscal. Apesar dessas validações, ainda existem dados, como cálculos que não tem como serem validados, exemplo simples: é emitir um produto que é substituição ou tem redução na base de cálculo como um produto tributado normal.

Se nos atentar-mos, existe muito imposto deixando de ser pago, ou pago a mais, por motivo dos sistemas não abrangerem todos os cálculos de impostos nele, forçando assim nossos clientes emitirem notas fiscais de forma errada.

Mas isso não para porai, vai chegar ainda ao nível que essas informações poderão ser validadas, e o Fisco saberá se nossos sistemas está ou não ofertando a nossos clientes uma boa administração de como fazer todos os cálculos possíveis dos impostos como mostra esse link http://www.joseadriano.com.br/profiles/blogs/mt-sped-nf-e-sefaz-identifica-irregularidades-em-120-mil-notas-el?utm_source=twitterfeed&utm_medium=twitter

Infelizmente, vejo num futuro bem próximo, mas próximo mesmo, muitas Software House, fechar as portas por pressão de não consegui atender a tantas exigências impostas pelo Fisco, deixando assim seus clientes a ver navios, ou tendo que passar a serem representantes de concorrentes que conseguiram, vejo também os sistemas gerenciais se tornarem praticamente um sistema contábil, para gerar os arquivos do SPED.

Bom trabalho a todos, e que todos consigam sobreviver a tanto bombardeio fiscal.

Abraço

TFields vs FieldByName

2011-04-09T07:05:00.001-07:00

Olá caro leitor, começo te fazendo uma pergunta, você usa TFields em tempo de design ?
Quando comecei a trabalhar com Delphi, comecei a usar TFields em tempo de design, no decorrer do tempo vi que os TFields em tempo de design, me dava muito trabalho para dar manutenção a eles, as vezes ter que mudar de tipo, tamanho, mascara, valor default, pois o mesmo TFields as vezes precisava ser adicionado no dataset, em vários pontos do sistema.
Na época achei um forma de minimizar, colocando os datasets em um único datamodule e o herdando, foi uma solução que minimizou a dor minha de cabeça com manutenção.
Uns anos depois, quis desenvolver uma aplicação multicamadas e multibanco, mas os TFields estavam la para me dar dor de cabeça novamente, porque ao adicionar os TFields no Delphi, alguns tipos são diferentes dependendo do banco de dados.
Bom a solução foi adicionar os TFields via código (runtime), assim independente do banco de dados os TFields iriam ser adicionados no seu tipo certo, dependendo do banco que eu estava usando, dei até uma palestra sobre esse assunto em 2006 na Borcon (Borland Conferência), isso resolveu meu problema, alem de centralizar todos os parâmetros de cada TField, podendo ser aproveitado que qualquer parte de meu sistema, mas esse recurso esplêndido que consegui, tem para meu sistema um custo um pouco alto, não tão alto que não compense, mas tem, pois tive que usar em todo meu sistema “FieldByName(”)”, e isso, para quem já debugou o código do Delphi, sabe que ao chamar um FieldByName, o delphi faz um loop (for) para achar o campo pelo seu nome então imaginemos:
while not DS.eof do

begin
DS.FieldByName('Campo1').AsInteger := DS.FieldByName('Campo1').AsInteger *   DS.FieldByName('Campo2').AsInteger;
end;

No código acima vemos, um exemplo até simples, do qual o Delphi terá que fazer três vezes o mesmo loop (for), agora imaginemos se essa tabela usada tiver uns 80,90 até 100 ou mais campos, multipliquem isso por três.
Fazendo o que gosto de fazer, que é navegar pela NET, procurando exemplos, código, recursos etc.. sobre Delphi, descobri um post em um blog, o qual falava justamente sobre TFields vs FieldByName, não estou lembrado aqui nesse momento qual o link, mas no blog dizia que para resolver essa questão de poderíamos criar uma variável do tipo TField, para cada FieldByName assim:

var
Campo1: TField;
Campo2: TField;

Campo1 := DS.FieldByName('Campo1');
Campo2 := DS.FieldByName('Campo2');

while not DS.eof do
begin
Campo1.AsInteger := Campo1.AsInteger * Campo2.AsInteger;
end;

Dessa forma o loop (for) só será executada uma vez e não três, bom até ai MUITO bom já baixaria o custo a quase zero, mas ao ver código pensei, não da para ficar criando variáveis a cada ponto que precisar usar desse recurso, da veio a idéia de ter uma class como a mesma estrutura de cada tabela e cada propriedade ser do tipo TField assim:

type
TDS = class
private
FCampo1: TField;
FCampo2: TField;
public
propriedade Campo1: TField read fCampo1 write Campo1;
propriedade Campo2: TField read fCampo2 write Campo2;
end;
...

Em seguida criar o link de forma automatizada, para eu não ter que ficar dando manutenção toda vez que adicionar um campo ou remover caso for preciso, é isso que irei mostrar para vez como fazer no meu próximo post.
Abraço a todos e até la.

Add-in do TortoiseSVN para Delphi

2010-07-05T07:34:00.000-07:00

Pelas minhas caminhadas pela NET, encontrei um plugin do TortoiseSVN, para Delphi no link DelphiSVN, baixei para testá-lo, e a primeira impressão gostei, mas como já havia trabalhado com StarTeam do Borland em equipe, logo observei que o plugin não permitia bloquear e desbloquear os .pas e .dfm, que estava usando, para que outro da equipe pudesse saber que os arquivos estavam sendo usados, mas que o recurso existia no
TortoiseSVN. Como sempre nada é perfeito.

Recursos oferecidos pela cópia original, que se encontra no link passado acima.

Bom, como o fonte estava em minhas mãos, resolvi dar uma olhada para saber como foi implementado os recursos, e após ter entendido, o que eu precisa era saber o comando do TortoiseSVN, que me proporcionasse, ter esses recursos. Então comecei a ler os manuais, mas não achei uma forma simples, pois os comandos de bloquear e desbloquear tem, mas não estava conseguindo fazer da mesma forma que o TortoiseSVN faz no explorer, que é mostrar a opção do menu "Release lock", somente se o arquivo realmente estivesse bloqueado e vice versa, mas não desisti. Após várias pesquisas, me vaio a mente, que o recurso não deveria ser simples, pois se fosse no site original, o autor do plugins já o teria feito, pois esses recurso é de muita utilidade, e nesse momento sim, pensei em desistir.

Foi ai, que me veio uma idéia, de ter um arquivo de controle, e iria gerar esse arquivo ao broquear um .pas, o qual deveria automaticamente bloquear também sei .dfm, se o mesmo existisse, então o comando “Get lock...” ao ser executado, relacionaria os nomes desse .pas e .dfm, os gravando no arquivo e o plugin identificando esse arquivo, iria mudar o label do comando e “Get lock...” para “Release lock”, e foi assim encontrei a solução, ficando assim os recursos após a implementação:

Onde baixar:
O plugins modificado, poderá ser baixado em DelphiSVN

Instalando:
Abra o pacote .dpk, compila-lo e o instale.

Arquivo gerado pelo plugin:
<Nome do projeto>.svn

Abraço a todos.

GetTableNames do DBX com MSSQL Server

2010-06-14T07:59:00.000-07:00

Olá a todos, isso aconteceu comigo.

Bem aperfeiçoei uma ferramenta, feita em Delphi que achei na NET, esta Le o metadata do banco de dados, especificamente a lista de tabelas, a qual eu seleciono uma das tabelas da lista, para gerar uma class da estrutura da mesma. Para Interbase, Firebird e MySQL, sempre funcionou 100%, (no momento uso D2010), mas para SQL Server, não trazia a lista de tabelas, mas também não dava erro, então decidi debugar, para saber o que estava acontecendo, foi dai que descobri que para MSSQL, precisaria do "SchemaName", como o método tem overload, passei a chamar método que pudesse passar para ele o nome do schema somente para o banco MSSQL.

Para Interbase, Firebird e MySQL chamo:
SQLConnection.GetTableNames(varList, false)

Para MSSQL, passei a chamar:
SQLConnection.GetTableNames(varList, 'dbo', false)

Assim, resolvi meu problema e agora está funcionando 100% para os bancos que quero.

Este foi um relato, de um acontecimento comigo, passando assim a solução de como resolvi, para que outras pessoas, se passarem pelo mesmo problema, tenha uma fonte de pesquisa para resolvê-la.

Firebird - UPDATE OR INSERT INTO

2010-03-14T01:53:00.000-08:00

Um dia desse desenvolvendo meu PAF, que usa Firebird, abri o IBExpert para gerar um script de insert, la eu vi que tinha uma opção chamada "UPDATE OR INSERT INTO", com essa opção selecionada, as colunas e a chave primaria marcada recebi um script da seguinte forma:
UPDATE OR INSERT INTO B01_FON (B01_BANCO, B01_NOME)
VALUES ('001', 'BRASIL S/A')
MATCHING (B01_BANCO);

Me Restava descobrir se essa sintaxe, ia funcionar executando dentro de delphi, e para mimha surpresa funcionou 100%, ou seja está ai uma maneira MUITO facil de se fazer sincronismo de dados no Firebird, pois executando esse Script o firebird checa pelo campo chave que está em MATCHING (B01_BANCO) (caso tenha mais campos na chave primária, basta separar por virgula), se não existir essa chave ele executa o INSERT, e se existir ele executa o UPDATE comparando a diferença campo a campo, que não pertença a chave primaria.

Abs

Delphi "MS Sans Serif Size 8" no Windows 7

2009-10-10T06:54:00.000-07:00

Para quem desenvolve em Delphi.
Não sei por que cargas d'agua, o Win7 não aceitou a fonte "MS Sans Serif", Size = 8.
Meus projetos tem muito forms que vieram e versões anteriores do Delphi, várioscom a font "MS Sans Serif" Size = 8. No Win 7 a fonte "MS Sans Serif" o Size minimo é 10, deixando meus forms c/ as fontes enormes, consequencia. Tiveque mudar todos meus .dfm p/ fonte Tahoma na mão.

ÊÊÊÊÊ windows 7, porque vc não deixou o "MS Sans Serif" assumir o Size = 8 heim...

Solução... Peguei essa fonte de outra maquina e intalei na mão.

Delphi 2010+MSSQL - "Unable to find procedure DBXRow_GetUint8"

2009-09-08T17:57:00.000-07:00

Aconteceu comigo.

Ao tentar fazer um conexão em um banco de dados SQL Server, como o Delphi 2010, fui premiado com a mensagem "Unable to find procedure DBXRow_GetUint8". Então parti para alguns testes:

1o) Criei um novo projeto e testar a conexão, para minha surpresa o exemplo conectou 100% ao banco.
2o) Executei um projeto meu menor, e também conectou 100%
3o) Olhei no meu projeto que dava o erro, se tinha alguma Unit ocasionando o erro, pois já aconteceu comigo "A biblioteca RX, não deixava abrir o editor do TImageList"
4o) Passei um email para o Andreano e ele me respondeu para que eu criasse um exemplo, mas como se já tinha feito e estava com quase 100% de certeza que no monte de units do meu projeto uma delas estava ocasionando o erro. Pior e como descobrir qual ?
5o) Último teste criei um projeto teste e fui puxando para ele unit a unit, para saber qual era.

Resultado final foi que não descobri pois com pouquíssimas units o erro estava ocorrendo e olhei todas e vi que não era uma unit que estava ocasionando o erro. Então ao dar uma olhada no diretório do projeto teste, diretório este que era o mesmo do meu projeto, vi que eu tinha colocado no mesmo diretório dos EXEs as dlls de conexão. Como tinha duas dlls uma para firebird e outra para MSSQL, resolvi apagar a do MSSQL, pois a do firebird estava funcionando normal. Para minha alegria ao executar a aplicação o erro não ocorreu.

Resumo:
Delphi 2010 com conexão MSSQL, não coloque a dll "dbxmss.dll", no mesmo diretório de sua aplicação, deixe-a no "System32".

O erro foi reportado ao QC

Para deixar os leitores a par do acontecido:
Depois de vários comentários no QC, referente este erro, foi descoberto que o problema estava vindo da versão antiga da dll (dbxmss.dll), a qual eu por acidente peguei do diretório do D2009 ao invés de pegar-la do diretório do D2010. Atualizei a dll e funcionou 100%.

Axial Build 2009 for Windows

2009-05-05T16:13:00.000-07:00

Foi lançado a versão 2009 do Axial Build. O poduto é de uso livre.
Criado pela Tecsis Soluções, o Axial Builder 2009, além de trazer o mais novo padrão no seu visual, seu código foi todo reescrito, trazendo assim optimização e rapidez nas compilações. No código reescrito a Tecsis utilizou o Axial framework, o qual é utilizado para criação de todos os seus projetos, com essas mudanças ficou muito fácil de incluir recursos de compilação ao Axial Build. Para baixar clique aqui...

MidasLib vs ReportMemoryLeaksOnShutdown

2009-03-24T06:41:00.000-07:00

Nas minhas aplicações tenho o "ReportMemoryLeaksOnShutdown := DebugHook <> 0", habilitado sempre. Enquanto eu estava no D2007 o vazamento de memória estava zerado, tratei todos. Ao mudar para o D2009 começou a aparecer um vazamento de memória assim:

Como não me relata quais objetos não foram liberados da memória, eu não pude resolver este problema, até ontem. Ontem resolvi cercar alguns recursos em uma das telas de um sistema meu e observei que ao cercar o método que configura as propriedades dos TFields como:

ConstraintErrorMessage;
DefaultExpression;
Alignment;
DisplayFormat;
etc..

o erro acima não ocorria, então pensei. Já não bastava o erro "stack overflow", ainda mais esse ?
Meu proximo passo foi cercar propriedade por propriedade pra descobrir qual ou quais estavão gerando o vazamento de memória, até que descobri que era a propriedade "DefaultExpression". Bom agora além de ter que mudar o método de validação de minhas aplicações iria eu ter que mudar o método de alimentar os valores defaults dos TFields ? Não ! Parti então para fazer um exemplo e mandar para o Andreano na esperança dele reportar e o problema ser resolvido talvez no Update3, mas ao concluir o exemplo este não me mostrava o erro citado acima, então o que poderia ser ? Passei limpando uma de minhas aplicações vendo se tinha alguma Unit que poderia estar ocasionando o erro, mas não consegui achar nada, até que ao abrir o fonte do projeto em um de meus sistemas, no menu Project->View Source, descobri que tinha 3 units inseridas por mim mesmo ao projeto que são elas:

Como não poderia deixar, comentei as duas ultimas pensando que se fosse essas seria uma das duas a MidasLib não poderia ser..., o erro continuou aparecendo, então para desencargo de consciência comentei a MidasLib também e para minha surpresa era ela que estava ocasionando os vazamentos de memória.
Fica aqui mais uma situação ocorrida comigo para que outros não passem por isso, e mais uma vez vamos esperar que no Update3 isso seja resolvido.

T+

Error "Stack overflow" no D2009

2009-03-24T05:59:00.000-07:00

Quando o D2009 saiu, exitei por algum tempo a saida do D2007, porque minhas aplicações estavam todas rodando 100%, passados algum tempo resolvi fazer o teste de compilar minha apliação com D2009 e logo vi algumas alterções em alguns dos componentes que uso e uma simples mudança no meu código (nada significante), então resolvi migrar, pois o dbExpress me encheu os olhos em vista do que era. Para minha surpreza ao rodar o sistema e abrir uma das telas veio um erro "Stack overflow".

Após quebrar a cabeça por algum tempinho descobri que este erro estava acontecendo porque eu configuro a propriedade "CustomConstraint" dos TFields, ex: "CDS.FieldByName('VALOR').CustomConstraint := 'VALUE IS NOT NULL AND VALUE >= 0';", para validar dados. Depois de vários testes, não teve jeito, tive que mudar todo método de validação dos meus sistemas, diga-se de passagem UM TRABALHÃO.
Antes de mudar é claro mandei um exemplo para o Andreano. Engraçado que criando o exemplo para mandar para o Andreano, observei que o erro só ocorria, quando rodava o sistema através do F9 em design, pois se executasse direto ou sem debug o error não ocorria. (isso foi reportado para o Andreano também).
Fico aqui pensando comigo mesmo, será que só eu uso estes recursos ? Ou a maioria ainda não foi para o D2009?
Bom fica ai o relato, e que apesar do D2009 estar no Update 2, ainda não foi resolvido.

T+

MetaData no dbExpress e Delphi 2009

2009-03-23T05:21:00.000-07:00

Assistindo alguns videos dos novos recursos do D2009, baixei um video de uma palestra ministrado por William Santos dbExpress - MetaData com Delphi 2009, que mostra os novos recursos do dbExpress e como trabalhar com MetaData. Lembrei também que baixei os exemplos do livro de Marco Contú e la tinha um exemplo de metadata, então resolvi vê como funcionava na pratica todos os recursos, como não era surpresa descobri que seria a solução para atualização dos MetaDatas dos meus bancos de dados, pois a Embarcadero provou que continua se preocupando com o desenvolvedor como a Borland fazia, pois foi fácil buscar as informações do metada, visualizando que pode ser feito uma aplicação para essa atualização automatica. Bom mais como sempre nem tudo são flores, pois quando fui buscar as Triggers descobri que este recurso ainda não estava disponível, então resolvi olhar dentro do código fonte do framework do dbExpress, pois achei que poderia os métodos estar com nomes não tão intuitivos. Depois que vasculhar, não achei nada e pensei que seria o fim para criar o recurso de atualização automática do meu banco, vendo que só faltava isso parti a pesquisar como eu poderia fazer isso manualmente e sem muito esforço consegui achar e é isso que quero passar aqui, em SQL Server.

SELECT
[Table Name] = OBJECT_NAME(sys.objects.parent_object_id),
[View Name] = sys.objects.name,
[View Source] = sys.sql_modules.definition
FROM sys.sql_modules
INNER JOIN sys.objects ON sys.objects.object_id = sys.sql_modules.object_id
WHERE sys.objects.type = 'TR'"

T+