Artigo Clube Delphi Edição 28 - Web Services: dos conceitos à implementaçã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;" [...] continue lendo...