Eu Gosto do Delphi

Eu tenho um sonho

2011-12-23T10:16:00.000-02:00

Olá.

Mais um ano se encerra e mais um ano se inicia.

Não podemos ficar indiferente a isto. Esta época do ano é meramente um marco. São dias como outro qualquer, mas representam o fim de uma época e a esperança que o próximo período será melhor. Natal e Ano Novo. As palavras em si encerram algo bom.

Mas de nada adianta se não houver reflexão.

E eu ando refletindo bastante e convido a você, amigo desconhecido, a fazer o mesmo.

Refletir sobre o que fizemos de bom e de ruim.
Pedir perdão e perdoar. E perdoar a si mesmo, como sabiamente me aconselha minha querida namorada, que mais do que isso, é minha amiga nas horas difíceis. Tamires, obrigado por entrar em minha vida.

Valorizar o tempo com os seus filhos. Missão difícil para pais como eu, que por algum motivo não tem o privilégio de conviver diariamente com eles. Que os vêem em dias marcados. Júlio e Fernanda, meus melhores dias são aqueles em que vocês estão comigo, seja no Parque do Ibirapuera, seja assistindo o mesmo filminho pela enésima vez.

Deus, obrigado por ter me dado dois filhos maravilhosos.

Nossos pais merecem atenção também. Os meus não vivem juntos a muito tempo. Tenho algumas lembranças, umas boas outras ruins.
Tento sempre ficar com as boas. Rezo sempre para que eles se perdoem e vivam plenamente suas vidas. O que eu puder fazer para ajudá-los, farei.
Minha mãe foi uma guerreira e merece toda minha paciência e Deus, mais uma vez, me ajudará.
Valdete e Joselito, que Deus conforte seus corações.

Nossos irmãos não podem ser esquecidos. Tenho um bom irmão. Centrado. Admiro muito ele, espero que ele saiba disto. Manoel, você é o cara. Tenho mais dois irmãos por parte de pai que gostaria de ter tido mais contato. Jenny e Jony.

Há muito mais pessoas. A mensagem que quero passar é esta. Pare e veja o que é e principalmente, quem é importante para você. E deixe isso claro para elas, com palavras e atitudes.

Voltarei a postar no ano de 2012. Nosso Delphi está cheio de novidades e este blog será profissionalizado a fim de podermos crescer juntos.

Quanto ao meu sonho?

Que em 2012 nossos sonhos sejam verdades.

Feliz Natal e Próspero Ano Novo a todos.

Delphi Conference 2011

2011-11-29T11:56:00.001-02:00

Olá a todos.

Primeiramente gostaria de me desculpar por tanto tempo sem postagens. Houveram mudanças muito importantes na minha vida profissional e infelizmente isso me impediu de postar com a frequência que eu gostaria.

Este post tem um motivo especial que é o Delphi Conference 2011 que será amanhã, 30.11.2011, em São Paulo.

http://www.delphiconference.com.br/

Gostaria de convidá-lo a assistir a palestra Desmistificando as Expressões Regulares na Sala 1 às 17:30 que terei a honra de ministrar.

É um assunto muito empolgante e a partir de hoje darei destaque ao assunto no meu blog, criando inclusive uma página específica para o tema: http://eugostododelphi.blogspot.com/p/expressao-regular.html

É isto. Nos vemos amanhã.

Forte abraço.

Calendário de cursos na TDS

2011-09-15T14:59:00.000-03:00

Olá. A TDS está divulgando seu calendário de fim de ano.

Para verificar as turmas disponíveis acesse: http://tdstecnologiasp.com.br/calendarios/tdscal-13092011190451.htm

Forte abraço.

Object Pascal Style Guide

2011-08-10T11:13:00.000-03:00

Sempre tenho dúvida se estou escrevendo meus códigos de uma forma correta.

O link abaixo vai me ajudar:

http://edn.embarcadero.com/article/10280

Recebi pelo grupo de discussão do Yahoo!

DLL

2011-07-29T00:28:00.002-03:00

Estava navegando pelo rio abaixo...

Ok ok.

Só para compartilhar um material sobre criação de DLL. Achei este material bem didático:

http://www.kanenberg.com/index2.php?option=com_content&do_pdf=1&id=87

http://www.kanenberg.com/index2.php?option=com_content&do_pdf=1&id=103

http://www.kanenberg.com/index2.php?option=com_content&do_pdf=1&id=115

Diminuindo o tamanho do seu executável

2011-07-27T09:52:00.000-03:00

Olá. Recebi um link muito interessante sobre o tema.

Não sei se você percebeu mas com a nova RTTI disponível desde o Delphi 2010 os executáveis gerados ficam muito grande.

Se você não tira proveito da RTTI não precisa deste peso.

http://delphi.about.com/b/2011/07/26/create-smaller-delphi-xe-executables-remove-rtti-pack-exe.htm?nl=1

O segredo está na diretiva de compilação WEAKLINKRTTI que no estado "on" desliga a RTTI. :)

Se estivermos nesta situação e precisarmos da RTTI receberemos a seguinte erro:

---------------------------
Debugger Exception Notification
---------------------------
Project Small.exe raised exception class EInsufficientRtti with message 'Insufficient RTTI available to support this operation'.
---------------------------
Break Continue Help
---------------------------

Mais sobre o assunto:

http://docwiki.embarcadero.com/RADStudio/en/WEAKLINKRTTI_directive_(Delphi)

http://docwiki.embarcadero.com/RADStudio/en/RTTI_directive_(Delphi)

Veja um código simples:

program Small;

{$APPTYPE CONSOLE}

//Pulo do gato!
{$WEAKLINKRTTI ON}

uses
  SysUtils, Rtti;

type

  //Aqui temos um controle mais fino
  {$RTTI EXPLICIT METHODS([vcPublic])}
  TMinhaClasse = class(TObject)
  public
    procedure Teste;
  end;

{ TMinhaClasse }

procedure TMinhaClasse.Teste;
begin
  Writeln('Ola mundo!');
  Readln;
end;

var
LContext : TRttiContext;
LType    : TRttiType;
oTeste   : TMinhaClasse;
begin
  try
    oTeste := TMinhaClasse.Create;
    LContext := TRttiContext.Create;
    LType := LContext.GetType(TMinhaClasse);
    LType.GetMethod('Teste').Invoke(oTeste,[]);
    oTeste.Free;
  except
    on E: Exception do
    begin
      Writeln(E.ClassName, ': ', E.Message);
      Readln;
    end;
  end;
end.

Parâmetros de execução do BDS e Extensões de Arquivo do RAD XE

2011-07-15T14:03:00.000-03:00

Você encontra aqui: http://docwiki.embarcadero.com/RADStudio/en/Command_Line_Switches_and_File_Extensions_Index

Turbo Pascal 1.0

2011-07-15T03:11:00.003-03:00

Toda história tem um começo.

E um dia me perguntei: "Onde começou a história do Delphi?" Isso me levou ao Turbo Pascal 1.0 .
Veja este site que interessante: http://www.emsps.com/OLDTOOLS/borpasv.htm É isto ai! O cara vende softwares antigos!

Dai pensei: "Por que não rodar o Turbo Pascal 1 na minha máquina"?

Vamos ver no que deu?

O primeiro desafio, óbvio, foi a instalação do software. Meu notebook é 64 bits com Windows 7.
Considerei então que seria o caso de instalar uma máquina virtual para instalar o DOS.
Instalei o VirtualBox: http://www.virtualbox.org/

O próximo desafio foi instalar o DOS. Um bom tutorial eu encontrei em: http://www.youtube.com/watch?v=8C_XQ86bXE0&feature=related

E as imagens dos disquetes do DOS eu encontrei aqui: http://www.mediafire.com/?8x1ewss0yvt

Por fim o instalador do Turbo Pascal. Olhe este artigo: http://edn.embarcadero.com/article/20693
Não poderia ter sido melhor.

Para conseguir gerar uma imagem de disquete dos arquivo baixados e usar na máquina virtual, usei o WinImage 8.50, baixado de http://www.winimage.com/

Eis o resultado de pouco mais de três horas de esforços:

Bom, tentei usar o editor mas confesso que não consegui. Dai roubei. Fiz um arquivo a parte, abri e compilei.

Bacana né?

Com um pouco mais de esforço, gerei um arquivo .COM (wowwwww):

Para terminar, os manuais em PDF: http://electrickery.xs4all.nl/comp/tp30/doc/index.html

Pascal Básico

2011-07-14T00:18:00.000-03:00

Olá. Segue a apresentação que usei para resumir os elementos básicos do Object Pascal para a turma para qual estou ministrando curso de Delphi na TDS.

Talvez lhe seja útil.

Talvez não.

Pascal - Elementos básicos on Prezi

"Nós que quebramos pedras sempre devemos ter catedrais em mente"

2011-06-29T11:58:00.002-03:00

Olá!

Estou lendo um livro sensacional chamado "O Programador Pragmático", de Andrew Hunt e David Thomas. Recomendo fortemente a leitura.

A fim de estimular a leitura vou publicar no blog as dicas que eles dão ao longo do livro - sendo meus os comentários, tentando trazer para a nosso contexto Delphi. Não vou, por exemplo, sugerir que você estude Smaltalk :)

Visite: pragmaticprogrammer.com

As primeiras 10 dicas são do primeiro capítulo: "Uma Filosofia Pragmática".

Dica 1: "Preocupe-se com o seu trabalho"

Basicamente nos enxorta a fazer bem feito. Acredite: fazer mal feito dá o mesmo trabalho que fazer bem feito. Não, isso não é verdade.
Fazer mal feito lhe dará muito mais trabalho depois. Ou a uma outra pessoa.
Então? Por que não fazer bem feito de primeira?

Dica 2: "Reflita sobre o seu trabalho"

Pense, reflita! Analise, critique! Não ligue o piloto automático. Será que você poderia estar fazendo esta tarefa de uma forma melhor?
Sempre pode ser melhor. Sempre.

Dica 3: "Forneça opções, não dê desculpas esfarrapadas"

Ninguêm gosta de má notícias. Somos desenvolvedores. Devemos sempre fazer parte da solução, e não parte do problema.
Se algo não pode ser feito da maneira proposta como deveria ser feito então?
Como você agiria se o atendente da padaria simplesmente lhe dissese que não há pães quentinhos naquele momento e desse de ombros?
Não seria legal ele oferecer um petisco enquanto você espera 10 minutos pela próxima fornada?

Dica 4: "Não tolere janelas quebradas"

Isso é um fato. Uma praça permanecerá limpa até que um infeliz jogue a primeira bituca de cigarro. Dai a degradação ocorrerá em uma velocidade surpreendente.
Portanto, para que o seu código não degrade, mantenha sempre as coisas em ordens. Identenção, comentários, refatoração... Isso ajudará com que o seu código não degrade.

Dica 5: "Seja um catalisador da mudança"

Não seja o dono da verdade. Nem um chato evangelista... Dê exemplos práticos sobre as melhores práticas.
Todos tentarão seguir o seu exemplo e certamente agregarão outras boas práticas. Mas alguém tem que começar. Que tal você?

Dica 6: "Lembre-se do cenário em larga escala"

Perceba o que esta acontecendo ao seu redor. A mudança é uma constante! Será que você está preparado para as mudanças? E seu código?

Dica 7: "Torne a qualidade parte dos requisitos"

Se você for abrir mão da qualidade melhor não abrir o Delphi hoje.

Dica 8: "Invista regularmente em sua carteira de investimentos"

Qual o seu capital? Seu conhecimento! Seja você bem sucedido
financeiramente ou nem tanto assim o seu capital é o conhecimento.
Assim como nas finanças há investimentos de alto risco e investimentos seguros.
Faça uma boa carteira de investimento: podemos aprender uma linguagem nova, como ruby e investir em uma certificação em SQL Server.
Amplie este cenário e perceba o mundo de oportunidades que pode se descortinar à nossa frente.
Reciclagem, na nossa área, é uma regra.

Dica 9: "Analise criticamente o que você lê e ouve"

Não serei eu a lhe explicar para que existe o marketing. O fato é que quem decide se isso ou aquilo é bom ou ruim é você de acordo com o seu contexto
e suas necessidades! Não a Info-Exame.
Você deve até mesmo decidir se este paragráfo é uma grande besteira. Talvez uma parte seja.
Enfim: você decide.

Dica 10: "É o que você diz e a maneira como diz"

Você, como programador, tem um mundo só seu, onde você é o Rei. Mas a verdade é que somos mais um na multidão.
E se comunicar com os outros é uma arte. Quem sou eu para ensinar como se comunicar? Eu precisaria aprender primeiro.
Mas devemos concordar que isto é uma necessidade.

Pré-visualizador do seu código fonte.

2011-06-07T13:07:00.000-03:00

Olá. Eu sou meio avesso a ficar instalando tranqueiras no computador :D mas um me chamou a atenção.

http://theroadtodelphi.wordpress.com/2011/06/02/introducing-the-delphi-preview-handler/

O desenvolvedor é o @RRUZ

Esta ferramenta é interessante por dois motivos:

1) Você consegue visualizar um código sem precisar abrir o arquivo, o que dá um ganho nas tarefas do dia a dia;

2) É uma ótima inspiração para se ver a que nível você pode interagir com as APIs do Windows;

Senti falta da função localizar...

É isto ai.

Depuração de Thread

2011-05-17T12:42:00.001-03:00

Se você trabalha com threads, sabe que um problema é a depuração de uma thread específica. Especialmente se há muitas instâncias de uma thread.

Dependendo da situação, fica caótico.

Uma maneira de se entender com o Delphi nesta situação é usar a janela "Thread Status" (Menu: View->Debug Windows->Threads, ou CTRL+ALT+T).

Isso abre a janela abaixo:

Mas qual a melhor maneira de utilizar?

