Webservices - 2ª parte (com imagens)

Bem vindo ao segundo artigo sobre a criação e implementação
de WebServices!!!
conforme eu comentei no artigo anterior eu estarei explicando
passo-a-passo nesta parte do artigo como alimentar uma aplicação
com o webservice que criamos anteriormente.
Iremos ainda desenvolver uma outra aplicação que consome o serviço
em um site de webservices e deixaremos as portas
abertas para aqueles que quiserem ir mais longe.

Então vamos lá...

Nesta primeira parte do artigo estaremos usando o webservice criado
no artigo anterior e na segunda parte usaremos um outro webservice.

------------------------------------------------------------------

1ª Parte

Inicialmente vamos criar uma nova aplicação e depois vamos em
File->New->Other e selecionaremos na aba WebServices a opção WSDL Importer.
Será necessário aqui a URL do nosso WSDL que copiamos no artigo anterior.
Espero que todos tenham copiado e guardado a URL... caso não.. terão
que refazer todo o processo de abrir o Web App Debugger etc etc e tal.

Colaremos então a URL que copiamos no artigo anterior e clicamos em Next
e depois Finish. No formulario do projeto iremos acrescentar o componente
HTTPRIO.

Iremos colar novamente a URl em WSDLLocation no Object Inspector, selecionaremos
o serviço em Service e depois a Porta em Port.
Pressionaremos Alt+F11 para adicionar a unit do serviço em uses do nosso formulario.

Iremos desenhar um formulario assim como o demonstrado abaixo:

E faremos a implementação do nosso serviço como abaixo.

Estou mostrando apenas como usar o método Somar, os demais eu deixo para
vocês implementarem.

Salvamos o projeto!(É necessário!)
Rodamos a aplicação e temos um aplicativo que consome um webservice!

------------------------------------------------------------------

2ª Parte.

Na internet existem alguns sites que disponibilizam serviços
para as mais variadas atividades.
Recomendo este:
http://www.webservicex.net/WS/default.aspx

Inclusive o próximo exemplo será usado um WebService deste site.
O serviço que usaremos verifica em um dominio a existência de um
email. Isto é realmente util se fazemos transações comerciais pela internet
via email.
Então podemos verificar se o email que recebemos existe ou não.
Já fiz diversos testes com vários emails, mas é claro que tudo tem sua
exceção.(Apesar de não dar erro em nenhum teste!)

Vamos lá... criamos uma nova aplicação e seguimos os mesmos passos
acima! File->New->Other e na aba WebServices selecionaremos WSDL Importer.
E colamos a URL abaixo no endereço solicitado:
http://www.webservicex.net/ValidateEmail.asmx?WSDL
Clicamos em Next e depois em Finish.(É necessário, é claro que estejamos
conectamos na internet para funcionar!)

Dessa vez não usaremos o HTTPRIO, usaremos apenas a unit adicionada.
Inclusive precisamos inserir a referência usando Alt+F11 no formulario.
Iremos desenhar um formulario como o abaixo:

E no evento de clique do botão colocaremos o código abaixo:

E pronto! Nosso aplicativo utiliza um webservice que verifica a existência
de um email! Façam testes!(Salvem a aplicação e executem!)
O site que passei acima possui uma quantidade interessante de serviços
para serem usados nas mais diversas situações.(Mandar fax, mensagens SMS
e por ae vai....).

E é isso ai!
No próximo artigo estarei explicando o que fizémos até aqui.
Aos que tiverem duvidas estou no eder_fernandes@hotmail.com ou ederrf@uol.com.br
Agradeço a todos os que deixarem comentários ou sugestões.
Gostaria que me mandassem emails sugerindo novos assuntos para artigos!

Abraços a todos vocês e bons estudos.

Éder R. Fernandes