Question

How can I release a Variable that is being used by the WebService.

I’m using this form:

 HttpPrincipal.WSDLLocation: = FrmPrincipal.edtWS.Text;
 HttpPrincipal.Service: = 'CADServicesService'; 
 HttpPrincipal.Port := 'CADServices';     
 Trinity: = HttpPrincipal as CADServices;

At the moment when I will close the Form appears an error, and discovered that when I declare this part:

Trinity: = HttpPrincipal as CADServices;

I think it is getting stuck in memory.

The error is the following:

“Invalid Pointer”
The error happens when you close the form, does not have any event in the OnClose or OnDestroy form.

Descriptions:
Trinity : CADServices,
HttpPrincipal is a THTTPRIO,
CADServices is my Unit containing all procedures / functions from WebService.

Answer 1

Instead of using the designtime component try to create HTTPRIO at runtime:

function GetCadServices(Addr : String): CadServices;
const
  defSvc  = 'CADServicesService';
  defPrt  = 'CADServices';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  RIO := THTTPRIO.Create(nil)  
  try
    Result := (RIO as CadServices);
    RIO.WSDLLocation := Addr;
    RIO.Service := defSvc;
    RIO.Port := defPrt;
  finally
    if (Result = nil) then
      RIO.Free;
  end;
end;

Usage:

Trinity := GetCadServices(FrmPrincipal.edtWS.Text);

If you imported the WSDL with the WSDL importer this code is automatically generated for you (look in the CadServices1 unit)