Coloque o BreakPoint no ponto desejado, quando uma das threads chegar no ponto, o Delphi parará tudo, indicando qual a thread corrente:

Pois bem, no decorrer do Debug, pode ser que você vá para uma linha nada haver :) por que por algum motivo mudou-se a thread corrente...

Para voltar à thread em que você estava focado, vá na janela Thread Status, selecione a thread, e no pop-menu selecione a opção "Make Current"...

Por fim, você retorna à thread em que você estava focado.

Para facilitar um pouco mais, você pode nomear a sua thread para efeitos de debug: http://eugostododelphi.blogspot.com/2010/02/nomeacao-de-thread.html

Se você quiser mais alguma idéia sobre o assunto, leia também: http://edn.embarcadero.com/article/41175

O maior aeroporto em miniatura do mundo e o Delphi

2011-05-12T10:57:00.000-03:00

Olá. Muitas vezes nos desafiam: "Me fala um sistema feito em Delphi, hein? hein? hein?"

Pois é.

O @nerabil me mandou este link:

http://msn.techguru.com.br/videoknuffingen-airport-o-maior-aeroporto-em-miniatura-do-mundo/

No segundo vídeo mostra que o software foi feito em Delphi 6.

Show!

Se quiser outros cases:

http://www.embarcadero.com/rad-in-action/application-showcase

Testes unitários

2011-05-02T17:03:00.000-03:00

Olá. Compartilho com você uma apresentação do @wanc sobre Testes Unitários.

Muito bom!

Introdução teórica - Testes unitários on Prezi

Ovo de Páscoa

2011-04-26T10:58:00.000-03:00

Olá. Sei que a Páscoa já passou e espero que tenha sido um ótimo momento de reflexão para você - independentemente da sua crença.

Hoje o @wanc me mostrou uma curiosidade que eu achava que não existia mais no Delphi.

Vá na caixa sobre e digite ALT+T+E+A+M .

Dê dois cliques no resultado.

É isso ai.

Tirando um maior proveito do Exit

2011-04-07T16:12:00.001-03:00

Olá. Estou fazendo uma higienização por aqui, tirando os warnings dos projetos. E teve um que me deixou muito encucado:

[DCC Warning] Unit2.pas(39): W1035 Return value of function 'TForm2.EntradaValida' might be undefined

Vamos ao código:

function TForm2.EntradaValida(piEntrada: Integer): Boolean;
begin
  if (piEntrada > 0) then
  begin
    {...}
    Exit;
  end;

  {...}
  Result := True;
end;

Neste exemplo o compilador reclama que o resultado da função EntradaValida não foi definido.

O compilador foi ninja o suficiente para perceber que se entrar no if..then o método será interrompido pelo comando Exit.

Desde o D2009 podemos chamar o Exit de dentro de uma função passando como parâmetro o resultado desta função. Isso elimina o warning W1035. Veja no exemplo abaixo:

function TForm2.EntradaValida(piEntrada: Integer): Boolean;
begin
  if (piEntrada > 0) then
  begin
    {...}
    Exit(False); {<-- PULO DO GATO}
  end;

  {...}
  Result := True;
end;

É isso ai.

Persistindo as informações de um kbmMemTable

2011-04-04T17:07:00.000-03:00

Se você conhece e usa o kbmMemTable sabe que ele é um excelente DataSet, em especial quando você trabalha com DataSet em memória.

Caso você não conheça visite: http://www.components4developers.com/

Neste post quero chamar a atenção para uma funcionalidade bastante interessante que é a possibilidade de você persistir, automaticamente, as informações em arquivo.

Para isto, precisamos preencher apenas algumas propriedade, a seguir:

Persistent

Coloca-se true.

PersistentFile

Caminho do arquivo onde será efetuado o back-up.

PersistenteFormat

Referência à classe que definirá o formato do arquivo.

Portanto, quando você fechar o DataSet, os dados serão salvos automaticamente e quando você abrir, os dados serão carregados.

E caso você queira salvar de tempos em tempos, chame o método SavePersistent.

É isso ai.

Use o Format, por favor!

2011-03-04T13:42:00.000-03:00

Olá!

A tempos queria postar sobre uma função muito interessante, que é o Format.

Uma das coisas que eu detesto em um código Delphi é a concatenação de string.

Olha este exemplo horrível (sim, estou lhe induzindo a achar horrível):

procedure TForm2.Button1Click(Sender: TObject);
var
sMessage : string;
begin
  sMessage := 'Aluno: ' + Self.FNome + ' Endereço: ' + Self.FEndereco + ' Nota: ' + Self.FNota;
  ShowMessage(sMessage)
end;

Compare com o código abaixo:

procedure TForm2.Button2Click(Sender: TObject);
var
sMessage : string;
begin
  sMessage := Format('Aluno: %s Endereço: %s Nota: %d',[Self.FNome,Self.FEndereco,Self.FNota]);
  ShowMessage(sMessage);
end;

Perceba que no segundo exemplo o código ficou mais legível. Qualquer um vai entender o resultado da concatenação sem muito esforço mental. Já no primeiro exemplo...

Então a idéia básica é passar uma string com marcações especiais (identificadas com o símbolo %) e em seguida os argumentos.

As marcações que eu considero mais úteis no dia a dia são:

%s - String
%d - Número decimal
%f - Float

Mas existem outras! Veja no Help no Delphi.

Uma característica que valorizo no Format é a possibilidade de alinharmos os valores, ajudando a formatar um bom arquivo de log por exemplo.

Para isso basta informar o número de caracteres que você deseja. %s pode vira um %15s por exemplo, onde o 15 é o tamanho. Ainda neste aspecto, vale salientar que a palavra será jogada para a direita e na maioria das vezes é mais adequado à esquerda. Para isso usamos um traço, ficando: %-15s.

Bom, é isso. Tem outros aspectos mas acho que iria tornar o assunto mais chato do que o necessário. Eu sempre incentivo o uso do Format. Na minha opinião é mais profissional. Quando você se acostumar irá ter a mesma opinião que tenho sobre o primeiro exemplo lá em cima deste post: horrível. :)

Exemplo completo (aplicação console):

program Console;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;


procedure ExemploSimples;
var
sResult : string;
begin
  sResult := Format('Nome: %s Endereco: %s Idade: %d',['Fulano','Terra do Nunca',10]);

  Writeln('Codigo.....: Format(''Nome: %s Endereco: %s Idade: %d'',[''Fulano'',''Terra do Nunca'',10])');
  Writeln('Resultado..:' + sResult);
end;

procedure ExemploListagemSemIdentacao;
var
i      : Integer;
sNome  : string;
iIdade : Integer;
begin
  Writeln('Codigo.....: Format(''Nome....: %s  Indade...: %d'',[sNome,iIdade])');
  Writeln('Resultado..:');
  for i := 1 to 5 do
  begin
    case i of
      1 :
      begin
        sNome  := 'Maria';
        iIdade := 34;
      end;
      2 :
      begin
        sNome  := 'Kleberson';
        iIdade := 18;
      end;
      3 :
      begin
        sNome  := 'Dona Florinda';
        iIdade := 60;
      end;
      4 :
      begin
        sNome  := 'Bazzinga';
        iIdade := 28;
      end;
      5 :
      begin
        sNome  := 'Fatima';
        iIdade := 40;
      end;
    end;

    WriteLn(Format('Nome: %s  Idade: %d',[sNome,iIdade]));
  end;
end;

procedure ExemploListagemComIdentacao;
var
i      : Integer;
sNome  : string;
iIdade : Integer;
begin
  Writeln('Codigo.....: Format(''Nome....: %15s  Indade...: %d'',[sNome,iIdade])');
  Writeln('Resultado..:');
  for i := 1 to 5 do
  begin
    case i of
      1 :
      begin
        sNome  := 'Maria';
        iIdade := 34;
      end;
      2 :
      begin
        sNome  := 'Kleberson';
        iIdade := 18;
      end;
      3 :
      begin
        sNome  := 'Dona Florinda';
        iIdade := 60;
      end;
      4 :
      begin
        sNome  := 'Bazzinga';
        iIdade := 28;
      end;
      5 :
      begin
        sNome  := 'Fatima';
        iIdade := 40;
      end;
    end;

    WriteLn(Format('Nome: %-15s  Idade: %d',[sNome,iIdade]));
  end;
end;

var
bContinue : Boolean;
sEntrada  : string;
begin
  try
    bContinue := True;

    SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_GREEN OR  BACKGROUND_BLUE);
    repeat
      Writeln('                                                                 ');
      Writeln('/===============================================================\');
      Writeln('| Escolha a opcao:                                              |');
      Writeln('|                                                               |');
      Writeln('| 1) Exemplo simples;                                           |');
      Writeln('| 2) Exemplo de listagem SEM identacao                          |');
      Writeln('| 3) Exemplo de listagem COM identacao                          |');
      Writeln('\===============================================================/');
      Writeln('                                                                 ');
      Write('Digite: ');
      Readln(sEntrada);
      Writeln('                                                                 ');

      if (sEntrada = '1') then
      begin
        ExemploSimples;
        Continue;
      end;

      if (sEntrada = '2') then
      begin
        ExemploListagemSemIdentacao;
        Continue;
      end;

      if (sEntrada = '3') then
      begin
        ExemploListagemComIdentacao;
        Continue;
      end;

      bContinue := False;
    until not (bContinue);
    Write('Fim da execucao!');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Forte abraço!

Classes aninhadas: um uso prático

2011-01-20T16:01:00.002-02:00

Olá!

Há um recurso muito interessante no Object Pascal que é a classe aninhada - nested classes em inglês. É um recurso existente em Java e .NET a tempos.

A grosso modo permite você implementar uma classe dentro de outra. O ganho disso é você conseguir elaborar uma classe "auto-suficiente", protegendo - se for este o caso - as soluções que você desenvolveu.

Bom, indo ao ponto. Desenvolvi a unit abaixo exemplificando a implementação de uma classe aninhada. Para efeitos didáticos o objetivo do programa é o seguinte:

Implementar um liberador de objetos.

Para isso, desenvolvi a classe TLiberador que é descendente de TObject. Ela implementa, então, a classe TLiberadorThread que por sua vez descende de TThread.

Logo, TLiberadorThread só é visível pela classe TLiberador e é isso que é o pulo do gato.

Compartilho da opinião que a legibilidade do código fica inicialmente comprometida mas creio ser uma questão de adaptação.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SyncObjs, Contnrs, ComCtrls, Unt_MemoryMonitor,
  Unt_RotinasLog;

type

  {
    Classe responsável por liberar objetos
  }
  TLiberador = class(TObject)
  strict private type {<== Declaração de tipo dentro da classe!}
    TLiberadorThread = class(TThread)
    strict private
      FQueue: TObjectQueue;
      FCritical: TCriticalSection;
      procedure WhenTerminate(Sender: TObject);
    protected
      procedure Execute; override;
    public
      procedure AfterConstruction; override;
      procedure BeforeDestruction; override;
      procedure AddObject(poObject: TObject);
    end;
  strict private
    FDetail: TLiberadorThread; {<== Instância da classe aninhadaS}
  public
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
    procedure AddObject(poObject: TObject);
  end;

  {
    Formulário com um botão que adiciona um objeto na pilha
  }
  TForm2 = class(TForm)
    Button1: TButton;
    g4MemoryMonitor1: Tg4MemoryMonitor;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    FTeste: TLiberador;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TLiberador.TLiberadorThread }

procedure TLiberador.TLiberadorThread.AddObject(poObject: TObject);
begin
  Self.FCritical.Enter;
  try
    Self.FQueue.Push(poObject);
  finally
    Self.FCritical.Release;
  end;
end;

procedure TLiberador.TLiberadorThread.AfterConstruction;
begin
  inherited;
  Self.OnTerminate := Self.WhenTerminate;
  Self.FQueue := TObjectQueue.Create;
  Self.FCritical := TCriticalSection.Create;
end;

procedure TLiberador.TLiberadorThread.BeforeDestruction;
begin
  inherited;
  Self.FQueue.Free;
  Self.FCritical.Free;
end;

procedure TLiberador.TLiberadorThread.Execute;
begin
  inherited;
  NameThreadForDebugging(AnsiString(Self.ToString));
  IdentificarPID(Self.ToString);
  while not (Self.Terminated) do
  begin
    Sleep(10);
    if (Self.FQueue.Count > 0) then
    begin
      Self.FQueue.Pop.Free;
    end;
  end;
end;

procedure TLiberador.TLiberadorThread.WhenTerminate(Sender: TObject);
begin
  Sleep(10);
end;

{ TLiberador }

procedure TLiberador.AddObject(poObject: TObject);
begin
  Self.FDetail.AddObject(poObject);
end;

procedure TLiberador.AfterConstruction;
begin
  inherited;
  Self.FDetail := TLiberadorThread.Create(True);
  Self.FDetail.Start;
end;

procedure TLiberador.BeforeDestruction;
begin
  inherited;
  Self.FDetail.Terminate;
  if not (Self.FDetail.Suspended) then
    Self.FDetail.WaitFor;
  Self.FDetail.Free;
end;

{ TForm2 }

procedure TForm2.Button1Click(Sender: TObject);
begin
  Self.FTeste.AddObject(TObject.Create);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Self.g4MemoryMonitor1.Active := True;
  Self.FTeste := TLiberador.Create;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  Self.FTeste.Free;
end;

end.

Existem outras novidades que talvez os programadores Delphi da "old school" não conheçam (a começar por mim). Dê uma olhada neste link: http://edn.embarcadero.com/article/34324

Sinalizando uma Thread com TEvent

2010-12-16T12:46:00.001-02:00

Olá!

Quando se programa uma thread existe uma questão importante a resolver que é como sinalizar a esta thread que há um processamento a ser feito.

