【原创】TClientDataSet研究之二：取得当前记录的数据包和刷新当前记录包

delphi本身并不提供当前记录的数据封包，但我们有一个途经可以获取，通过TDataSetProvieder的GetRecords获取。GetRecords虽然简单，但不能排除Blob字段、只取唯一主键字段等。通过研究CDS的RefreshRecord方法，提取了当前记录的封包。
Uses
DBClient,Variants,DSIntf;
type
    TMyCDS = class(TCustomClientDataSet);// 由于引用了Protected的一些方法和变量
/// <summary>
/// 获取当前记录的 OleVariant 封包
/// </summary>
/// <param name="CDS"></param>
/// <param name="Options"></param>
/// <returns></returns>
function GetRecordOleVar(CDS:TClientDataSet;Options:TFetchOptions):OleVariant;
var
     DataPacket: TDataPacket;
    NewData: OleVariant;
begin
{ Throw error if we are closed, but not if we are in the middle of opening }
if not Assigned(TMyCDS(CDS).DSCursor) then
       TMyCDS(CDS).CheckActive;
      
TMyCDS(CDS).UpdateCursorPos;
TMyCDS(CDS).Check(TMyCDS(CDS).DSCursor.GetRowRequestPacket
    (foRecord in Options, foBlobs in Options ,False, True, DataPacket));
DataPacketToVariant(DataPacket, NewData);
Result := NewData;
end;
假如服务端又返回一条记录的封包，怎样更新当前记录呢？
/// <summary>
/// 刷新当前记录
/// </summary>
/// <param name="CDS"></param>
/// <param name="OleVar">返回数据包</param>
procedure RefreshRecordByOleVar(CDS:TClientDataSet;OleVar:OleVariant);
begin
TMyCDS(CDS).UpdateCursorPos;
TMyCDS(CDS).Check(TMyCDS(CDS).DSCursor.RefreshRecord(VarToDataPacket(OleVar)));
if not TMyCDS(CDS).Active then
     Exit;
TMyCDS(CDS).DSCursor.GetCurrentRecord(TMyCDS(CDS).ActiveBuffer);
TMyCDS(CDS).Resync([]);
end;
有了这两个方法，我们可以自定义刷新当前记录的方法。默认的RefreshRecord受限很多，而且效率不是很高。我们可以将当前记录（不含Blob字段，发送效率更高）发送到服务端，通过自定义的类似TUpdateSQL的刷新方法，结合DSP，然后将查询回来的记录打包，再通过刷新合并当前记录。


        
        



        







        
          
            
            评论这张
          
        


          
            
              
            
            转发至微博