Na próxima caixa de diálogo, selecione “CGI Stand-Alone Executable”

WebServices em Delphi 7.0 – By AdeN

Criando o Módulo Servidor:

Inicie um novo projeto no Delphi: Vá ao menu principal e escolha FILE/NEW/Other. Na paleta WebServices, dê um clique duplo em SOAP Server Application:

[pic 1]

Na próxima caixa de diálogo, selecione “CGI Stand-Alone Executable”.

[pic 2]

Responda não para a pergunta sobre a criação da Interface for Soap Module. Não há a necessidade de se criar a interface SOAP, pois estamos desenvolvendo uma aplicação independente e não um objeto SOAP.

[pic 3]

Será criado um Web Module com os componentes abaixo:

Clique em File/Save All para salvar o Web Module. Dê o nome de UwebModule para a Unit e Server para o projeto.[pic 4]

Vamos criar então o Data Module para configurar os objetos de acesso ao banco de dados. Clique em File/New/Other, Paleta WebServices e dê um clique duplo em SOAP Server Data Módule. Digite o nome DM para a Classe, conforme abaixo:

[pic 5]

Salve essa Unit com o nome de UdataModule.

---

Vá á paleta ADO do Delphi, e coloque no DataModule um objeto do tipo ADOConnection e outro do tipo ADOTable. Configure o conforme abaixo:

ADOConnection

Name:                 cnAccess

ConnectionString:         Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Webservice\clientes.mdb;

LoginPrompt:         False

ADOTable

Name:                 tbClientes

Connection:                 cnAccess

TableName:                 Clientes

Veja que estou usando um banco de dados no padrão MS Access

Vá a Paleta Data Access e coloque um objeto DatasetProvider no Datamodule com as configurações abaixo:

DatasetProvider

Name:                 dspClientes

Dataset:                 tbClientes

[pic 6]

Salve seu projeto e compile-o (CTRL+F9). Será gerado um arquivo executável no padrão CGI. Esse executavel será utilizado pelo módulo cliente.

Para testá-lo, abra o navegador e digite o seguinte endereço:

http://127.0.0.1/webservice/server.exe

Obs:

O endereço IP poderá ser trocado pelo endereço do seu servidor Internet/Intranet.

O alias “webservice” é o nome do diretório virtual onde o server.exe foi configurado para acesso remoto (configure o IIS ou PWS antes de realizar esse teste).

---

Ao acionar o endereço no navegador, você deverá obter a seguinte página de resposta:

Isso significa que o servidor já está em modo stand-by. Vamos então criar o módulo cliente.[pic 7]

---

Construindo o modulo Cliente.

Escolha no meu principal do Delphi: File/New/Application. Salve o formulário com o nome de Uform e o Projeto como Cliente.DPR.

Coloque no formulario um componente SoapConnection da Paleta Webservices. Configure-o conforme abaixo:

[pic 8]

Veja que na URL do servidor, foi acrescentado o parâmetro /soap/IappServer ao seu final. A propriedade Active foi configurada para True.