Um bom exemplo disto é aquela thread que encapsula uma pilha de objetos que é alimentada por outra thread, logo ela só "precisa trabalhar" se houver objetos na pilha.

De cara, o código fica como no exemplo abaixo:

procedure TExemploEvent.Execute;
begin
  inherited;
  while not (Self.Terminated) do
  begin
   {$REGION 'Processamento da pilha'}
   //Não é sempre que haverá elementos na pilha
   if (Self.FQueue.Count > 0) then
   begin
     //Processamento da pilha
   end;
   {$ENDREGION}
  end;
end;

O efeito colateral disto é um consumo intenso de CPU, o que obviamente é péssimo. A solução então é colocar um Sleep(10) - evite o Application.ProcessMessages dentro de uma thread. Com isso o código fica assim:

procedure TExemploEvent.Execute;
begin
  inherited;
  while not (Self.Terminated) do
  begin
    //Sleep para aliviar a thread
    Sleep(10);

   {$REGION 'Processamento da pilha'}
   //Não é sempre que haverá elementos na pilha
   if (Self.FQueue.Count > 0) then
   begin
     //Processamento da pilha
   end;
   {$ENDREGION}
  end;
end;

Isso resolve o problema mas cria um desconforto: A thread fica em um loop insano e o Sleep(10) resolve parte do problema. Podemos nos contentar com isso ou fazer algo melhor.

Para isto podemos usar o TEvent, que será usado para sinalizar a Thread que há elementos na fila. Veja como fica o Execute neste novo contexto:

procedure TExemploEvent.Execute;
var
eEvent : TWaitResult;
begin
  inherited;
  while not (Self.Terminated) do
  begin
    //Esperando sinalização do evento
    eEvent := Self.FEvent.WaitFor(INFINITE);

    case eEvent of
      wrSignaled:
      begin
       {$REGION 'Processamento da pilha'}
       //Não é sempre que haverá elementos na pilha
       if (Self.FQueue.Count > 0) then
       begin
         //Processamento da pilha
       end;
       {$ENDREGION}
      end;

    //...

    end;
end;

Por fim, veja o exemplo completo.

unit Thread;

interface

uses
  Classes, Contnrs, SyncObjs;

type

  TExemploEvent = class(TThread)
  private
    FQueue: TObjectQueue;
    FEvent: TEvent;
    FCritical: TCriticalSection;
  public
    procedure AfterConstruction; override;
    procedure BeforeDesttruction; override;
    procedure Execute; override;
    procedure AdicionarItem(poItem: TObject);
  end;

implementation

uses
  SysUtils;

{ TExemploEvent }

//É através deste método que outras threads colocarão objetos na pilha
procedure TExemploEvent.AdicionarItem(poItem: TObject);
begin
  //Entra na seção crítica
  Self.FCritical.Enter;
  try
    //Coloca o item na pilha
    Self.FQueue.Push(poItem);

    //Sinaliza o TEvent
    Self.FEvent.SetEvent;
  finally
    //Sai da seção crítica
    Self.FCritical.Release;
  end;
end;

procedure TExemploEvent.AfterConstruction;
begin
  inherited;
  //Seção crítica para acessar a fila de objetos
  Self.FCritical := TCriticalSection.Create;

  //Fila de objetos que serão processados
  Self.FQueue    := TObjectQueue.Create;

  //Sinalizador
  Self.FEvent    := TEvent.Create(nil,False,True,'_exemploevent');
  //                              --- ----- ----  -------------
  //                               |    |     |         |
  //                               |    |     |         \............> Nome único para a instância, do contrário, será usado o já existente
  //                               |    |     \......................> Podemos já criar SINALIZADO
  //                               |    \............................> Indica se será resetado MANUALMENTE ou AUTOMATICAMENTE
  //                               \.................................> Atributos, nil basta na maioria das necessidades
end;

procedure TExemploEvent.BeforeDesttruction;
begin
  inherited;
  Self.FCritical.Free;
  Self.FQueue.Free;
  Self.FEvent.Free;
end;

procedure TExemploEvent.Execute;
var
eEvent : TWaitResult;
begin
  inherited;
  while not (Self.Terminated) do
  begin
    //Esperando sinalização do evento
    eEvent := Self.FEvent.WaitFor(INFINITE);

    case eEvent of
      //Processa a pilha somente se o evento foi sinalizado
      wrSignaled:
      begin
       {$REGION 'Processamento da pilha'}
       //Não é sempre que haverá elementos na pilha
       if (Self.FQueue.Count > 0) then
       begin
         //Entra na seção crítica
         Self.FCritical.Enter;
         try
           while (Self.FQueue.Count > 0) do
           begin
             Sleep(10);
             //Para efeitos de exemplificação, esta apenas livrando o objeto
             Self.FQueue.Pop.Free;
           end;
         finally
           //Sai da seção crítica
           Self.FCritical.Release;
         end;
       end;
       {$ENDREGION}
      end;

      wrTimeout:
      begin
        //Excedeu o tempo de espera
        Continue;
      end;

      wrAbandoned:
      begin
        Abort;
      end;

      wrError:
      begin
        Abort;
      end;

      wrIOCompletion:
      begin
        Abort;
      end;
    end;
  end;
end;

end.

E é isso ai.

SQL, Formatação de Data e o Sistema Operacional

2010-11-30T10:43:00.001-02:00

Quero hoje compartilhar uma solução bastante interessante, viabilizada pelo nosso colega Rafael Farias.

Problema:

A executar uma consulta SQL que envolva data, se o sistema operacional estiver em inglês acontece uma mágica e o mês vira dia e o dia vira mês.

Solução:

Como utilizamos os componentes da DevArt (que aliás aproveito para indicar) o Farias teve a feliz idéia de fazer uma classe descendente do TMSConnection sendo que logo após a conexão efetiva com o banco de dados ele definiu o formato da data da sessão no servidor de banco de dados baseado na configuração de data do sistema operacional do cliente.

O "pulo do gato" foi converter a string '03/02/01' para TDateTime e verificar qual número "virou" dia e dai por diante.

Bom, sem mais delongas, mostro abaixo a unit desenvolvida:

unit Unt_G4Connection;

interface

uses
  Classes, Windows, SysUtils, db, MSAccess;

type

  Tg4Connection = class(TMSConnection)
  protected
    procedure SetDateFormat;
    procedure DoConnect; override;
  end;

implementation

{ Tg4Connection }

procedure Tg4Connection.DoConnect;
begin
  inherited;
  Self.SetDateFormat;
end;

procedure Tg4Connection.SetDateFormat;
var
dDecode    : TDateTime;  //Buffer para a data convertida
sFormat    : string;     //Buffer para a instrução SQL SET DATEFORMAT
wDay       : Word;       //Buffer para o DIA
wMonth     : Word;       //Buffer para o MÊS
wYear      : Word;       //Buffer para o ANO
qSetFormat : TMSQuery;   //Executor da instrução SQL
begin
  sFormat := 'SET DATEFORMAT ';
  wDay := 0;
  wMonth := 0;
  wYear := 0;
  qSetFormat := nil;

  try
    qSetFormat := TMSQuery.Create(nil);
    qSetFormat.Connection := Self;

    dDecode := StrToDateTime('03/02/01');
    DecodeDate(dDecode, wYear, wMonth, wDay);

    case wDay of
    3: if wMonth = 2 then
         sFormat := sFormat +'DMY'
       else
         sFormat := sFormat +'DYM';
    2: if wMonth = 3 then
         sFormat := sFormat +'MDY'
       else
         sFormat := sFormat +'YDM';
    1: if wMonth = 3 then
         sFormat := sFormat +'MYD'
       else
         sFormat := sFormat +'YMD'
    end;

    qSetFormat.SQL.Clear;
    qSetFormat.SQL.Add(sFormat);
    qSetFormat.Execute;

  finally
    if Assigned(qSetFormat) then
      qSetFormat.Free;
  end;

end;

end.

Enjoy!

Listagem de códigos de erros do OLE DB

2010-11-16T10:50:00.000-02:00

Acredito que lhe seja útil um dia.

A listagem chegou a mim pelo meu colega @R_Farias .

Frequently Encountered HRESULTS from OLE
This list was compiled from the Winerror.h file, which ships with the Win32 SDK. This list is actually a subset of a much more complete set of OLE errors. However, this is the set most likely to be raised by OLE or OLE-DB to ADO.


   Unsigned     Signed
     HRESULT   Hex HRESULT                    Description
   ----------  -----------  ----------------------------------------------
   0x80000001  -2147483647  Not implemented
   0x80000002  -2147483646  Ran out of memory
   0x80000003  -2147483645  One or more arguments are invalid
   0x80000004  -2147483644  No such interface supported
   0x80000005  -2147483643  Invalid pointer
   0x80000006  -2147483642  Invalid handle
   0x80000007  -2147483641  Operation aborted
   0x80000008  -2147483640  Unspecified error
   0x80000009  -2147483639  General access denied error
   0x8000000A  -2147483638  The data necessary to complete this operation
                            is not yet available.
   0x80004001  -2147467263  Not implemented
   0x80004002  -2147467262  No such interface supported
   0x80004003  -2147467261  Invalid pointer
   0x80004004  -2147467260  Operation aborted
   0x80004005  -2147467259  Unspecified error
   0x80004006  -2147467258  Thread local storage failure
   0x80004007  -2147467257  Get shared memory allocator failure
   0x80004008  -2147467256  Get memory allocator failure
   0x80004009  -2147467255  Unable to initialize class cache
   0x8000400A  -2147467254  Unable to initialize RPC services
   0x8000400B  -2147467253  Cannot set thread local storage channel control
   0x8000400C  -2147467252  Could not allocate thread local storage channel
                            control
   0x8000400D  -2147467251  The user supplied memory allocator is
                            unacceptable
   0x8000400E  -2147467250  The OLE service mutex already exists
   0x8000400F  -2147467249  The OLE service file mapping already exists
   0x80004010  -2147467248  Unable to map view of file for OLE service
   0x80004011  -2147467247  Failure attempting to launch OLE service
   0x80004012  -2147467246  There was an attempt to call CoInitialize a
                            second time while single threaded
   0x80004013  -2147467245  A Remote activation was necessary but was not
                            allowed
   0x80004014  -2147467244  A Remote activation was necessary but the
                            server name provided was invalid
   0x80004015  -2147467243  The class is configured to run as a security
                            id different from the caller
   0x80004016  -2147467242  Use of Ole1 services requiring DDE windows is
                            disabled
   0x80004017  -2147467241  A RunAs specification must be
                            \ or simply 
   0x80004018  -2147467240  The server process could not be started.  The
                            pathname may be incorrect.
   0x80004019  -2147467239  The server process could not be started as the
                            configured identity.  The pathname may be
                            incorrect or unavailable.
   0x8000401A  -2147467238  The server process could not be started because
                            the configured identity is incorrect.  Check
                            the username and password.
   0x8000401B  -2147467237  The client is not allowed to launch this
                            server.
   0x8000401C  -2147467236  The service providing this server could not
                            be started.
   0x8000401D  -2147467235  This computer was unable to communicate with
                            the computer providing the server.
   0x8000401E  -2147467234  The server did not respond after being
                            launched.
   0x8000401F  -2147467233  The registration information for this server
                            is inconsistent or incomplete.
   0x80004020  -2147467232  The registration information for this interface
                            is inconsistent or incomplete.
   0x80004021  -2147467231  The operation attempted is not supported.
   0x8000FFFF  -2147418113  Catastrophic failure
   0x80070005  -2147024891  General access denied error
   0x80070006  -2147024890  Invalid handle
   0x8007000E  -2147024882  Ran out of memory
   0x80070057  -2147024809  One or more arguments are invalid


Debugging HRESULTS from OLE-DB
Some OLE-DB error messages, such as 80040e37 (Table 'x' does not exist) are
fairly obvious whether using ADO or OLE-DB. Others such as 0x80040E06 (Invalid chapter) are not as clear to an ADO developer. You can use the ITest/ISpy tools that ship with the OLE-DB SDK to spy on the OLE-DB calls. ITest/ISpy are similar to ODBC Spy and you can use them for complex debugging in ADO/DB applications.

