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.