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