This list was compiled from the Oledberr.h file, which ships with the OLE-DB SDK:

   Unsigned     Signed
     HRESULT   Hex HRESULT                    Description
   ----------  -----------  ----------------------------------------------
   0x80040E00  -2147217920  Invalid accessor
   0x80040E01  -2147217919  Creating another row would have exceeded the
                            total number of active rows supported by the
                            rowset
   0x80040E02  -2147217918  Unable to write with a read-only accessor
   0x80040E03  -2147217917  Given values violate the database schema
   0x80040E04  -2147217916  Invalid row handle
   0x80040E05  -2147217915  An object was open
   0x80040E06  -2147217914  Invalid chapter
   0x80040E07  -2147217913  A literal value in the command could not be                                   converted to the correct type due to a reason
                            other than data overflow
   0x80040E08  -2147217912  Invalid binding info
   0x80040E09  -2147217911  Permission denied
   0x80040E0A  -2147217910  Specified column does not contain bookmarks or
                            chapters
   0x80040E0B  -2147217909  Some cost limits were rejected
   0x80040E0C  -2147217908  No command has been set for the command object
   0x80040E0D  -2147217907  Unable to find a query plan within the given
                            cost limit
   0x80040E0E  -2147217906  Invalid bookmark
   0x80040E0F  -2147217905  Invalid lock mode
   0x80040E10  -2147217904  No value given for one or more required
                            parameters
   0x80040E11  -2147217903  Invalid column ID
   0x80040E12  -2147217902  Invalid ratio
   0x80040E13  -2147217901  Invalid value
   0x80040E14  -2147217900  The command contained one or more errors
   0x80040E15  -2147217899  The executing command cannot be canceled
   0x80040E16  -2147217898  The provider does not support the specified
                            dialect
   0x80040E17  -2147217897  A data source with the specified name already
                            exists
   0x80040E18  -2147217896  The rowset was builtover a live data feed and
                            cannot be restarted
   0x80040E19  -2147217895  No key matching the described characteristics
                            could be found within the current range
   0x80040E1A  -2147217894  Ownership of this tree has been given to the
                            provider
   0x80040E1B  -2147217893  The provider is unable to determine identity
                            for newly inserted rows
   0x80040E1C  -2147217892  No nonzero weights specified for any goals
                            supported, so goal was rejected; current goal
                            was not changed
   0x80040E1D  -2147217891  Requested conversion is not supported
   0x80040E1E  -2147217890  lRowsOffset would position you past either end
                            of the rowset, regardless of the cRows value
                            specified; cRowsObtained is 0
   0x80040E1F  -2147217889  Information was requested for a query, and the
                            query was not set
   0x80040E20  -2147217888  Provider called a method from IRowsetNotify in
                            the consumer and NT
   0x80040E21  -2147217887  Errors occurred
   0x80040E22  -2147217886  A non-NULL controlling IUnknown was specified
                            and the object being created does not support
                            aggregation
   0x80040E23  -2147217885  A given HROW referred to a hard- or soft-
                            deleted row
   0x80040E24  -2147217884  The rowset does not support fetching backwards
   0x80040E25  -2147217883  All HROWs must be released before new ones can
                            be obtained
   0x80040E26  -2147217882  One of the specified storage flags was not
                            supported
   0x80040E27  -2147217881  The comparison operator was invalid

   0x80040E28  -2147217880  The specified status flag was neither
                            DBCOLUMNSTATUS_OK nor DBCOLUMNSTATUS_ISNULL
   0x80040E29  -2147217879  The rowset cannot scroll backwards
   0x80040E2A  -2147217878  Invalid region handle
   0x80040E2B  -2147217877  The specified set of rows was not contiguous to
                            or overlapping the rows in the specified watch
                            region
   0x80040E2C  -2147217876  A transition from ALL* to MOVE* or EXTEND* was
                            specified
   0x80040E2D  -2147217875  The specified region is not a proper subregion
                            of the region identified by the given watch
                            region handle
   0x80040E2E  -2147217874  The provider does not support multi-statement
                            commands
   0x80040E2F  -2147217873  A specified value violated the integrity
                            constraints for a column or table
   0x80040E30  -2147217872  The given type name was unrecognized
   0x80040E31  -2147217871  Execution aborted because a resource limit has
                            been reached; no results have been returned
   0x80040E32  -2147217870  Cannot clone a command object whose command
                            tree contains a rowset or rowsets
   0x80040E33  -2147217869  Cannot represent the current tree as text
   0x80040E34  -2147217868  The specified index already exists
   0x80040E35  -2147217867  The specified index does not exist
   0x80040E36  -2147217866  The specified index was in use
   0x80040E37  -2147217865  The specified table does not exist
   0x80040E38  -2147217864  The rowset was using optimistic concurrency and
                            the value of a column has been changed since
                            it was last read
   0x80040E39  -2147217863  Errors were detected during the copy
   0x80040E3A  -2147217862  A specified precision was invalid
   0x80040E3B  -2147217861  A specified scale was invalid
   0x80040E3C  -2147217860  Invalid table ID
   0x80040E3D  -2147217859  A specified type was invalid
   0x80040E3E  -2147217858  A column ID was occurred more than once in the
                            specification
   0x80040E3F  -2147217857  The specified table already exists
   0x80040E40  -2147217856  The specified table was in use
   0x80040E41  -2147217855  The specified locale ID was not supported
   0x80040E42  -2147217854  The specified record number is invalid
   0x80040E43  -2147217853  Although the bookmark was validly formed, no
                            row could be found to match it
   0x80040E44  -2147217852  The value of a property was invalid
   0x80040E45  -2147217851  The rowset was not chaptered
   0x80040E46  -2147217850  Invalid accessor
   0x80040E47  -2147217849  Invalid storage flags
   0x80040E48  -2147217848  By-ref accessors are not supported by this
                            provider
   0x80040E49  -2147217847  Null accessors are not supported by this
                            provider
   0x80040E4A  -2147217846  The command was not prepared
   0x80040E4B  -2147217845  The specified accessor was not a parameter
                            accessor
   0x80040E4C  -2147217844  The given accessor was write-only
   0x80040E4D  -2147217843  Authentication failed
   0x80040E4E  -2147217842  The change was canceled during notification; no
                            columns are changed
   0x80040E4F  -2147217841  The rowset was single-chaptered and the chapter
                            was not released
   0x80040E50  -2147217840  Invalid source handle
   0x80040E51  -2147217839  The provider cannot derive parameter info and
                            SetParameterInfo has not been called
   0x80040E52  -2147217838  The data source object is already initialized
   0x80040E53  -2147217837  The provider does not support this method
   0x80040E54  -2147217836  The number of rows with pending changes has
                            exceeded the set limit
   0x80040E55  -2147217835  The specified column did not exist
   0x80040E56  -2147217834  There are pending changes on a row with a
                            reference count of zero
   0x80040E57  -2147217833  A literal value in the command overflowed the
                            range of the type of the associated column
   0x80040E58  -2147217832  The supplied HRESULT was invalid
   0x80040E59  -2147217831  The supplied LookupID was invalid
   0x80040E5A  -2147217830  The supplied DynamicErrorID was invalid
   0x80040E5B  -2147217829  Unable to get visible data for a newly-inserted
                            row that has not yet been updated
   0x80040E5C  -2147217828  Invalid conversion flag
   0x80040E5D  -2147217827  The given parameter name was unrecognized
   0x80040E5E  -2147217826  Multiple storage objects can not be open
                            simultaneously
   0x80040E5F  -2147217825  The requested filter could not be opened
   0x80040E60  -2147217824  The requested order could not be opened
   0x80040E61  -2147217823  Bad tuple
   0x80040E62  -2147217822  Bad coordinate
   0x80040E63  -2147217821  The given axis was not valid for this Dataset
   0x80040E64  -2147217820  One or more of the given cell ordinals was invalid
   0x80040E65  -2147217819  The supplied columnID was invalid
   0x80040E67  -2147217817  The supplied command does not have a DBID (Note:                             DBID is SQL shorthand for Database ID.)
   0x80040E68  -2147217816  The supplied DBID already exists
   0x80040E69  -2147217815  The maximum number of Sessions supported by the
                            provider has already been created. The consumer
                            must release one or more currently held Sessions
                            before obtaining a new Session object
   0x80040E72  -2147217806  The index ID is invalid
   0x80040E73  -2147217805  The initialization string does not conform
                            to specification
   0x80040E74  -2147217804  The OLE DB root enumerator did not return any
                            providers that matched an of the SOURCES_TYPEs
                            requested
   0x80040E75  -2147217803  The initialization string specifies a provider
                            which does not match the currently active
                            provider.
   0x80040E76  -2147217802  The specified DBID is invalid
   0x80040E6A  -2147217814  Invalid trustee value
   0x80040E6B  -2147217813  The trustee is not for the current data source
   0x80040E6C  -2147217812  The trustee does not support memberships/ 
                            collections
   0x80040E6D  -2147217811  The object is invalid or unknown to the provider
   0x80040E6E  -2147217810  No owner exists for the object
   0x80040E6F  -2147217809  The access entry list supplied is invalid
   0x80040E70  -2147217808  The trustee supplied as owner is invalid or
                            unknown to the provider
   0x80040E71  -2147217807  The permission supplied in the access entry list
                            is invalid
   0x80040E77  -2147217801  The ConstraintType was invalid or not supported
                            by the provider.
   0x80040E78  -2147217800  The ConstraintType was not CONSTRAINTTYPE_FOREIGNKEY
                            and cForeignKeyColumns was not zero
   
   0x80040E79  -2147217799  The Deferrability was invalid or the value was not
                            supported by the provider
   0x80040E80  -2147217792  The MatchType was invalid or the value was not
                            supported by the provider
   0x80040E8A  -2147217782  The UpdateRule or DeleteRule was invalid or the
                            value was not supported by the provider
   0x80040E8B  -2147217781  The pConstraintID did not exist in the data source
   0x80040E8C  -2147217780  The dwFlags was invalid
   0x80040E8D  -2147217779  The rguidColumnType pointed to a GUID that does not
                            match the object type of this column or this column
                            was not set
   0x80040E8E  -2147217778  The requested URL was out-of-scope
   0x80040E90  -2147217776  The provider could not drop the object
   0x80040E91  -2147217775  There is no source row
   0x80040E92  -2147217774  The OLE DB object represented by this URL is locked
                            by one or more other processes
   0x80040E93  -2147217773  The client requested an object type that is only
                            valid for a collection 
   0x80040E94  -2147217772  The caller requested write access to a read-only
                            object
   0x80040E95  -2147217771  The provider could not connect to the server for
                            this object
   0x80040E96  -2147217770  The provider could not connect to the server for
                            this object
   0x80040E97  -2147217769  The attempt to bind to the object timed out
   0x80040E98  -2147217768  The provider was unable to create an object at
                            this URL because an object named by this URL
                            already exists
   0x80040E99  -2147217767  The provider could not drop the object
   0x80040E9A  -2147217766  The provider was unable to create an object
                            at this URL because the server was out of
                            physical storage
   0x00040EC0       265920  Fetching requested number of rows would have
                            exceeded total number of active rows supported
                            by the rowset
   0x00040EC1       265921  One or more column types are incompatible;
                            conversion errors will occur during copying
   0x00040EC2       265922  Parameter type information has been overridden
                            by caller
   0x00040EC3       265923  Skipped bookmark for deleted or non-member row
   0x00040EC4       265924  Errors found in validating tree
   0x00040EC5       265925  There are no more rowsets
   0x00040EC6       265926  Reached start or end of rowset or chapter
   0x00040EC7       265927  The provider re-executed the command
   0x00040EC8       265928  Variable data buffer full
   0x00040EC9       265929  There are no more results
   0x00040ECA       265930  Server cannot release or downgrade a lock until
                            the end of the transaction
   0x00040ECB       265931  Specified weight was not supported or exceeded
                            the supported limit and was set to 0 or the
                            supported limit
   0x00040ECC       265932  Consumer is uninterested in receiving further
                            notification calls for this reason
   0x00040ECD       265933  Input dialect was ignored and text was returned
                            in different dialect
   0x00040ECE       265934  Consumer is uninterested in receiving further
                            notification calls for this phase
   0x00040ECF       265935  Consumer is uninterested in receiving further
                            notification calls for this reason
   0x00040ED0       265936  The operation is being processed asynchronously
   0x00040ED1       265937  In order to reposition to the start of the
                            rowset, the provider had to reexecute the
                            query; either the order of the columns changed
                            or columns were added to or removed from the
                            rowset
   0x00040ED2       265938  The method had some errors; errors have been
                            returned in the error array
   0x00040ED3       265939  Invalid row handle
   0x00040ED4       265940  A given HROW referred to a hard-deleted row
    
   
   0x00040ED5       265941  The provider was unable to keep track of all
                            the changes; the client must refetch the data
                            associated with the watch region using another
                            method
   0x00040ED6       265942  Execution stopped because a resource limit has
                            been reached; results obtained so far have been
                            returned but execution cannot be resumed
   0x00040ED7       265943  The bind failed because the provider was unable
                            to satisfy all of the bind flags or properties
   0x00040ED8       265944  A lock was upgraded from the value specified
   0x00040ED9       265945  One or more properties were changed as allowed
                            by provider
   0x00040EDA       265946  Errors occurred
   0x00040EDB       265947  A specified parameter was invalid
   0x00040EDC       265948  Updating this row caused more than one row to
                            be updated in the data source
   0x00040EDD       265949  The row has no row-specific columns

Compartilhando um PDF sobre programação multi-thread em Delphi

2010-11-13T11:29:00.001-02:00

Olá. A tempos, sempre que preciso de algo a mais quando se trata de Thread e assuntos correlatos, sempre me deparo com o PDF abaixo.

Como considero bem completo, compartilho com a comunidade.

Um forte abraço!

Usando o To-Do List do Delphi

2010-10-04T22:09:00.001-03:00

Olá!

Muitas vezes, enquanto estamos codificando, por um motivo ou outro, postergamos a implementação de uma rotina para um momento mais oportuno.

Alguns de nós simplesmente faz um comentário, como no exemplo abaixo:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if (1 = 1) then
  begin
    ShowMessage('O mundo continua no lugar...');
  end else
  begin
    //Criar um tratamento especial para esta situação
  end;
end;

Parece óbvio que, dependendo do tamanho do projeto, este comentário irá se perder e o desenvolvedor só se dará conta da situação no dia que 1 for diferente de 1.

Por isso aconselho fortemente o uso do To-Do List que pode ser acessado a partir do menu View/To-Do List. Esta facilidade lista tudo que ficou pendente no código, e com um simples duplo-clique você chega na região do comentário.

Usando o exemplo acima, poderíamos fazer:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if (1 = 1) then
  begin
    ShowMessage('O mundo continua no lugar...');
  end else
  begin
    {TODO 1 -oMário Guedes -cBUG: Criar um tratamento especial para esta situação}
  end;
end;

Perceba que bastaria colocoar simplesmente "TODO: [Texto]" mas o exemplo que estamos vendo esta atribuindo uma prioridade (1), um dono (-o) e uma categoria (-c), o que será muito útil dentro da equipe.

Clicando com o botão direto no quadro To-Do List a gente tem opções interessantes que valem a pena ser exploradas (veja figura).

Vale a pena citar, que ao resolver a pendência, temos duas escolhas: deletar a entrada no To-Do List ou marcar como DONE.

