Como exibir um GIF animado no Delphi 

Esta dica é de como exibir um GIF no Delphi e ativar a sua animação

Como exibir um GIF no TImage

O TImage do Delphi é capaz de exibir um GIF, mas tem um pequeno truque.
Primeiro adicione o seu TImage ao formulário.
Agora se você tentar carregar um GIF irá ocorrer um erro, para o TImage suportar o GIF adicione a unit GIFImg a clausula uses do formulário. Simples assim :D

Exibir a animação do GIF

Agora você poderá carregar o GIF no TImage sem problemas, no entanto esta será estático.
Para ativar a animação utilize o seguinte código

TGIFImage(image1.Picture.Graphic).Animate := True;

Muito bem agora o seu GIF estará animado com animação sendo exibida em loop

Como evitar o Flicker do GIF (Imagem piscando)

Provavelmente ao exibir a imagem esta ficará piscando.
Para resolver este problema você deve setar as seguintes propriedades:

image1.Proportional := False;
image1.Stretch      := True;

Muito bem, com estas dicas será fácil colocar um GIF animado no seu programa. Até a próxima

Como alterar o Arquivo XML em Delphi

Continuando o projeto iniciado na parte 1
Agora veremos como alterar o arquivo XML inserindo novos dados e salvando este arquivo para uso posterior.

Interface 

Continuando o projeto, adicione dois TEdit, um para o Nome do Contato e outro para o Telefone do Contato. Adicione também um botão para inserir os dados no XML.

Visualizar o Contato

 Adicione o seguinte código no evento OnClick do TButton.

var Agenda  : IXMLAgendaType;
    Contato : IXMLContatoType;
    Arquivo : TStringList;
begin
  Agenda  := Loadagenda('agenda.xml');
  Contato := Agenda.Add();
  Contato.Id := Agenda.ChildNodes.Count;
  Contato.Nome := edNome.Text;
  Contato.Fone := edTelefone.Text;

  Arquivo := TStringList.Create;
  Arquivo.Add(Agenda.XML);
  Arquivo.SaveToFile('agenda.xml');
  Arquivo.Free;

Explicação do Código 

Primeiramente carregamos novamente o XML para um Objeto como no artigo anterior.
O Método Add do nosso objeto retorna um novo Objeto do tipo IXMLContatoType onde iremos setar o Nome e Telefone do contato.
Depois utilizamos um TStringList para salvar novamente o XML para o arquivo.
Experimente agora utilizar o botão Visualizar e  veja que o nosso novo contato irá aparecer também.

Outros Métodos disponibilizados

• Remove(const Node: IXMLNode) : Permite remover do XML o node passado como parâmetro.
• Count : Retorna o número de nós filhos(contatos)
• Clear : Permite limpar a lista de contatos

 Webservices

Neste exemplo utilizamos um arquivo salvo localmente, mas é possível utilizar o Data Binding também recebendo um XML de um WebService e acessando diretamente suas propriedades, sem necessidade de ler e salvar Nós do arquivo XML.

Até a próxima

Como acessar o Arquivo XML em Delphi

Continuando o projeto iniciado na parte 1
Agora veremos como abrir o arquivo XML e visualizar os dados presentes neste.

Interface

Crie um novo projeto no Delphi com esta aparência utilizando um TButton e um TMemo.
Salve o arquivo XML na mesma pasta do executável para simplificar o código.
Adicione a unit gerada pelo Data Binding a cláusula Uses do formulário.

Visualizar os contatos

 Adicione o seguinte código no evento OnClick do TButton.

var Agenda  : IXMLAgendaType;
    Contato : IXMLContatoType;
    idx     : Integer;
begin
  // Ler dados do arquivo XML
  Agenda := Loadagenda('agenda.xml');
  // Limpar o texto do Memo
  mmContatos.Lines.Clear;
  // Ler cada um dos contatos salvos
  for idx := 0 to Agenda.ChildNodes.Count -1 do
  begin
    Contato := Agenda.Contato[idx];
    // Adicionar ao Memo os dados do contato
    mmContatos.Lines.Add('Contato: ' + Contato.Nome + ' Telefone: ' + Contato.Fone);
  end;

Ao executar o projeto e clicar no TButton o formulário deverá ficar assim.

Na próxima parte veremos como adicionar um novo contato e salvar os dados no arquivo para utilização posterior

Como Utilizar XML Data Binding no Delphi

Este post é sobre como utilizar o XML Data Binding no Delphi, ou seja como acessar os dados presentes em um arquivo xml como um objeto com métodos e propriedades.
Neste primeira parte iremos criar o arquivo XML que usaremos como base para uma agenda.

Criando o arquivo XML modelo

Primeiro vamos criar um arquivo XML para utilizar o assistente de Data Binding do Delphi para gerar as classes autimaticamente
"Agenda.xml"

<?xml version="1.0" encoding="UTF-8"?>
<agenda>
  <contato>
    <id>1</id>
    <nome>Contato 1</nome>
    <fone>(99)9999-9999</fone>   
  </contato>
  <contato>
    <id>2</id>
    <nome>Contato 2</nome>
    <fone>(11)1111-1111</fone>   
  </contato> 
</agenda>

Crie um arquivo utilizando este código e salve com o nome Agenda.xml.
Vá no menu File -> New -> Other.
Na tela que irá aparecer selecione Delphi Projects -> XML -> XML  Data Binding.

No assistente que irá aparecer selecione o arquivo xml que você criou e avance até o Delphi gerar a unit com o código de acesso.

Na próxima parte iremos visualizar os dados do nosso arquivo XML.