PS:Ganz vergessen, Sorry!
Delphi-Quellcode:
constructor TMasterbaseTest.Create;
var
InterfaceVariable : IMainService;
begin
inherited;
FHTTPRIO := THTTPRIO.Create(
NIL);
// <--- NIL!!
FHTTPRIO.WSDLLocation := GlobalServer+'
/cgi-bin/meinService.dll/wsdl/IMainService';
FHTTPRIO.Service := '
IMainService';
InterfaceVariable := FHTTPRIO
as IMainService;
// NEU!
end;
Erzeugt auch beim Free eine
Exception!
Mavarik