Agradeço o @wanc por me mostrar as chaves, que até então eu não conhecia.

Lembro também que o GExperts possui um To-Do List com algumas características a mais.

Um forte abraço!

Mutex e Serviço do Windows

2010-08-10T17:35:00.001-03:00

Assim como arquivo mapeado (http://migre.me/13M8B) a forma de se criar um Mutex entre um aplicativo GUI e um serviço do Windows é incluir a palavra 'Session\' no parâmetro lpName do CreateMutex.

Post rápido para não passar batido, perdoe-me.

Terminar uma thread "por fora"

2010-08-04T10:36:00.001-03:00

Olá amigons!

Precisei finalizar uma thread que não era minha e fuçando no pai Google me deparo com o seguinte link:

http://www.chmod.com.br/vb/showthread.php?8154-Delphi-SuspendThread

Tirando a irreverência do texto (para dizer o mínimo) complemento a dica com um código que finaliza um thread:

procedure TForm1.Button6Click(Sender: TObject);
var
hHandle : THandle;
iExit   : Integer;
bRet    : Boolean;
begin
  hHandle := OpenThread(1,True,StrToInt(Self.Edit1.Text));
  bRet := TerminateThread(hHandle,iExit);
  if not (bRet) then
    ShowMessage('Insucesso!')
  else
    ShowMessage('Sucesso!')
end;

É isso ai.

Retornando um código de erro na inicialização do serviço

2010-06-22T18:24:00.001-03:00

Muitas vezes, um serviço do Windows, para subir, precisa de algumas condições como acesso a um banco de dados ou uma conexão socket.

Acontece que muitas vezes um serviço não sobe e você simplesmente fica sem saber o que aconteceu.

Exemplo:

procedure TcsBlendedServerService.ServiceStart(Sender: TService;
  var Started: Boolean);
var
bRet : Boolean;
begin
  try
    try
      bRet := dmNucleo.StartServer;
      Started := bRet;
    except
      on E: Exception do
      begin
        Started := False;
        Self.GerarLog(DescreverException(E),4938403,ctLOGException,rlCritical);
      end;
    end;
  finally

  end;
end;

Caso o serviço não suba, retorna a seguinte tela de erro:

Para melhorar esta situação, a classe TService oferece o ErrCode, veja o exemplo:

procedure TcsBlendedServerService.ServiceStart(Sender: TService;
  var Started: Boolean);
var
bRet : Boolean;
begin
  try
    try
      bRet := dmNucleo.StartServer;
      Started := bRet;

      //Retorno de um código numérico
      if not (Started) then
        Self.ErrCode := 10;
      //---

    except
      on E: Exception do
      begin
        Started := False;
        Self.GerarLog(DescreverException(E),4938403,ctLOGException,rlCritical);
      end;
    end;
  finally

  end;
end;

Neste caso aparece a tela abaixo:

Não é lá essas coisas mas ajuda.

AfterConstruction & BeforeDestruction

2010-06-08T20:54:00.001-03:00

Existe uma opção à reescrever o constructor e o destructor da sua classe.

É implementar na sua classe os métodos AfterConstruction e BeforeConstruction, como no exemplo abaixo:

TMyClasst = class(TObject)
public
  procedure AfterConstruction; override;
  procedure BeforeDestruction; override;
end;

Bom, é isso.

Mais sobre Open Tools API

2010-05-26T12:51:00.002-03:00

Um ótimo link sobre o assunto:

http://www.mustangpeak.net/opentoolsape.htm

Refactoring

2010-05-20T14:26:00.000-03:00

Uma ótima leitura sobre o assunto:

http://conferences.embarcadero.com/article/32128

Crie seu próprio DataSet

2010-05-04T18:39:00.000-03:00

Eu tentei mas não consegui. :(

De qualquer forma a leitura inicial é:

http://www.delphi3000.com/articles/article_3420.asp
http://www.delphi3000.com/articles/article_3421.asp

http://cc.embarcadero.com/Item.aspx?id=14312

Faça seu próprio Wizard\Expert

2010-04-28T19:21:00.001-03:00

Amigo, acredito que você queira dar uma turbinada no seu Delphi, agregando funcionalidades específicas ao seu dia a dia.

Isso é possível com a Open Tools API!

Veja esses links:

Introdução:
http://www.techtips.com.br/programacao/delphi/experts/escrevendo-um-expert-para-a-ide-do-delphi/

Exemplos (Sub pasta OTA Open Tools API):
http://edn.embarcadero.com/br/article/40232

Artigos na Clube Delphi (Posts Fechados - Por questão de ética não irei compartilhar os arquivos)

http://www.devmedia.com.br/post-13042-Artigo-Clube-Delphi-Edicao-23-Open-Tools-API.html

http://www.devmedia.com.br/post-12653-Artigo-Clube-Delphi--70-Open-Tools-API.html

http://www.devmedia.com.br/post-11545-Artigo-Clube-Delphi-71-Open-Tools-API.html

http://www.devmedia.com.br/post-917-Criando-plugins-para-o-Delphi.html

http://www.devmedia.com.br/post-14557-Artigo-Clube-Delphi-Edicao-27-O-Poder-dos-Wizards.html

Bom, o assunto não é fácil mas é gratificante.

Veja o que eu consegui fazer com os conhecimento adquirido:

Integração entre o Delphi e o SVN

2010-04-20T11:29:00.001-03:00

Olá!

Descobri que o Tortoise oferece um objeto COM possibilitando que o Delphi, por exemplo, levante informações sobre um determinado arquivo.

http://tortoisesvn.net/docs/nightly/TortoiseSVN_en/tsvn-subwcrev-com-interface.html

Veja como ficou meu código:

procedure TG4GetInfoSVN.GetInfoSVN;
var
vSvnObject : Variant;     //Buffer para a criação do objeto OLE
lModulo    : IOTAModule;  //Serviço de módulo
begin
  try
    vSvnObject := CreateOleObject('SubWCRev.object');

    lModulo := (BorlandIDEServices as IOTAModuleServices).CurrentModule;

    if (Assigned(lModulo)) then
    begin
      vSvnObject.GetWcinfo(lModulo.FileName,1,1);
      if (vSvnObject.IsSVNItem) then
      begin
        fGetInfoSVN := TfGetInfoSVN.Create(Application);
        fGetInfoSVN.SetFileName(lModulo.FileName);

        fGetInfoSVN.AddInfo('URL',vSvnObject.URL);
        fGetInfoSVN.AddInfo('Autor',vSvnObject.Author);
        fGetInfoSVN.AddInfo('Revisão',vSvnObject.Revision);
        fGetInfoSVN.AddInfo('Mínima',vSvnObject.MinRev);
        fGetInfoSVN.AddInfo('Máxima',vSvnObject.MaxRev);
        fGetInfoSVN.AddInfo('Data',vSvnObject.Date);
        fGetInfoSVN.AddInfo('Modificado',vSvnObject.HasModifications);

        if (vSvnObject.IsLocked) then
        begin
          fGetInfoSVN.AddInfo('Bloqueado em',vSvnObject.LockCreationDate);
          fGetInfoSVN.AddInfo('Bloqueado por',vSvnObject.LockOwner);
          fGetInfoSVN.AddInfo('Motivo',vSvnObject.LockComment);
        end;

        fGetInfoSVN.ShowModal;
        fGetInfoSVN.Free;
        fGetInfoSVN := nil;
      end else
      begin
        MessageBox(Application.Handle,PWideChar(Format('O arquivo [%s] não está no SVN!',[lModulo.FileName])),'Atenção!',MB_OK + MB_ICONERROR);
      end;
    end else
    begin
      MessageBox(Application.Handle,'Não há um arquivo de código ativo','Atenção!',MB_OK + MB_ICONINFORMATION);
    end;
  finally
    vSvnObject := Unassigned;
  end;
end;

Como executar um método pelo Nome

2010-04-12T12:10:00.001-03:00

Olá!

Este é o tipo de dica que a gente acha que nunca vai usar.

:D

Eu uso o KBM para construir sistemas em N Camadas: http://www.components4programmers.com/.

Para a construção de um RPC ( estou indo direto ao ponto, em caso de dúvidas sobre o assunto me contacte ) a sugestão é encadear um monte de IF como no exemplo abaixo:

// Master request processor.
//--------------------------

function TkbmRPCDatabase.ProcessRequest(const Func:string; const ClientIdent:TkbmMWClientIdentity; const Args:array of Variant):Variant;
var
afunc : string;
begin
  Self.GerarLog(Format('Func: [%s]',[Func]), 0001, ctLOGGExpert,rlLow);

  try
    AFunc:=UpperCase(Func);
    if AFunc='TESTE' then
       Result := PerformTESTE(ClientIdent,Args)
    else Result:=inherited ProcessRequest(Func,ClientIdent,Args);
  except
    on E: Exception do
    begin
      Self.GerarLog(DescreverException(E),0001, ctLOGGExpert,rlLow );
      raise;
    end;
  end;
end;

Ou seja, se eu tiver n funções, teria que encadear um if..else que na minha opnião fica asqueroso de se dar manutenção além de obviamente não ser "performático".

A solução definitiva apareceu nesse tópico: http://delphi.about.com/cs/adptips2004/a/bltip0204_3.htm

Note o seguinte: O seu método tem que estar na parte published da sua classe. Em outras sessões não rola.

Veja como ficou o código:

// Master request processor.
//--------------------------

function TkbmRPC_CSAS.ProcessRequest(const Func:string; const ClientIdent:TkbmMWClientIdentity; const Args:array of Variant):Variant;
var
sFunc    : string;
rRoutine : TMethod;
_perform : TPerformFunction;
begin
  Self.GerarLog(Format('Executando: [%s] - [%s]',[Func,ClientIdent.RemoteLocation]),322382429,ctLOGInformation,rlMiddle);

  sFunc := Format('Perform%s',[Func]);
  rRoutine.Data := Pointer(Self);
  rRoutine.Code := Self.MethodAddress(sFunc);

  if (Assigned(rRoutine.Code)) then
  begin
    _perform := TPerformFunction(rRoutine);
    Result := _perform(ClientIdent,Args);
  end else
  begin
    inherited ProcessRequest(Func,ClientIdent,Args);
  end;

end;

Para isso tudo funcionar, tive que criar um tipo especial:

interface

uses
  kbmMWSecurity;

type

{$M+}

  ///Usado para permitir uma chamada dinâmica às funções dos RPCs

  TPerformFunction = function(ClientIdent:TkbmMWClientIdentity; const Args:array of Variant): Variant of object;

E é isso ai pe-pessoal.

:)

GRAACC - Doe a sua URL

2010-04-06T12:52:00.000-03:00

Amigos, doe a sua URL para a campanha do GRAACC:

http://www.beingmoredavid.com.br/doeseusite/

Verificando a hierarquia de uma determinada classe

2010-03-30T12:11:00.001-03:00

Eventualmente queremos saber a hierarquia de uma determinada classe.

Eu lanço mão do seguinte algoritmo:

function GetClassHierarchy(poList: TStringList; oClassBase: TClass): Boolean;
var
oClass: TClass;
begin
  Result := False;
  if (Assigned(poList)) then
  begin
    poList.Clear;
    oClass := oClassBase;
    while (Assigned(oClass)) do
    begin
      poList.Insert(0,oClass.ClassName);
      oClass := oClass.ClassParent;
    end;
  end;
end;

Exemplo da utilização:

procedure TForm1.Button9Click(Sender: TObject);
var
slList : TStringList;
begin
  slList := TStringList.Create;
  Unt_RotinasLog.GetClassHierarchy(slList,TSQLQuery);
  Self.Memo1.Lines.Text := slList.Text;
  FreeAndNil(slList);
end;

Resultado para o exemplo acima:

TObject
TPersistent
TComponent
TDataSet
TWideDataSet
TCustomSQLDataSet
TSQLQuery

Show!

T.I. e os Quadrinhos

2010-03-22T09:46:00.002-03:00

Gente, olha que bacana:

http://andre221281.wordpress.com/

Logar consulta SQL com parâmetros

2010-03-18T18:08:00.001-03:00

Olá!

Eventualmente você precisa logar o conteúdo de uma instrução SQL e esbarra nos parâmetros.

Eis uma rotina que pode lhe ser útil:

function SQLParaLog(Consulta: TIBQuery; SalvarComo: string = ''; AreaTransferencia: Boolean = True): string;
var
i   : Integer;
r   : string;
arq : TStringList;
begin
  Result := Consulta.SQL.Text;
  for i := 0 to Pred(Consulta.Params.Count) do
    begin
    case Consulta.Params.Items[i].DataType of
      ftString   : r := QuotedStr(Consulta.Params[i].AsString);
      ftDate     : r := QuotedStr(FormatDateTime('mm/dd/yyyy',Consulta.Params[i].AsDate));
      ftDateTime : r := QuotedStr(FormatDateTime('mm/dd/yyyy hh:nn:ss',Consulta.Params[i].AsDateTime));
      else r := Consulta.Params[i].AsString;
    end;
    Result := StringReplace(Result,':' + Consulta.Params.Items[i].Name,r,[rfReplaceAll,rfIgnoreCase]);
    end;
  if (Length(SalvarComo) > 0) then
    begin
    arq := TStringList.Create;
    arq.Text := Result;
    arq.SaveToFile(SalvarComo);
    FreeAndNil(arq);
    end;
  if (AreaTransferencia) then
    begin
    Clipboard.AsText := Result;
    end;
end;

XMLDoc - Uma excelente alternativa para comentar o seu código fonte

2010-03-17T14:58:00.007-03:00

Olá, tempos atrás, eu e o meu colega Wanc procuramos uma forma efetiva de comentar o código fonte.

Eis que nos surge o XMLDoc.

Basicamente, você usa algumas tags especiais antes do elemento que esta sendo comentado.

Consegui identificar alguns, como no exemplo abaixo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    ///  
    ///  Rotina responsável por inverter uma palavra
    ///    Teste -> etseT
    ///  

    ///  Palavra que será processada///    
    ///  A inversão de uma palavra consiste em escrevê-la de trás para frente
    ///    Respeita a caixa utilizada
    ///  
    ///  
    ///  A rotina carece de melhorias no desempenho
    ///  
    ///  
    ///  Retorna a palavra invertida
    ///  
    ///  
    ///  Caso haja um erro, é dipsrado um 
    ///  
    function InverterFrase(psEntrada: string): string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

function TForm1.InverterFrase(psEntrada: string): string;
begin

end;

end.

Observe que esta função funciona apenas se a unit estiver adicionada ao projeto.

Veja como fica no Help Insigth:

Tratamento de Exceptions

2010-03-16T11:19:00.000-03:00

Alguns links interessantes sobre tratamento de exceção:

http://www.delphi3000.com/articles/article_3308.asp
Mostrando Diálogos Customizados de Exceção e Escrevendo Ocorrência de Exceções no Log de Eventos do Windows

http://www.delphi3000.com/articles/article_3191.asp
Pequeno Framework para Tratamento de Exceções

http://www.delphi3000.com/articles/article_3703.asp
Tratamento Avançado de Exceções para Encontrar Nome do Arquivo Fonte, Pilha de Chamada, etc.

Delphi 2011

2010-03-10T09:46:00.002-03:00

Se alguém souber russo:

http://www.tdelphiblog.com/2010/03/delphi-2011-fulcrum.html

Componentes para interagir com MSN, GTalk e por ai vai...

2010-03-05T16:24:00.000-03:00

A quem interessar possa:

http://www.imcomponents.com/ivc.htm

Essa veio pelo grupo de discussão do Yahoo.

Microsoft SOL

2010-03-03T16:42:00.000-03:00

Se você tem uma pequena empresa, ou, assim como eu, pretende abrir a sua em breve, aproveite:

http://www.microsoftsol.com.br/

Lançamento do FireBird 2.5

2010-02-25T10:33:00.000-03:00

MindTheBird!

Registrando uma extensão de arquivo ao seu programa

2010-02-23T08:55:00.001-03:00

Olá, caso você precise associar uma extensão de arquivo ao seu programa, use o código abaixo:

procedure TdfmCSConfigDB.RegistrarExtensao;
var
  _reg: TRegistry;
begin
  _reg := TRegistry.Create;
  try
    _reg.RootKey := HKEY_CLASSES_ROOT;
    _reg.LazyWrite := False;
    /// ////////////////////////////////////////////////////////////////////////
    _reg.OpenKey('CSConfigDB', True);
    _reg.WriteString('', 'Configurador de Banco do Contact Studio');
    _reg.CloseKey;
    /// /////////////////////////////////////////////////////////////////////////
    _reg.OpenKey('CSConfigDB\shell\open\command', True);
    _reg.WriteString('', ParamStr(0) + ' "%1"');
    _reg.CloseKey;
    /// /////////////////////////////////////////////////////////////////////////
    _reg.OpenKey('CSConfigDB\DefaultIcon', True);
    _reg.WriteString('', ParamStr(0) + ',0');
    _reg.CloseKey;
    /// /////////////////////////////////////////////////////////////////////////
    _reg.OpenKey('.csb', True);
    _reg.WriteString('', 'CSConfigDB');
    _reg.CloseKey;

  finally
    FreeAndNil(_reg);
  end;
end;

Com isso o Windows irá usar o ícone do seu programa para representar o arquivo, como no exemplo abaixo:

No meu caso, fizemos um editor de arquivo INI para guardar as configurações do acesso a banco de dados (SQLConnection). Portanto, ao dar dois cliques, abriu o programa:

Legal?

Nomeação de Thread

2010-02-18T18:11:00.004-02:00

Quando se trabalha com programação multi-thread é bem complicado depurar.

A nomeação de uma thread ajuda, como na figura abaixo:

Essa tarefa no Delphi 2010 ficou facilitada. No método Execute da sua thread, coloque a seguinte linha de código:

procedure TAVFinder.Execute;
begin
inherited;
{$IFDEF VER210}
Self.NameThreadForDebugging(Self.ClassName);
{$ENDIF}
IdentificarPID(Self.ClassName,3);
Self.ProcessarMAP;
_GerarLog(GetCurrentThreadId,Now,sArquivoLog,ctLOGInformation,rlHigh,14,Format('Arquivo MAP - Existe: [%s] Path: [%s] Tempo Processamento: [%s]',[BooleanToString(Self.FExiste,'SIM','NÃO'),Self.FArquivoMAP,Self.FTempoProcessamento]));
while not (Self.Terminated) do
begin
Sleep(10);
end;
end;

Justo?

Tirinha super engraçada!

2010-02-08T09:17:00.002-02:00

Galera, achei muito inteligente e engraçado demais essa tirinha.

Estou compartilhando.

:)

