Creating Web Services (Soap / XML) Delphi

0

I'm trying to create a web service (SOAP) in Delphi that returns the sum of 2 numbers. But when I create the .exe and I set up the virtual directory folder to run it I get this image

As a beginner in Delphi I can not detect the error.

unit utImplementacao;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type

  IInterface = interface(IInvokable)
   ['{3D2DB90B-DBB7-4109-B473-C56019965C33}']

   function Soma(valorA, valorB: Integer): Integer; stdcall;
end;

  TImplementacao = class(TInvokableClass, IInterface)

  public
     function Soma(valorA, valorB: Integer): Integer; stdcall;

  end;

implementation

  function TImplementacao.Soma(valorA, valorB: Integer): Integer;
   begin
      Result := valorA + valorB;
  end;

  initialization
  InvRegistry.RegisterInvokableClass(TImplementacao);
  InvRegistry.RegisterInterface(TypeInfo(IInterface));

end.
    
asked by anonymous 09.03.2018 / 18:09

0 answers