Acessando o Twitter via Delphi

Na onda das redes sociais a bola da vez é o Twitter.  Muito tem sido escrito e falado sobre esse serviço de microblogging que permite postagem de até 140 caracteres.

Até algumas empresas produtoras de software já estão utilizando em seus produtos algumas funcionalidades integradas com API’s do Twitter.

Neste artigo vou mostrar três maneiras de como você pode integrar de forma simples e rápida sua aplicação a esse serviço.

Primeira – abrir o Browser padrão do computador já com um endereço pré-definido, ou seja, a página do twitter que desejamos exibir.

Segunda – Utilizando um componente TwebBrowser para exibir a página do twitter dentro da aplicação.

Terceira – capturar em um arquivo XML a user_timeline de um usuário do twitter e mostrar a postagem mais recente como caption de um componente qualquer. No exemplo eu utilizo um Tpanel.

Então vamos lá ..... mãos à obra ....

Crie uma nova aplicação no delphi e insira os seguintes componentes:

3 TGroupBox

1 TRadioGroup

1 TButton

1 TPanel

1 TWebBrowser – paleta internet

1 TXMLDocument – paleta internet

Organize-os no form conforme a figura abaixo:

Altere o nome do TRadioGroup para rgOpcoes e adicione na propriedade items:

Twitter Box

Twitter Panel

Browser

Crie a função que vai verificar se existe conexão com a internet.

function TForm1.VerConexao: Boolean;

var dwConnectionTypes: DWORD;

begin

  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;

  Result := InternetGetConnectedState(@dwConnectionTypes, 0) and

            InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or INTERNET_AUTODIAL_FORCE_UNATTENDED, 0);

end;

Crie a função que vai abrir o browser padrão do computador com o endereço desejado.

function TForm1.AbrirSite(const URL: string): Boolean;

begin

  try

   ShellExecute(Application.Handle, 'Open', PChar(URL), nil, nil, sw_ShowNormal);

   Result := true;

  except

   Result := false;

  end;

end;

Crie o método que vai carregar a user_timeline no arquivo XML e exibir os posts no caption do Tpanel.

procedure TForm1.CarregaPainel;

var

 xmlDoc: IXMLDocument;

 StartItemNode: IXMLNode;

 ANode: IXMLNode;

begin

   // Inicializa instancias

  try

   try

    xmlDoc :=     LoadXMLDocument('http://twitter.com/statuses/user_timeline/23418373.rss');

   except

    Exit;

   end;

   // Abre a URL

   xmlDoc.Active := True;

   StartItemNode := nil;

   try

    StartItemNode := XMLDoc.DocumentElement.ChildNodes.first.ChildNodes.FindNode('item');

    ANode := StartItemNode;

   except

    Exit;

   end;

   if not Assigned(ANode) then

    Exit;

   if ANode.ChildNodes.IndexOf('title') >= 0 then

    TwitterPanel.Caption := ANode.ChildNodes['title'].Text;

  finally

   // Limpa instancia

   xmlDoc := nil;

  end;

end;

Implemente o evento OnClick do Botão.

procedure TForm1.Button1Click(Sender: TObject);

begin

  if VerConexao then

   begin

    Case rgOpcoes.ItemIndex  of

     // Abre o Twitter no Box ...

     0: WebBrowserTwitter.Navigate('http://twitter.com/geversom');

     // Exibe a Mensagem do Twitter no caption do Panel ...

     1: CarregaPainel ;

     // Abre o Twitter no seu Browser Padrão ...

     2: AbrirSite('http://twitter.com/geversom');

    End;

   end;

end;

Deste ponto em diante você poderá usar a sua criatividade e implementar mais uma série de outras funcionalidades na sua aplicação utilizando a sua imaginação e os diversos recursos disponíveis nas API’s do Twitter (http://apiwiki.twitter.com/Twitter-API-Documentation)

Um grande abraço e até o próximo Artigo.