Windows Shell feito em Delphi

2010-01-27T09:45:00.001-02:00

Olha que bacana:

http://delphi.about.com/b/2010/01/25/sharpe-open-source-delphi-windows-shell-replacement.htm?nl=1

Twitter Client em Delphi

2010-01-22T10:09:00.001-02:00

Para você programador Delphi que gosta de twittar!

http://www.andreanolanusse.com/blogpt/radtweet-twitter-desktop-client-desenvolvindo-em-delphi/

TIFF

2010-01-21T11:02:00.002-02:00

Trabalhar com TIFF foi uma necessidade recorrente em uma época da minha vida.

No grupo do Yahoo encontrei a indicação desta suite de componentes:

http://imaginglib.sourceforge.net/

Repare no logotipo deles. :)

ICQ, lembra?

2010-01-20T09:48:00.001-02:00

Lembra?

Leitura interessante:

http://blogs.r7.com/querido-leitor/2010/01/19/icq/

Papel de parede e protetor de tela do Matrix

2010-01-15T09:02:00.001-02:00

Achei bacana e compartilho com você...

http://zmatrix.softonic.com.br/

Como fazer ícone para seus componentes

2010-01-12T11:38:00.003-02:00

Opa!

Estou, enfim, me iniciando na arte de criar componentes. :)

E esbarrei em um problema banal, que era o de criar os ícones para os meus componentes.

Descrevo então, como estou procedendo:

1) Criar o seu pacote;
2) Criar um subdiretório, que conterão as imagens;
3) Criar as imagens de 24X24 com 16 cores;
4) Criar um arquivo RC, como no exemplo abaixo:

TCOMPONENTE1 BITMAP TCOMPONENTE1.BMP
TCOMPONENTE2 BITMAP TCOMPONENTE2.BMP

5) Utilizando o brcc32.exe, gerar o arquivo DCR, podendo-se usar a seguinte linha de comando:

BRCC32.EXE csComponent.rc -focsComponent.dcr

6) Adicionar o arquivo DCR (Delphi Component Resource) como arquivo de recurso, conforme exemplo abaixo:

unit Unt_Install;

interface

uses
Classes;

procedure register;

implementation

{$R .\Images\csComponent.dcr}

uses
Unt_CSConnector, Unt_CSRPCServer, Unt_CSQuery;

procedure register;
begin
RegisterComponents('Exemplo',[TComponente1,TComponente2]);
end;

end.

Uala! Basta compilar e instalar.

Funcionou?

Leis de Murphy

2010-01-11T16:06:00.000-02:00

Murphy, sempre nos acompanhando:

http://opaquio.blogspot.com/2007/11/leis-de-murjphy-057-235-final.html

Imagens para os seu componentes!

2010-01-08T09:55:00.000-02:00

Opa!

Feliz 2010 para você viu? :)

Meu, nesses anos todos nunca fiz um componente útil, só uma brincadeira ou outra.

Agora estou fazendo uma suite completa, olha que legal.

Bom ai chegou o momento de colocar uma imagem, sendo necessário criar o tal arquivo DCR.

Dias pesquisando - pois é, sou uma anta - e me deparo com o XN Resource Editor, que facilita, finalmente a criação do arquivo DCR.

Resolução de uma expressão matemática

2009-12-30T10:29:00.002-02:00

Se você precisar implementar um parser para resolver uma expressão matemática, um ótimo componente você encontra em:

http://www.delphi3000.com/articles/article_4614.asp?SK=

Trata-se do TMathParser.

Thread e a Máscara de Afinidade

2009-12-17T13:12:00.005-02:00

Que perrengue!

Estou tentando melhorar um processo que consome muita CPU. E por estar em um ambiente multi processado optei por direcionar a thread gulosa via SetThreadAffinityMask.

A principio o Windows se encarrega de direcionar o uso do processador para aquel que estiver mais ocioso naquele momento.

Em um servidor com 8 processadores, funciona assim:

00000001 = 1 = Processador nº1 (Concentra no 1º processador)
00000010 = 2 = Processador nº2 (Concentra no 2º processador)
00000011 = 3 = Processador nº1 e nº2 (Balanceia entre o 1º e o 2º)
00000100 = 4 = Processador nº4 (Concentra no 4º processador)
00000101 = 5 = Processador nº1 e nº3 (Balanceia entre o 1º e o 3º)
...
11111111 = 255 = Balanceia entre os 8 processadores

Ou seja, cada bit ligado representa o processador que será usado. Mas usa-se a representação decimal no momento de passar para a função.

Já a função SetProcessAffinityMask define a máscara de afinidade do processo, sendo que as threads herdam esta mascara.

Existe também a função SetThreadIdealProcessor, que indica ao Windows qual o processador preferido para aquela thread, e o Windows irá dar "preferência" a esta thread.

Uma função interessante foi a SetPriorityClass, que permite baixar ou aumentar a prioridade de um processo. O correlato para a thread é a SetThreadPriority.

Função que retorna o processador que está sendo usado no momento:
(Só funciona do Vista para frente e Server 2003 para frente)

interface

function GetCurrentProcessorNumber: DWORD; stdcall;

implementation

function GetCurrentProcessorNumber; external kernel32 name 'GetCurrentProcessorNumber';

http://msdn.microsoft.com/en-us/library/ms683181(VS.85).aspx

Delphi 1

2009-12-09T15:37:00.000-02:00

Achei uma apostila de Delphi 1!

Olhem que legal:

http://docs.google.com/fileview?id=0B2-0qFgCBKnjMDlkYjgwNDktYWU2MC00OWRkLWFiMGQtYmUwYmMzNGJiZWRm&hl=pt_BR

Usando Variáveis de Ambiente no Delphi

2009-12-07T19:10:00.003-02:00

Amigos, aqui na empresa achamos uma boa solução para padronizar a saída dos executáveis e das DCUs dos projetos.

O problema reside no fato de usarmos o SVN para gerenciar os projetos. Gostaríamos que o exe e os DCU ficassem de fora dos diretórios de trabalho.

A solução foi utilizar as Variáveis de Ambiente do Windows, característica pouco explorada pelos programadores.

http://technet.microsoft.com/pt-br/library/cc668471.aspx

Portanto, criamos uma variável de ambiente, DIRBINCS, e no Delphi, em Project\Options\Delphi Compiler e configure os diretórios conforme o exemplo abaixo:

Observe que com a opção Default marcada, as configurações serão usadas nos projetos futuros.

Forte abraço,

Cuidados ao Suspender uma Thread

2009-11-27T16:35:00.004-02:00

Cuidado ao suspender uma Thread!

Em especial se houver seções críticas entre as threads. Ao suspender uma thread que esteja dentro de uma seção crítica, essa seção crítica não será liberada!

Bolei um exemplo sobre o assunto, segue abaixo o pas e o dfm.

unit Unt_Principal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SyncObjs, Buttons, StdCtrls;

type
TMinhaThread = class(TThread)
private
FNome : string;
FLog  : string;
protected
procedure QuandoTerminar(Sender: TObject);
public
constructor Create(psNome: string); reintroduce;
procedure Execute; override;
procedure GerarLog(psLog: string);
procedure GerarLogSincronizado;
end;

TfPrincipal = class(TForm)
btnA: TButton;
btnB: TBitBtn;
btnSuspendA: TButton;
btnSuspendB: TBitBtn;
mmo1: TMemo;
btnTerminateA: TButton;
btnTerminateB: TBitBtn;
btnLiberarSC: TBitBtn;
procedure btnAClick(Sender: TObject);
procedure btnBClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnSuspendAClick(Sender: TObject);
procedure btnSuspendBClick(Sender: TObject);
procedure btnTerminateAClick(Sender: TObject);
procedure btnTerminateBClick(Sender: TObject);
procedure btnLiberarSCClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fPrincipal   : TfPrincipal;
ThreadA      : TMinhaThread;
ThreadB      : TMinhaThread;
SecaoCritica : TCriticalSection;

implementation

{$R *.dfm}

{ TMinhaThread }

constructor TMinhaThread.Create(psNome: string);
begin
inherited Create(True);
Self.FNome := psNome;
Self.OnTerminate := Self.QuandoTerminar;
end;

procedure TMinhaThread.Execute;
begin
inherited;
try
while not (Self.Terminated) do
begin
Sleep(10);
Self.GerarLog(Format('%s vai entrar na seção critica',[Self.FNome]));
SecaoCritica.Enter;
Self.GerarLog(Format('%s entrou na seção critica',[Self.FNome]));
while not (Self.Terminated) do
begin
Sleep(10);
Application.ProcessMessages;
end;
end;
finally
Self.GerarLog(Format('%s vai sair da seção critica',[Self.FNome]));
SecaoCritica.Release;
Self.GerarLog(Format('%s saiu da seção critica',[Self.FNome]));
end;
end;

