Webservices - 1ª parte (com imagens)

Olá pessoal, bem vindo a mais uma série de artigos!
Nesta nova série de artigos estaremos aprendendo a criar
e alimentar uma aplicação usando webservices.
Para os exemplos que estarei descrevendo estou usando o
Delphi 7 e tenho o IIS 5.1 instalado, portanto se falta
instalar o IIS no seu computador, trate de instalar.
Nesta primeira parte estarei explicando passo a passo como
criar um webservice, e nos próximos 2 artigos teremos
a implementação e depois a explicação do que fizémos.
Tenho certeza de que principalmente a segunda parte deste
artigo será útil para muitos de vocês.
Espero que esta série de artigos ajudem todos aqueles que
sempre tiveram duvidas no desenvolvimento de serviços web!
Portanto, vamos lá....

Antes de mais nada precisaremos executar um aplicativo que
fica na pasta C:\Arquivos de programas\Borland\Delphi7\Bin,
o nome dele e serverinfo.exe(ele por exemplo mostra usando o
browser os serviços registrados/disponiveis no micro e o
caminho do WSDL(explicaremos depois)).

Depois de abrir o arquivo vamos ao Delphi....

Iremos em File-> New -> Other.
Escolhemos na aba WebServices SOAP Server Application.

Criaremos uma classe que irá publicar o nosso webservice.

E depois a interface, que irá disponibilizar os serviços que
iremos implementar.

Colocaremos como nome do serviço: Operacoes

Declaramos os métodos que estaremos usando no nosso serviço
na unit OperacoesIntf(Faremos apenas as declarações).
(As operações aritméticas)(Mas estou preparando um exemplo
óóótimo para o 2º artigo! Estou usando esse apenas para fins
de aprendizado!(Começar do começo!))
Copiem este código.(Ctrl+C)

E colem em OperacoesImpl em Public.
Nesta unit faremos a Implementação dos métodos.
Pressionem Ctrl+Shift+C para implementarmos os métodos.
(Lembre-se estou usando o Delphi 7!).

Obviamente colocaremos em
Somar o código: Result:=x+y; 
Em Subtrair: Result:=x-y;
Em Multiplicar: Result:=x*y;
E dividir: Result:=x/y;

Se quiserem podem personalizar o form com um label dizendo
que o webservice está ativo.(Opcional).
Salvamos a aplicação e compilamos e executamos 1 vez para ela ser
registrada no Windows.
Logo após vamos observar ela disponivel indo em
Tools->Web App Debugger.

Clicamos no botão Start e clicamos na URL que será
habilitada ao lado.

Automaticamente ele abre o browser(no meu caso IE 6.0) e
mostra uma lista dos "servidores registrados".
No meu caso(Project12) aparece o servico coServico.
Selecionamos esta opção e clicamos em Go.
Caso ele exiba alguma mensagem de erro pressione F5 ou
atualizar no seu navegador.(Se alguma janela abrir, não feche!)

Ao clicarmos em go ele exibe um link para o wsdl(explicaremos
depois) e os métodos disponiveis para este serviço!
(Somar/Subtrair/Multiplicar/Dividir).

Cliquem em WSDL da interface IOperacoes e copiem o endereço
da página, pois iremos usar no próximo artigo!(COPIEM MESMO!)
No meu caso ficou como:
http://localhost:8081/Project12.coServico/wsdl/IOperacoes

Tranquilo? Bem esta é a primeira parte!
Criamos um Webservice! Facil, facil, não é mesmo?
Agora falta a outra parte importante que é alimentarmos
uma aplicação com estes serviços!
Mas como faremos isso? Quais componentes?

Leiam no próximo artigo!
Fora este serviço, estarei dando um exemplo prático(para
as atividades do dia-a-dia de como usar um webservice!).

Abraços a todos vocês, agradeço a todos os que deixarem
seus comentários e sugestões.
Gostaria também de receber emails sobre o que vocês gostariam
de ver como artigo aqui no Planeta Delphi!
Para os que tiverem dificuldades estou sempre no:
ederrf@uol.com.br ou eder_fernandes@hotmail.com

Agora sim....

Até +.

Éder R. Fernandes.