Olá galera, nesta Quick Tips, irei mostra como podemos trabalhar com o Skype, usando ActiveX do mesmo, dentro do Delphi. Estou usando a versão do Skype 4.2.0.158, com o Delphi 2010.

 

Inicialmente vou mostrar como vamos importar o ActiveX, vamos lá.

 

Importando o ActiveX

Dentro da IDE do Delphi, no menu superior “Component”, selecione o Sub-Menu “Import Component... “, a seguinte janela irá aparecer, marque a opção informada na imagem :

 


 


Avançando, iremos ver a seguinte janela, veja que nela usando a pesquisa, podemos filtrar os ActiveX Registrados, selecione o Skype4COM 1.0 Type Libary, como mostrado na imagem :

 


 

 

Avançando iremos chegar a janela onde vamos definir a Palheta que o Componente será adicionado, e o diretório da Unit criada :

 


 

 

 

Avançando chegaremos a penúltima parte do Wizard, onde definiremos como a unit do pacote será criada, vou marcar a opção “Install to New Package”, pois vamos criar um pacote para a mesma.

 


 

Em fim chegamos ao final do Wizard, vamos definir nesta janela o nome do pacote, e uma descrição para o mesmo :

 


 

Feito isso, ao clicar no botão “Finish”, o pacote será criado, e executado, seu componente irá aparecer na palheta ActiveX :

 


 

Com nosso componente importado, vamos agora construir o exemplo, para usar o mesmo, mãos a obra!

 

Criando formulário

Criando um formulário e salvando o mesmo como uFrmPrincipal.pas, vamos adicionar neste os seguintes componentes :

 

    Skype1: TSkype;

    EdtPesquisaContato: TLabeledEdit;

    Panel1: TPanel;

    StatusBar1: TStatusBar;

    ListViewListaJanelasAbertas: TListView;

    ListViewListaContato: TListView;

    ListViewListaLocalizarUsuario: TListView;

    ToolBar1: TToolBar;

    TlbLimparHistorico: TToolButton;

    TlbLocalizarUsuario: TToolButton;

    ImageList1: TImageList;

 

Veja a disposição dos componentes no Formulário :

 



 

Configurando Componentes do Formulário :

 

ImageList1 : Adicione 2 imagens no mesmo;

StatusBar1 : Adicione 6 panels, dando um duplo-clique no mesmo;

ToolBar : Adicione 2 TToolButton,   TlbLimparHistorico e TlbLocalizarUsuario;

ListViewListaJanelasAbertas: Adicione 1 coluna, ViewStyle = vsReport, RowSelect = True;

ListViewListaContato: Adicione 1 coluna, ViewStyle = vsReport, RowSelect = True;

ListViewListaLocalizarUsuario: Adicione 4 colunas, ViewStyle = vsReport, RowSelect = True;

 

Fico por aqui ate à próxima Quick Tips. Veja na próxima Quick a continuação desta Série sobre ActiveX – Skype – Delphi.

 

Um abraço

 

 

Wesley Y

wyamazack@lithic.com.br