OLEVARIANT 의 대체 - FIREDAC 의 TFDJSondataSets 와 TFDJSondeltas

OLEVARIANT——  COM     ，  DATASNAP    20      ，
 20      ，         ：FIREDAC TFDJSONDataSets TFDJSONDeltas，XE5 UPDATE2     DATASNAP               2      。
FIREDAC TFDCONNECTION   “GENERATE DATASNAP CLIENT CLASSES”  ，     ，         TSQLCONNECTION         ，
          ？    。

TFDJSONDataSets：       ，   N      ，            （   ）               。

TFDJSONDeltas：       DELTA  ，   N DELTA，            （   ）               。

        ？
DATASNAP       COM   ，      。
          OLEVARIANT？

        ，    。
                  。

 ）        
1）    ：
const
  sDepartment = 'Department'; sEmployees = 'Employees';

2) 조회 데이터:

function TServerMethods1.GetDepartmentEmployees(const AID: string): TFDJSONDataSets; begin // Clear active so that query will reexecute. FDQueryDepartmentEmployees.Active := False; FDQueryDepartment.Active := False; FDQueryDepartment.Params[0].Value := AID; FDQueryDepartmentEmployees.Params[0].Value := AID;   // Create dataset list Result := TFDJSONDataSets.Create; // Add departments dataset TFDJSONDataSetsWriter.ListAdd(Result, sDepartment, FDQueryDepartment); // Add employees dataset TFDJSONDataSetsWriter.ListAdd(Result, sEmployees, FDQueryDepartmentEmployees); end;

TFDJSONDataSets，FIREDAC        ，        。

3）    ：

procedure TServerMethods1.ApplyChangesDepartmentEmployees( const ADeltaList: TFDJSONDeltas); var LApply: IFDJSONDeltasApplyUpdates; begin // Create the apply object LApply := TFDJSONDeltasApplyUpdates.Create(ADeltaList); // Apply the department delta LApply.ApplyUpdates(sDepartment, FDQueryDepartment.Command); if LApply.Errors.Count = 0 then // If no errors, apply the employee delta LApply.ApplyUpdates(sEmployees, FDQueryDepartmentEmployees.Command); if LApply.Errors.Count > 0 then // Raise an exception if any errors. raise Exception.Create(LApply.Errors.Strings.Text); end;

 ）       
1）    ：

procedure TForm2.GetDepartmentEmployees(const ADEPTNO: string); var LDataSetList: TFDJSONDataSets; LDataSet: TFDDataSet; begin LDataSetList := ClientModule1.ServerMethods1Client.GetDepartmentEmployees(ADEPTNO); // Get department dataset LDataSet := TFDJSONDataSetsReader.GetListValueByName(LDataSetList,sDepartment); // Update UI FDMemTableDepartment.Active := False; FDMemTableDepartment.AppendData(LDataSet);   // Get employees dataset LDataSet := TFDJSONDataSetsReader.GetListValueByName(LDataSetList, sEmployees); // Update UI FDMemTableEmployee.Active := False; FDMemTableEmployee.AppendData(LDataSet); end;
2）    ：

function TForm2.GetDeltas: TFDJSONDeltas; begin // Post if editing if FDMemTableDepartment.State in dsEditModes then begin FDMemTableDepartment.Post; end;   if FDMemTableEmployee.State in dsEditModes then begin FDMemTableEmployee.Post; end;   // Create a delta list Result := TFDJSONDeltas.Create; // Add deltas TFDJSONDeltasWriter.ListAdd(Result, sEmployees, FDMemTableEmployee); TFDJSONDeltasWriter.ListAdd(Result, sDepartment, FDMemTableDepartment); end;

procedure TForm2.ApplyUpdates; var LDeltaList: TFDJSONDeltas; begin LDeltaList := GetDeltas;   // Call server method. Pass the delta list. ClientModule1.ServerMethods1Client.ApplyChangesDepartmentEmployees(LDeltaList);   end;

  ：
           2   ：
TFDStanStorageJSONLink
 TFDStanStorageBinLink