Home » Tutorials » Netzwerk und Internet » Webservices

Webservices

Implementierung

Außer ein paar Mausklicks und der Eingabe des Webservice-Namens haben wir bisher ja noch keine große Leistung erbracht. Machen wir uns jetzt an die Implementierung unser Mehrwersteuerfunktion.

Dazu wechseln wir in die Unit MeinWebServiceImpl. Hier sehen Sie das Grundgerüst einer Klasse namens TMeinWebService:

 { TMeinWebService }
 TMeinWebService = class(TInvokableClass, IMeinWebService)
 public
 end;

Dieser Klasse müssen wir unsere Funktion hinzufügen und anschließend im implementation-Teil mit Code füllen. Daraufhin sollte die Unit in etwa so aussehen:

{ Invokable-Implementierungsdatei für TMeinWebService
 das IMeinWebService implementiert }

unit MeinWebServiceImpl;

interface

uses InvokeRegistry, Types, XSBuiltIns, MeinWebServiceIntf;

type

{ TMeinWebService }
TMeinWebService = class(TInvokableClass, IMeinWebService)
public
function GetMWSt(const Brutto: Double): Double; stdcall;
end;

implementation

{ TMeinWebService }

function TMeinWebService.GetMWSt(const Brutto: Double): Double; stdcall;
begin
result := Brutto – (Brutto/1.16);
end;

initialization
{ Invokable-Klassen müssen registriert sein }
InvRegistry.RegisterInvokableClass(TMeinWebService);

end.

So viel zur Implementierung. Welche Funktion der Initialization-Abschnitt hier hat, wird im Folgenden noch geklärt.