unit u_Impl;

interface
//uses InvokeRegistry, u_Intrf; 
uses InvokeRegistry, Types, XSBuiltIns, u_Intrf,
ADODB,Provider,DBClient,Classes,SysUtils,ActiveX ;

type
  TEncodeDecode = class(TInvokableClass, IEncodeDecode)
  protected
    function US2RUS(Value: Currency): Currency; stdcall;
    function RUS2US(Value: Currency): Currency; stdcall;
  end;

implementation

{ TEncodeDecode }

function TEncodeDecode.RUS2US(Value: Currency): Currency;
begin
  Result := Value / 30;
end;

function TEncodeDecode.US2RUS(Value: Currency): Currency;
begin
CoInitialize(nil);
try
    with TADOQuery.Create(nil) do
    try
      ConnectionString := 'здесь коннект к БД';
      SQL.Text := 'select * from Table';
      Open;
      Result := RecordCount;
    finally
      Free;
    end;
  finally
    CoUninitialize;
  end;

 // Result := Value * 30;
end;

initialization
  InvRegistry.RegisterInvokableClass(TEncodeDecode);
end.

unit U_client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IServer2, InvokeRegistry, Rio, SOAPHTTPClient, StdCtrls;

type
  TForm2 = class(TForm)
    Button2: TButton;
    HTTPRIO1: THTTPRIO;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
var
  X:IServer;
  R:Currency;
begin
  X:=HTTPRIO1 as IServer;
  R:=X.US2RUS(StrToCurr(Edit1.Text));
  ShowMessage(CurrToStr(R)+'руб.');
end;

end.

unit IServer2;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

  IServer = interface(IInvokable)
  ['{6DFC6BCC-5681-BF19-D2FF-74E314FC1172}']
    function  US2RUS(const Value: Double): Double; stdcall;
  end;

function GetIServer(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): IServer;

implementation

function GetIServer(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IServer;
const
  defWSDL = 'D:\autoZ\IServer.xml';
  defURL  = 'http://localhost:8080/cgi-bin/Server.exe/soap/IServer';
  defSvc  = 'IServerservice';
  defPrt  = 'IServerPort';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as IServer);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


initialization
  InvRegistry.RegisterInterface(TypeInfo(IServer), 'urn:ServerIntf-IServer', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IServer), 'urn:ServerIntf-IServer#%operationName%');

end.