把ClientDataSet的修改的数据集Delta提交到服务器端

// 把版本的信息更新至服务器

function SubmitVersionInfo(var vMsg: string): Boolean;

var

RetData, Msg: OleVariant;

begin

Result := False;

try

with DMCaseClient.ClientDsVersion do

begin

// 把更新数据写入Delta中

if State <> dsBrowse then

Post();
// 判断是否有更新

if ChangeCount > 0 then

RetData := Delta;

Result := GetServer.UpdateVersionInfo(RetData, Msg);

vMsg := Msg;

end;

except

on E: Exception do

begin

vMsg := E.Message;

end;

end;

end;