Wrapper für SOAP Aufrufe gesucht

[Fritzew]

Die andere Möglichkeit :

Delphi-Quellcode:

 TSoapCall = reference to function (): boolean  ;

function TMyClass.SOAPComWrapper(aFunc: TSoapCall): 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(); // Das mag der Compiler 
                     
  end;
{$IFDEF MSWINDOWS}
  CoUninitialize;
{$ENDIF MSWINDOWS}
end;

// Aufrufen
if SOAPComWrapper(function() : boolean
   begin
    result := myCall(1, false); // Hie den gewünschten Aufruf
   end

  ) then;