盒子论坛 v2.1

function TForm3.MySaveFdData(tableName: string; fmt1: TFDMemTable): Boolean;
var
  FMemStream: TMemoryStream;
begin
  Result := False;

  if fmt1.State in dsEditModes then
    fmt1.Post;
  if fmt1.ChangeCount = 0 then
    Exit;

  FMemStream := TMemoryStream.Create;
  try
    try
      fmt1.ResourceOptions.StoreItems := [siDelta, siMeta];
      fmt1.SaveToStream(FMemStream, TFDStorageFormat.sfBinary);
      FMemStream.Position := 0;

      if FDStoredProcPost.Active then
        FDStoredProcPost.Close;
      FDStoredProcPost.ParamByName('tableName').AsString := tableName;
      FDStoredProcPost.ParamByName('AStream').asStream:= FMemStream;
      FDStoredProcPost.ExecProc;
      Result := FDStoredProcPost.ParamByName('ReturnValue').AsBoolean;
    except
      On E: Exception do
        raise Exception.Create(E.Message);
    end;
  finally
   //FMemStream.Free; 释放报错
  end;
end;
stream作为参数上传后，释放会出错
我看官方datasnap demo也不释放stream
----------------------------------------------
-

信息

登陆以后才能回复