把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;

你可能感兴趣的:(exception,function,String,服务器)