【结贴】3108取消Message 出错**

liubin

static function TSystemUtils.ReadUserInfo(const AScope, AID: string; var AValue: string; AStream: TStream): Boolean;
var
  lQuery: TQuery;
begin
  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString := cSysDatabaseConnectionString;
    if Assigned(AStream) then
      lQuery.CommandText := SysUtils.Format(cSQL_GetResInfo_2_ex, [BizSys.BizSystem.ClientAccount])
    else
      lQuery.CommandText := SysUtils.Format(cSQL_GetResInfo_1_ex, [BizSys.BizSystem.ClientAccount]);
    with lQuery.Params do
    begin
      ParamByName('SCOPE').AsString := cUserScope + AScope;
      ParamByName('ID').AsString := AID;
    end;
    lQuery.Open;
    if lQuery.IsEmpty then
      Result := False
    else
    begin
      AValue := lQuery.FieldByName('FINFOVALUE').AsString;
      if Assigned(AStream) then
        with TBlobField(lQuery.FieldByName('FINFOVALUEEXT')) do
          if not IsNull then SaveToStream(AStream);
      Result := True;
    end;
  finally
    lQuery.Free;
  end;
end;

shangxy

把 业务模型\系统空间\系统运行库\配置库 中
所有的“ExtUtils”换成“systemUtils.TSystemUtils”
然后编译一下看看

liubin

配置库 中 找不到ExtUtils 代码我贴出来了

shangxy

代码都是对的，奇怪了，你把系统函数库和配置库都签出编译一下，签入刷新缓存在看看吧。

liubin

试了，还是出错

liubin

顶

shangxy

只有这一个客户端有问题么？
把客户端本地的datacache目录删除，重新登陆看看呢？

liubin

一大部分客户都有这个问题，删除本地datacache目录  不起作用

liubin

怎么没人理我？

liubin

我这问题，怎么拖怎么久？