当我尝试免费的 TJSONObject 时访问冲突

Question

我有下面的代码，但是当我尝试释放变量 checkID 时，出现访问冲突错误，如果我不销毁它，我将遇到 memory 泄漏问题。

function TdtmData.CheckID(AID: String): Boolean;
var
  checkID : TJSONObject;
  clientModule : TcmClientModule;
  ok : Boolean;
begin
  Result := False;
  try
    try
      clientModule := TcmClientModule.Create(Self);
      checkID := clientModule.smMethodsServerClient.CheckID(AID);
      ok := checkID.GetValue<Boolean>('Register', False);
      if not(ok) then
        raise Exception.Create('ID ERROR.');
    finally
      clientModule.DisposeOf;
      checkID.Free; // <-- The error is here (Access violation)
    end;
    Result := ok;
  except
    on e : Exception do
      raise Exception.Create(e.Message);
  end;

end;

smMethodsServerClient.CheckID(AID) 方法是通过 TDSRestConnection 组件自动创建的。

function TsmMethodsServerClient.CheckID(AID: string; const ARequestFilter: string): TJSONObject;
begin
  if FCheckIDCommand = nil then
  begin
    FCheckIDCommand  := FConnection.CreateCommand;
    FCheckIDCommand.RequestType := 'GET';
    FCheckIDCommand.Text := 'TsmMethodsServer.CheckID';
    FCheckIDCommand.Prepare(TsmMethodsServer_CheckID);
  end;
  FCheckIDCommand.Parameters[0].Value.SetWideString(AIDPDV);
  FCheckIDCommand.Execute(ARequestFilter);
  Result := TJSONObject(FCheckIDCommand.Parameters[1].Value.GetJSONValue(FInstanceOwner));
end;

我还使用 Datasnap REST 客户端模块向导来创建我的 class TcmClientModule。

Answer 1

用作 DataSnap 的参数的 JSONValue 不需要是 Free。

另外，如果释放参数object的memory，释放DataSnap DataModule或第二次调用该参数的接口时可能会出错。

即使每次都创建一个新的 JSONValue 参数来使用 DataSnap 接口，也不会出现 memory 泄漏等问题。

此外，不应进一步释放作为 DataSnap 接口结果接收的 JSONValue 对象。

=================================================

clientModule.DisposeOf;

这为 checkID 释放了 memory。 但是，“checkID:= nil”没有设置。 下面的条件语句会一直执行，执行时会出错。

if Assigned(checkId) then 
  checkID.Free;

Answer 2

也许当你在做这件事时

clientModule.DisposeOf;

checkID将被销毁，因为checkID是clientModule的一部分，因为这部分代码

clientModule.smMethodsServerClient.CheckID(AID);

您可以先尝试清除checkID ，然后再清除clientModule 。

更新：避免错误的另一种方法是在销毁之前检查checkId 。 也许这种方式是合适的：

if Assigned(checkId) then 
  checkID.Free;

也许除了这个检查之外，您还需要检查 object 的null 。