Result := nil; EvHandler := TEventHandlers.Create(); if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; RIO.HTTPWebNode.OnBeforePost := EvHandler.aOnBeforePost; RIO.HTTPWebNode.UseUTF8InHeader := True; try Result := (RIO as SICWebServiceSoap); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end;
----------------------------------------------
-