Esse artigo faz parte da revista Clube Delphi edição 28. Clique aqui para ler todos os artigos desta edição



Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML.

Web Services: dos conceitos à implementação

Parte 2 – Clientes CLX e web

Nesta segunda parte da nossa exploração dos web services, começaremos incluindo em nosso servidor um exemplo de transferência de datasets e depois mostraremos como criar clientes para web services, tanto convencionais como baseados na web.

Transferência de datasets

Um recurso muito útil, bastante facilitado com os web services é a transferência de datasets. Para ilustrar uma das formas de implementação desse recurso vamos definir mais uma interface em nosso servidor:

 

unit IHistoricoIntf;

interface

type

  IHistorico = interface(IInvokable)

    ['{22EC0D1D-1EFB-4317-8E4F-5CC2667178A7}']

    function GetHistorico: String; stdcall;

  end;

implementation

uses InvokeRegistry;

initialization

  InvRegistry.RegisterInterface(TypeInfo(IHistorico));

end.

 

Trata-se de uma declaração de interface muito simples – há apenas um método, GetHistorico, que retorna o conteúdo da tabela de histórico como uma string com formato XML/DataPacket:

 

unit IHistoricoImpl;

 

interface

 

uses InvokeRegistry, IHistoricoIntf,

     SysUtils, WebBrokerSOAP, Midaslib;

...

Quer ler esse conteúdo completo? Tenha acesso completo