Delphi中使用FB4D的Get方法误删节点并写入时间戳求助

首先要明确一个关键事实：Firebase Realtime Database的Get方法是纯读取操作，本身绝对不会修改数据库中的数据。你遇到的“所有节点被删除、路径下写入时间戳”的问题，肯定不是Get直接导致的，而是代码中其他写入逻辑的问题，只是触发时机和Get重叠让你产生了误解。

下面一步步拆解问题并给出解决思路：

1. 先排查GetRTDBPath的返回值 #

这个函数是所有数据库操作的路径核心，如果它返回的是根路径（比如空字符串、"/"），那么任何针对这个路径的写入操作（比如Set方法）都会直接覆盖整个数据库，导致原有所有节点被删除。

建议你先临时添加调试代码，输出这个函数的返回值：

function TForm3.GetRTDBPath: string;
begin
  Result := '/users/' + UID; // 这是示例，确保指向用户专属子节点
  ShowMessage('当前DB路径：' + Result); // 调试用，确认路径是否正确
end;

正确的路径应该是用户专属的子节点（比如/users/你的UID），而不是根路径。

2. 重点检查SaveUser函数的实现 #

你在onServerStamp回调中调用了SaveUser，但没有贴出这个函数的代码——这大概率是问题的源头。如果SaveUser中使用了Set方法（而非Patch），并且路径是根路径，就会完全覆盖数据库，把原有数据全部删除，同时写入你设置的用户信息（包括时间戳）。

举个错误示例（这可能就是你遇到的情况）：

// 错误示例：用Set覆盖根路径
procedure TForm3.SaveUser;
var
  UserObj: TJSONObject;
begin
  UserObj := TJSONObject.Create;
  try
    UserObj.AddPair('UID', UID);
    UserObj.AddPair('Email', Email);
    UserObj.AddPair('LastLogin', sDate.ToString);
    fConfig.RealTimeDB.Set(GetRTDBPath, UserObj, nil, onError); // Set会覆盖整个路径下的所有数据
  finally
    UserObj.Free;
  end;
end;

修正方案： #

• 确保路径是用户专属子节点（比如/users/UID）
• 用Patch替代Set，Patch只会更新指定字段，不会覆盖整个节点的现有数据：

procedure TForm3.SaveUser;
var
  UserObj: TJSONObject;
begin
  UserObj := TJSONObject.Create;
  try
    UserObj.AddPair('Email', Email);
    UserObj.AddPair('LastLogin', FormatDateTime('yyyy-mm-dd hh:nn:ss', sDate));
    // 使用Patch仅更新需要的字段
    fConfig.RealTimeDB.Patch(GetRTDBPath, UserObj, ShowRTNode, onError);
  finally
    UserObj.Free;
  end;
end;

3. 关于GetServerVariables的误解 #

你调用GetServerVariables(cServerVariableTimeStamp, GetRTDBPath, ...)是用来获取服务器时间戳，这个操作不会写入数据库，它只是让Firebase服务器返回当前的时间戳值。你看到的时间戳写入，肯定是在SaveUser或其他写入逻辑中完成的。

4. 快速验证方法 #

先注释掉onServerStamp中的SaveUser调用，然后运行代码：

procedure TForm3.onServerStamp(const ServerVar: string; Val: TJSONValue);
var
  ST: int64;
begin
  ST := StrToInt64(Val.Value);
  sDate := TTimeZone.Local.ToLocalTime(UnixToDateTime(ST div 1000));
  // SaveUser; // 临时注释掉
  UpdateLoginStatus;
end;

如果此时调用Get不再出现节点被删除的情况，就可以100%确定问题出在SaveUser函数中。

内容的提问来源于stack exchange，提问作者Amo