Problem mit SOAP und Klassen

[Alter Mann]

Hallo,

so würde es gehen:

Delphi-Quellcode:

{ Invokable-Interface IFileLoader }
...
  
  THFS_fselem = class(TRemotable)
  ...
  published
     function ExistsFile(const FileURL : WideString): Boolean;
  ...
  end;

  IFileLoader = interface(IInvokable)
  ['{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}']
    ...
    function ExistsFile(const FileURL : WideString): Boolean; stdcall;
  end;

Delphi-Quellcode:

{ Invokable-Implementierungsdatei für TFileLoader das IFileLoader implementiert }

type

  { TFileLoader }
  TFileLoader = class(TInvokableClass, IFileLoader)
  public
    function ExistsFile(const FileURL : WideString): Boolean; stdcall;
  end;

implementation

function TFileLoader.ExistsFile(const FileURL : WideString): Boolean; stdcall;
var
  HFS_fselem : THFS_fselem;
begin
  HFS_fselem := THFS_fselem.Create;
  try
     Result := HFS_fselem.ExistsFile(FileURL);
  finally
     HFS_fselem.Free;
  end;
end;

Gruß
Alter Mann