Wrapper für SOAP Aufrufe gesucht

[DeddyH]

Wie wäre es mit einer Property vom Typ des Interfaces und Lazy Initialization?

Delphi-Quellcode:

type
  TKommunikation = class
  private
    FServerPort: DevicePortType;
    function GetServerPort: DevicePortType;
  public
    property ServerPort: DevicePortType read GetServerPort;
  end;

function TKommunikation.GetServerPort: DevicePortType;
begin
  if not Assigned(FServerPort) then
    begin
      {$IFDEF MSWINDOWS}
      CoInitialize(nil);
      {$ENDIF MSWINDOWS}
      FServerPort := GetDevicePortType(False, fConfig.SoapServerAdress);
    end;
  Result := FServerPort;
end;