procedure TMinhaThread.GerarLog(psLog: string);
begin
Self.FLog := psLog;
Self.Synchronize(Self.GerarLogSincronizado);
end;

procedure TMinhaThread.GerarLogSincronizado;
begin
fPrincipal.mmo1.Lines.Add(Self.FLog);
end;

procedure TMinhaThread.QuandoTerminar(Sender: TObject);
begin
Self.GerarLog(Format('%s terminando',[Self.FNome]));
end;

procedure TfPrincipal.btnAClick(Sender: TObject);
begin
ThreadA.Start;
end;

procedure TfPrincipal.btnBClick(Sender: TObject);
begin
ThreadB.Start;
end;

procedure TfPrincipal.btnLiberarSCClick(Sender: TObject);
begin
SecaoCritica.Release;
end;

procedure TfPrincipal.btnSuspendAClick(Sender: TObject);
begin
ThreadA.Suspend;
end;

procedure TfPrincipal.btnSuspendBClick(Sender: TObject);
begin
ThreadB.Suspend;
end;

procedure TfPrincipal.btnTerminateAClick(Sender: TObject);
begin
ThreadA.Terminate;
if not (ThreadA.Suspended) then
ThreadA.WaitFor;
end;

procedure TfPrincipal.btnTerminateBClick(Sender: TObject);
begin
ThreadB.Terminate;
if not (ThreadB.Suspended) then
ThreadB.WaitFor;
end;

procedure TfPrincipal.FormCreate(Sender: TObject);
begin
ThreadA := TMinhaThread.Create('A');
ThreadB := TMinhaThread.Create('B');
SecaoCritica := TCriticalSection.Create;
end;

end.

object fPrincipal: TfPrincipal
Left = 0
Top = 0
Caption = 'Prova de Conceito'
ClientHeight = 217
ClientWidth = 589
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object btnA: TButton
Left = 8
Top = 8
Width = 75
Height = 25
Caption = 'Thread A'
TabOrder = 0
OnClick = btnAClick
end
object btnB: TBitBtn
Left = 8
Top = 55
Width = 75
Height = 25
Caption = 'Thread B'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 1
OnClick = btnBClick
end
object btnSuspendA: TButton
Left = 89
Top = 8
Width = 75
Height = 25
Caption = 'Suspend'
TabOrder = 2
OnClick = btnSuspendAClick
end
object btnSuspendB: TBitBtn
Left = 89
Top = 55
Width = 75
Height = 25
Caption = 'Suspend'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 3
OnClick = btnSuspendBClick
end
object mmo1: TMemo
Left = 260
Top = 8
Width = 321
Height = 185
Lines.Strings = (
'mmo1')
TabOrder = 4
end
object btnTerminateA: TButton
Left = 170
Top = 8
Width = 75
Height = 25
Caption = 'Terminate'
TabOrder = 5
OnClick = btnTerminateAClick
end
object btnTerminateB: TBitBtn
Left = 170
Top = 55
Width = 75
Height = 25
Caption = 'Terminate'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 6
OnClick = btnTerminateBClick
end
object btnLiberarSC: TBitBtn
Left = 8
Top = 104
Width = 237
Height = 25
Caption = 'Liberar SC'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 7
OnClick = btnLiberarSCClick
end
end

Call Stack

2009-11-27T10:10:00.002-02:00

Um ótimo artigo sobre o assunto:

http://www.clevercomponents.com/articles/article012/exwatcher.asp

Hora Legal Brasileira

2009-11-26T19:47:00.001-02:00

Olha que site bacana:

http://pcdsh01.on.br/

Entenda de uma vez por todas esse lance de horário de verão bem como os fusos horários do Brasil!

Decision Cube

2009-11-25T11:50:00.002-02:00

Compartilho, aqui, alguns links interessantes sobre o assunto:

Versão 2.1 no SourceForge:
http://sourceforge.net/projects/fxds

Como usar DC sem BDE:
http://delphi.about.com/gi/dynamic/offsite.htm?zi=1/XJ/Ya&sdn=delphi&cdn=compute&tm=66&gps=154_1706_1148_704&f=00&su=p284.8.150.ip_&tt=14&bt=0&bts=0&zu=http%3A//community.borland.com/article/0%2C1410%2C27848%2C00.html

Como exportar para Excel:
http://www.joaomorais.com.br/pascal/push.php?download=43128523

Reportagem:
http://www.multicomp.com.br/Cont_Default.aspx?idnews=79

Reportagem:
http://www.inf.furb.br/~zamba/artigos/Olap_Template.pdf

TThread - Melhores práticas

2009-11-23T10:35:00.008-02:00

Título alternativo: Três Pratos de Thread para Três Tigres Tristes

Aqui vai alguns conceitos sobre a classe TThread, que compartilho contigo:

Resume ou Start:

O método Resume coloca a thread para funcionar, ou seja, executa o método Execute.
No Delphi 2010 Resume está deprecated, sendo usado o Start.

Suspend:

O método Suspend suspende a thread do ponto em que estiver.

Terminate:

O método Terminate seta a proriedade Terminaded para True, apenas isso... Dentro do Execute é que está o segredo...

WaitFor:

A função WaitFor é que efetivamente aguarda o término da thread. Mas cuidado! Para que funcione corretamente temos que tomar três cuidados, do contrário você esperará eternamente...

Terminated

No Execute, tome cuidado com a variável Terminated, sempre vericando em pontos estratégicos. O exemplo básico é o que segue abaixo... Friso: EXEMPLO BÁSICO:

procedure TMinhaThread.Execute;
begin
try
while not (Self.Terminated) do
begin
Sleep(10);
Application.ProcessMessages;
{...}
{...}

//Ponto estratégico para verificação...
if (Self.Terminated) then
Abort;

{...}
{...}
end;
except
on E: Exception do
begin
{...}
end;
end;
end;

Evento OnTerminate

Você deve setar o evento OnTerminate, senão o WaitFor não retorna...

Cuidado com a thread suspensa!

Se a thread estiver suspensa, o WaitFor também não retorna. O código mais correto para terminar uma thread é o que segue abaixo:

procedure TForm1.Button3Click(Sender: TObject);
var
cRet : Cardinal;
begin
//Manda Terminar....
Self.FThread.Terminate;
//Verifica se a thread não esta suspensa...
if not (Self.FThread.Suspended) then
begin
//Aguarda o término da Thread 
cRet := Self.FThread.WaitFor;
Log(Format('Retornou: [%d]',[cRet]));
end else
begin
Log('Esta suspenso');
end;
//Livra a instância...
Self.FThread.Free;
Self.FThread := nil;
end;

ReturnValue

A função WaitFor retorna um valor Integer... e da onde vem este valor? Da propriedade ReturnValue, que poderá ser setada no Execute.

Abort

Abort, como sabido, gera uma exceção do tipo EAbort, e na minha opnião é a maneira mais apropriada de terminar a execução de um Execute. Veja no trecho de código acima.

Syncronize

Syncronize executa um método pela thread principal. Na minha opnião só é válido em aplicativos GUI (com interface gráfica). Fora desta situação, dê preferência para TCriticalSection.

Por ora é isso. Existem outros aspectos mas acho esse os mais importantes.

Aproveito para compartilhar um PDF que a anos me ajuda a enfrentar as treads:

http://docs.google.com/fileview?id=0B2-0qFgCBKnjNmJhZjg2NDktYjIyOS00ODA0LTk0MjgtZGFhZDJiYzhkODJm&hl=pt_BR

Uma outra leitura interessante sobre o assunto:

http://balaiotecnologico.blogspot.com/search?q=thread

Como debugar um applet para o Painel de Controle (CPL)

2009-11-19T15:51:00.004-02:00

Essa foi meu "amiguinho" Wagner que ensinou! :)

Vá em Run->Parameters

Arquivo mapeado e Serviço do Windows

2009-11-18T15:32:00.005-02:00

Enfim! Valeu a pena não ter desistido! :)

Vamos lá:

Problema:

Criar um arquivo mapeado entre um Serviço do Windows em uma aplicação GUI. O objetivo é acompanhar em tempo real o tamanho de uma pilha de objetos.

Solução:

Para criar um arquivo mapeado:


procedure TGatewayCTI.CriarArquivoCompartilhado;
var
cErro : Cardinal;
begin
  Self.FMappingFile := CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,100,PChar('Session\FILA_GATEWAY'));
  if (Self.FMappingFile <> 0) then
  begin
    cErro := GetLastError;
    if (cErro = ERROR_ALREADY_EXISTS) then
    begin
      CloseHandle(Self.FMappingFile);
      Self.FMappingFile := OpenFileMapping(FILE_MAP_ALL_ACCESS,False,PChar('Session\FILA_GATEWAY'));
      GerarLogTipoInformation(True,84734903,[' > Sucesso ao abrir arquivo mapeado!'])
    end else
    begin
      GerarLogTipoInformation(True,894733,[' > Sucesso ao criar arquivo mapeado!']);
    end;
  end else
  begin
    GerarLogTipoErro(True,49874309,[Format(' > Erro ao criar arquivo mapeado: [%d - %s]',[cErro,SysErrorMessage(cErro)])]);
  end;
end;

Para gravar um valor:


procedure TGatewayCTI.AtualizarQuantidade(piIncremento: Integer);
var
Ptr: PChar;
begin
  try
    if (Self.FMappingFile <> 0) then
    begin
      Self.FCountQueue := Self.FCountQueue + piIncremento;
      if (piIncremento < 0) then
      begin
        Self.FCountProcessed := Self.FCountProcessed + Abs(piIncremento); 
      end;

      Ptr := MapViewOfFile(Self.FMappingFile,FILE_MAP_WRITE,0,0,0);
      StrPLCopy(Ptr,Format('Na pilha: [%d] - Processadas: [%d]',[Self.FCountQueue,Self.FCountProcessed]),100);
      UnmapViewOfFile(Ptr);
    end;
  except
    on E: Exception do
      GerarLogTipoException(58679343,E,'Arquivo mapeado');
  end;
end;

Para ler o valor:


procedure TfPrincipal.AtualizarValor;
var
Ptr : PChar;
begin
  if (Self.FMappingFile <> 0) then
  begin
    Ptr := MapViewOfFile(Self.FMappingFile,FILE_MAP_READ,0,0,0);
    Self.pCount.Caption := Format('%s',[Ptr]);
    UnmapViewOfFile(Ptr);
    Application.ProcessMessages;
  end else
  begin
    Self.pCount.Caption := 'Arquivo mapeado não disponivel';
  end;
end;

Importantíssimo:

Para compartilhar o arquivo entre um serviço e um aplicativo GUI, coloque a palavra 'Session\' antes do nome do arquivo.

Delphi Conference 2009

2009-11-06T14:06:00.001-02:00

Nos vemos lá?

http://latam.embarcadero.com/br/delphiconference/

Faça seu próprio temporizador no Delphi

2009-11-03T12:25:00.003-02:00

Se você, assim como eu, não é muito fã do TTimer e acha que pode fazer melhor, dá uma olhada neste post:

http://projects.pro.br/gsaraiva/2008/05/delphi-settimer/

Acredito que combinado com Thread, fica muito bom.

Atente para a diretiva stdcall nos lugares corretos.

Perdi meu fim de semana prolongado por falta disso. No Windows 2008 não rola.

Obter número de Threads de um processo

2009-10-21T13:31:00.005-02:00

Olá. Graças à generosidade do Luís Gustavo Fabbro, que mantém um blog muito interessante, a Balaio Tecnológico, posto aqui o código necessário para obter a quantidade de thread de um processo, pelo PID dele:

uses TlHelp32;

{*
Levanta a quantidade de Threads de um processo

@param piPID Identificador do processo em questão
}
function TGInfoWinService.GetThreadCount(piPID: Cardinal): Boolean;
var
hSnapShot   : THandle;
rThreadInfo : TThreadEntry32;
bNext       : Boolean;
iThreadCount: Integer;
begin
Result := False;
iThreadCount := 0;
try
try
hSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,0);
if (hSnapShot = THandle(-1)) then
raise EGWinService.Create('Erro ao levantar ThreadCount',39248209);
rThreadInfo.dwSize := SizeOf(rThreadInfo);
bNext := Thread32First(hSnapShot,rThreadInfo);
while (bNext) do
begin
if (rThreadInfo.th32OwnerProcessID = piPID) then
Inc(iThreadCount);
bNext := Thread32Next(hSnapShot,rThreadInfo);
end;
Result := True;
except
on E: Exception do
GerarLogTipoException(56565654,E,'Unt_WinService');
end;
finally
CloseHandle(hSnapShot);
if Result then
Self.FThreadCount := iThreadCount
else
Self.FThreadCount := -1;
end;
end;

Mais informações em:

http://balaiotecnologico.blogspot.com/2009/10/obtendo-informacoes-sobre-as-threads-de.html

Eu uso GOTO sim, você me perdoa?

2009-10-16T14:17:00.004-03:00

Estava lendo uma matéria muito interessante sobre o uso do goto.

http://delphi.about.com/od/adptips2006/qt/goto_label.htm

Quando comecei a programar lembro que uma das primeiras coisas que aprendi foi:

GOTO não deve ser usado!

Simples assim. E eu simplesmente absorvi este mandamento, sem questionar. Isso me pareceu um tabu da programação, sei lá.

É óbvio que o uso indiscriminado do goto torna o código ilegível e concordo que ele deve ser evitado. Afinal goto é um salto de um ponto do programa a outro.

Mas tempo passou. E com o amadurecimento e quebra de tabus descobri uma situação onde o goto é últil. IFs aninhados. Não sei se por dislexia ou algo parecido eu simplesmente não entendo o código abaixo...

procedure QualquerCoisa;

begin

{...}

if (CondiçãoA) then

begin

{...}

end else if (CondiçãoB) then

begin

{...}

