Обертка для TClientDataSet

Комментарии

• ShaginAA

  September 2006 отредактировано September 2006

  А могли бы Вы поделиться своей разработкой? Я на днях собирался сам писать обертку для ClientDataSet. Требуется для работы, да со временем ограничен. Буду очень признателен. Что бы не остаться в долгу могу предложить взамен свои наработки(free:)):
  SOAP+MIDAS: Прозрачный перевод MIDAS-серверов на протокол SOAP(state-full Web Services: ) Компоненты и их описание
  e-mail: [IMG][/img] http://www.vspu.ru/is/sites/wss/saa.gif
• yuramag Москва

  September 2006 отредактировано September 2006

  ShaginAA написал:

  А могли бы Вы поделиться своей разработкой? Я на днях собирался сам писать обертку для ClientDataSet. Требуется для работы, а самому писать, так со временем ограничен. Буду очень признателен. Что бы не остаться в долгу могу предложить взамен свои наработки(free:)):
  1) FR3: AddIn для FR3 - Code Comletition
  2) SOAP+MIDAS: Прозрачный перевод MIDAS-серверов на протокол SOAP(state-full Web Services: ) Компоненты и их описание

  Могу, конечно...
• ShaginAA

  September 2006 отредактировано 07:50

  Огромное спасибо...
  Все замечательно работает.
  Пока что никаких проблем не обнаружил.
• yuramag Москва

  October 2006 отредактировано 07:50

  Вопрос к разработчикам!
  Почему бы не включить подобные компоненты в базовую версию FastReport (для всех версий Delphi)?
  Ведь в многозвенных приложениях без них никак не обойтись (имеются ввиду случаи, когда пользователю предоставляется возможность создавать собственные отчеты)!
• yuramag Москва

  November 2011 отредактировано 07:50

  Новая версия с поддержкой свойств CloneSource и DistinctFields.
  Плюс обёртка над TADMemTable. Пример использования последней:
  

  procedure TdmFastRep.frxMEMComponentsGetTableNames(ATableList: TStrings;
    ShowSystemTables: Boolean);
  var
    I: Integer;
  begin
    ATableList.Clear;
    for I := 0 to MyTableList.Count - 1 do
      ATableList.Add(TableList.Keys[I]);
  end;
  
  procedure TdmFastRep.frxMEMComponentsGetData(ADataTable: TDataTable;
    const ASQL: string; AParams: TParams; MaxRecords: Integer);
  var
    Dataset: TDataset;
  begin
    if Trim(ASQL) = '' then
      Exit;
  
    Dataset := CreateMyDatasetAndGetData(ASQL, AParams);
    try
      ADataTable.CopyDataSet(Dataset, [coStructure, coRestart, coAppend]);
    finally
      Dataset.Free;
    end;
  end;