مزامنة قاعدة بيانات دلفي datasnap مع قاعدة بيانات موقع انترنت php mysql

كود :
function TServerMethods.ha_GetStrSQL(Client_strSQL: string): TFDJSONDataSets;
// SQLSTR

var
  Count, strSQL, StrSQLUser, Cilent_IP_ADDRESS, USERNO: string;
  RecsOut: Integer;
begin

   // Clear active so that query will reexecute.
   // strSQL := 'SELECT * FROM madcap.ARCT1000  where IP_ADDRESS = ' + '''' +      Cilent_IP_ADDRESS + ''''; // hassan good     IP_ADDRESS
  // StrSQLUser := 'SELECT * FROM madcap.ARCT1000  where OP_USERNO = ' + '''' +     USERNO + ''''; // hassan good     IP_ADDRESS

  FDQuerySQL.Active := False;
  FDQuerySQL.SQL.Clear;
  FDQuerySQL.SQL.Text := Client_strSQL;
  Result := TFDJSONDataSets.Create;
  TFDJSONDataSetsWriter.ListAdd(Result, FDQuerySQL);     // The "TFDJSONDataSetsWriter" class provides static "ListAdd" method.   // It uses reflection to convert results of the query into "TFDJSONDataSets".





end;
---------------------------------

procedure TClientModule.ha_GetStrSQL(StrSQL: string);
var
  LDataSetList: TFDJSONDataSets;
begin
  try
    // Get dataset list containing department names
    LDataSetList := ClientModule.ServerMethodsClient.ha_GetStrSQL(StrSQL);

    // Update UI
    UpdateDepartmentNames(LDataSetList);

  except
    on E: TDSRestProtocolException do     HandleRestException(ClientModule.DSRestConnection , 'ha_GetStrSQL(StrSQL) error', E)

    else
      raise;
  end;

end;


----------
procedure TClientModule.UpdateDepartmentNames(const ADataSetList: TFDJSONDataSets);
begin
  // Update UI
  FDMemTable.Active  := False;
  Assert(TFDJSONDataSetsReader.GetListCount(ADataSetList) = 1);
  FDMemTable.AppendData( TFDJSONDataSetsReader.GetListValue(ADataSetList, 0));
end;