end else if (CondiçãoC) then

begin

{...}

end else if {...}

{...}

end;



{...}

end;

Bom, prefiro assim:

procedure QualquerCoisa;

label Fim;

begin

if (CondiçãoA) then

begin

{...}

goto Fim;

end;



if (CondiçãoB) then

begin

{...}

goto Fim;

end;



if (CondiçãoC) then

begin

{...}

goto Fim;

end;



{...}



Fim:



{...}

end;

Sacou?

Mas temos que usar com moderação.

:)

Tutorial de SQL

2009-10-15T11:12:00.003-03:00

Essa foi o Silvio Clécio que mandou no fórum de discussão:

SQL Tutorial

Bons estudos!

Delphi I/O Errors

2009-10-07T16:58:00.001-03:00

Finalmente! Uma listagem daqueles códigos de erro de I/O...

Aíiiiiii sim, hein?! :)

http://erikmartin.com/pro/ioerrors.html

Finamente! Blaise Pascal Magazine em pt-br!!!!!

2009-10-07T12:51:00.002-03:00

Amigos! Recomendo a Blaise Pascal como ótima fonte de conhecimento em Delphi e correlatos:

http://www.blaisepascal.eu/index.php?actie=portal_pt

Pacotes compatíveis com o Delphi 2010

2009-10-06T17:24:00.001-03:00

Fonte oficial:

http://edn.embarcadero.com/article/39864

Delphi - a Fênix!

2009-10-01T17:30:00.001-03:00

Olha que artigo legal, apesar do meu pessimo título:

http://garotodesktop.blogspot.com/2009/09/novidades-do-delphi-2010-parte-1.html

TPerlRegEx - Primeiros passos

2009-09-18T13:13:00.005-03:00

Enfim, minha primeira aplicação usando RegEx.

Antes, olha que interessante a estória do Pedro Paulo Pereira Pinto.

Bom, vou usar esta estória como modelo.

Para tanto construi o seguinte aplicativo, usando o TPerlRegEx:

O código mais importante é do botão "Analisar", veja que simples:

procedure TForm1.Analisar;
const
FORMATO = 'Tamanho: [%5d] Posição: [%5d] Casamento: [%s]';
var
iQuant : Integer;
begin
iQuant := 0;

//Limpando a tela de resultados
Memo1.Clear;

//Alimentando o RegEx
Self.PerlRegEx1.RegEx   := Edit1.Text;  //Expressão
Self.PerlRegEx1.Subject := Memo2.Text;  //Texto

//Primeira busca
if (Self.PerlRegEx1.Match) then
begin
Memo1.Lines.Add(Format(FORMATO,[PerlRegEx1.MatchedExpressionLength,PerlRegEx1.MatchedExpressionOffset,PerlRegEx1.MatchedExpression]));
Inc(iQuant);
//Demais buscas
while (Self.PerlRegEx1.MatchAgain) do
begin
Memo1.Lines.Add(Format(FORMATO,[PerlRegEx1.MatchedExpressionLength,PerlRegEx1.MatchedExpressionOffset,PerlRegEx1.MatchedExpression]));
Inc(iQuant);
end;
end;

//Fim
Label1.Caption := Format('%d ocorrências',[iQuant]);
Application.ProcessMessages;

end;

Qual foi o desafio? Destacar todas as palavras presentes no texto.

Veja o resultado final:

Expressão Regular, Agora vai!

2009-09-17T13:38:00.003-03:00

Opa!

Voltei a estudar ER, pois preciso desenvolver uma analisador de log e tal...

Minha fonte inicial foi:

http://www.aurelio.net/

Comprei o livro do cara e tal e agora to pegando para valer.

Dai fui, obviamente, atras de uma classe Delphi, afinal não ia fazer o lance do zero...

Achei o portal do ER!

http://www.regular-expressions.info/

http://www.regular-expressions.info/delphi.html

Mais um link:

http://www.regexguru.com/

Syntax Highligth

2009-09-10T13:07:00.003-03:00

Continuando a saga do Syntax Highligth, estoiu fazendo algumas documentações no MS Word onde precisarei colocar alguns trechos de código.

E lá vai eu incomodar o Bruno e eis que ele achou o ADX Toys 2 WD.

Baixei, instalei e ualá!

Nao achei o resultado dos melhores mas ajuda.

Sera que existe outra opcao

Como usar o Syntax Highlighter com eficácia no BlogSpot

2009-09-09T13:37:00.021-03:00

Levei um puxão de orelhas por não ter ensinado como usar o Syntax Highlighter no BlogSpot.

Então vamos lá!

Acesse a área de Configuração do Layout do seu blog.

Vá na aba "Editar HTML" e insira o código abaixo antes da tag /body


//ATENÇÃO! Corrija o LINKK - O BlogSpot não permitiu o uso :(

Para postar seus códigos, utilize mais ou menos a syntax no quadro abaixo:


  
  procedure Teste;
  begin
    //Comentário qualquer...
    ShowMessage('Olá Mundo!');
  end;

O resultado será como abaixo:


procedure Teste;
begin
  //Comentário qualquer...
  ShowMessage('Olá Mundo!');
end;

Diretiva $WARN

2009-09-09T12:36:00.005-03:00

Opa!

Eu tento eliminar todas as mensagens de Warning quando compilo meus projetos.

Tento.

Mas existe algumas chatas, que sempre aparecem e você pouco pode fazer, como por exemplo:

[DCC Warning] Unt_RotinasLog.pas(420): W1002 Symbol 'faArchive' is specific to a platform

A aviso acima aparece por conta de uma instrução como a abaixo:


//...
iAchou := FindFirst(NomeArquivo,faArchive,rLocalizador);
//...

Perceba que o inicio do aviso existe um código: W1002.

Bom, a maneira deste aviso não aparecer é desabilitar este warning:


//...
{$WARN SYMBOL_PLATFORM OFF}
iAchou := FindFirst(NomeArquivo,faArchive,rLocalizador);
{$WARN SYMBOL_PLATFORM OFF}
//...

Fonte:
http://stackoverflow.com/questions/376785/identifiers-for-delphis-warn-compiler-directive

Tipo Enumerado para String

2009-09-02T10:38:00.007-03:00

Olá!

Eventualmente é necessário converter um tipo enumerado para string.

Dai você provavelmente pensaria em um código mais ou menos assim:

type
TMeuTipo = (mtOpcao1, mtOpcao2)

function Converter(peOpcao: TMeuTipo): string;
begin
case peOpcao of
mtOpcao1 : Result := 'mtOpcao1';
//E assim sucessivamente...
end;
end;

Imagine os problemas de manutenção para falar o mínimo...

Ao invés disso, use a RTTI a seu favor:


uses
TypInfo;

type
TMeuTipo = (mtOpcao1, mtOpcao2)

function Converter(peOpcao: TMeuTipo): string;
begin
//GetEnumName é a solução!
Result := GetEnumName(TypeInfo(TMeuTipo),Ord(peOpcao));
end;

P.S.: Um ótimo artigo sobre este assunto:

http://www.techtricks.com/delphi/enumname.php

Seja feliz.

Delphi 1

2009-08-28T11:21:00.000-03:00

Olha que loucura!

http://www.micropic.com.br/noronha/Informatica/PD/DELPHI/livro%20de%20delphi.pdf

RFCs

2009-08-17T11:21:00.000-03:00

Aqui é a nascente dos padrões da Internet e correlatos.

http://www.rfc-editor.org/

SYNTAX HIGHLIGHTER no BlogSpot

2009-08-07T13:53:00.005-03:00

Finalmente! De agora em diante vou postar meus exemplos de uma forma mais profissa!

E como primeiro exemplo, o clássico "Olá Mundo!"


procedure Exemplo;
begin
  ShowMessage('Olá Mundo!');
end;

Link:

http://alexgorbatchev.com/wiki/SyntaxHighlighter

KBM - Documentação e exemplos

2009-08-03T16:19:00.000-03:00

Desfrute:

http://www.components4programmers.com/downloads/

HTTP

2009-07-30T14:21:00.002-03:00

Olá.

Um assunto pelo qual tenho bastante interesse é o protocolo HTTP.

Estudando esse tipo de assunto muita coisa se desmistifica.

Desenvolvi um tempo atrás um servidor HTTP (em Delphi) a partir de um Server Socket simples. Achei muito bacana!

Vou ser mais esperto desta vez e usar TIdHTTPServer desta vez. Vamos postando aqui as descobertas.

Como sempre, um ponto de partida:

http://wagnerelias.com/2009/02/06/http-essentials/

Modularização do aplicativo

2009-07-22T15:42:00.001-03:00

Um bom artigo sobre BPL você encontra em:

http://www.techtips.com.br/programacao/modularizao-de-aplicativos-single-package/

Funções e Procedimentos Básicos do Delphi

2009-07-17T13:46:00.000-03:00

Um link muito interessante:

http://www.activedelphi.com.br/forum/viewtopic.php?t=47639

DBExpress X TThread

2009-07-13T18:01:00.002-03:00

Amigos!

Mais uma "descoberta" que talvez lhe tenha utilidade.

O caso é que em programas multi thread, se a thread for utilizar uma conexão DBExpress, é necessário chamar o CoInitialize(nil) e CoUninitialize.

No mínimo suas mensagens de erro em relação ao banco melhorarão uma vez que a mensagem abaixo não significa nada:

OLE DB error occured. Code 800401F0h.
CoInitialize has not been called.

Ao passo que a mensagem abaixo fica beeeeem mais clara:

[DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado.

http://support.codegear.com/br/article/37092

DBGrid, colorindo as linhas

2009-07-10T12:21:00.002-03:00

É um saco, sempre fico na dúvida como se faz:

http://delphi.about.com/od/usedbvcl/l/aa031699.htm

http://www.activedelphi.com.br/print.php?sid=326

Nerd

2009-07-08T19:26:00.000-03:00

Você é um Nerd? Sim?! Sorte sua! :)

Compactador de Executável

2009-07-08T13:33:00.001-03:00

Um assunto muito interessante e um ótimo artigo você encontra em:

http://www.geocities.com/SiliconValley/Bay/1058/compexe.html

Mais sobre arquivo MAP

2009-07-08T13:15:00.002-03:00

Olha que link interessante:

http://www.drbob42.com/delphi/findmap.htm

Criptografia

2009-07-06T12:12:00.001-03:00

O pessoal aqui já usa um tempo e estão bem satisfeitos.

Achei o site do cara show de bola e estou compartilhando com você.

http://www.cityinthesky.co.uk/
http://www.cityinthesky.co.uk/cryptography.html

Chuck Norris é DBA!

2009-07-03T09:29:00.002-03:00

Olha que louco!

http://keniamilene.wordpress.com/2009/05/13/chuck-norris-dba/

Michel! Michel! Eles não ligam para a gente!

2009-06-26T11:05:00.000-03:00

Beat It
(Cai Fora)

Eles lhe disseram
Não volte mais aqui
Não quero ver mais seu rosto
É melhor você desaparecer
O fogo está em seus olhos
E suas palavras são bem claras
Então cai fora, apenas cai fora

É melhor correr
Faça o que você puder
Não queira ver sangue
Não queira dar uma de macho
Se quiser ser durão
Melhor fazer o que puder
Então cai fora, mas voce quer ser mau

Refrão:
Então cai fora, cai fora, cai fora, cai fora
Ninguém quer ser derrotado
Mostrando o quão forte é a sua briga
Não importa quem está certo ou errado
Apenas cai fora! Cai fora!
Apenas cai fora! Cai fora!
Apenas cai fora! Cai fora!
Apenas cai fora! Cai fora!

Eles estão lá fora para te pegar
Melhor sair enquanto pode
Não queira ser um menino
Queira ser um homem
Você quer continuar vivo
Melhor fazer o que você pode:
Cai fora, cai fora!

Você tem que mostrá-los
Que você não está nem um pouco assustao
Você está brincando com a sua vida
Isso não é "Verdade ou Desafio"
Eles vão te pegar, vão te bater
E vão dizer que isso é o justo
Então cai fora, mas você quer ser mau

(Refrão)

Fazendo um Serviço rodar no modo Aplicativo

2009-06-23T14:38:00.005-03:00

Muitas vezes gostaríamos que o nosso serviço rodasse como um aplicativo comum, sendo que isso facilitaria bastante o debug.

Por aqui fiz o código abaixo (no arquivo DPR), que atendeu bem as minhas necessidades:


var
sModo : string;
begin
  GetParamByKey('modo',sModo,'desktop');
  if (AnsiLowerCase(sModo) = 'desktop') then
  begin
    Forms.Application.Initialize;
    Forms.Application.MainFormOnTaskbar := True;
    Forms.Application.Title := 'G!Guadian Master';
    Forms.Application.CreateForm(TfModoDesktop, fModoDesktop);
    Forms.Application.Run;
  end
  else
  begin
    if not SvcMgr.Application.DelayInitialize or SvcMgr.Application.Installing then
      SvcMgr.Application.Initialize;
    SvcMgr.Application.CreateForm(TGGuadianMaster, GGuadianMaster);
    SvcMgr.Application.Run;
  end;
end.

Sacou a jogada?

Exemplos

2009-06-22T10:23:00.001-03:00

Alguns bons exemplos de diversas rotinas você encontra em:

http://inf.unisul.br/~osmarjr/delphi/exemplos.htm

Sobre o Pascal e Object Pascal

2009-06-19T14:43:00.002-03:00

Uma boa leitura sobre os assuntos, entre outros, você encontra em:

http://www.fundao.wiki.br/resources/linguagens/

Tutorial sobre como criar um Serviço do Windows

2009-06-03T16:19:00.001-03:00

Olha que bacana:

http://www.devarticles.com/c/a/Delphi-Kylix/Creating-a-Windows-Service-in-Delphi/