Wrapper für SOAP Aufrufe gesucht

[Fritzew]

Delphi-Quellcode:

function TKommunikation.SOAPComWrapper(aFunc: TFunc<Integer, Boolean>; intparam : integer; boolparam : boolean): Boolean;
var
  ServerPort: DevicePortType; // aus automatisch erzeugten SOAP.pas
begin
  Result := False;
{$IFDEF MSWINDOWS}
  CoInitialize(nil);
{$ENDIF MSWINDOWS}
  ServerPort := GetDevicePortType(False, fConfig.SoapServerAdress);
  if fConnectionOK then
  begin
    Result := aFunc(intparam, boolparam); // Das mag der Compiler nicht, es fehlen ja Parameter, aber die sollen 
                      // ja mit übergeben werden dachte ich...
  end;
{$IFDEF MSWINDOWS}
  CoUninitialize;
{$ENDIF MSWINDOWS}
end;

Das wäre eine Möglichkeit