WebService 使用的释放变量

Question

如何释放 WebService 正在使用的变量。

我正在使用这个表格：

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

在我关闭Form的时候出现了错误，发现在我声明这部分的时候：

Trinity: = HttpPrincipal as CADServices;

我认为它被卡在了内存中。

错误如下：

“无效指针” 当您关闭表单时发生错误，在 OnClose 或 OnDestroy 表单中没有任何事件。

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

Answer 1

尝试在运行时创建 HTTPRIO，而不是使用设计时组件：

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;

用法：

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

如果您使用 WSDL 导入器导入 WSDL，则会自动为您生成此代码（查看 CadServices1 单元）