Перевести набор данных ADO в XML и обратно

Delphi , Интернет и Сети , XML

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

unit ADOXMLUnit;

 interface

 uses
   Classes, ADOInt;

 function RecordsetToXML(const Recordset: _Recordset): string;
 function RecordsetFromXML(const XML: string): _Recordset;

 implementation

 uses
   ComObj;

 { 
  Example: 
  ... 
    Memo1.Lines.Text:=RecordsetToXML(ADOQuery1.Recordset); 
  ... 
}
 function RecordsetToXML(const Recordset: _Recordset): string;
 var
    RS: Variant;
   Stream: TStringStream;
 begin
   Result := '';
   if Recordset = nil then Exit;
   Stream := TStringStream.Create('');
   try
     RS := CreateOleObject('ADODB.Recordset');
     RS := Recordset;
     RS.Save(TStreamAdapter.Create(stream) as IUnknown, adPersistXML);
     Stream.Position := 0;
     Result := Stream.DataString;
   finally
     Stream.Free;
   end;
 end;

 { 
  Example: 
  ... 
    ADOQuery1.Recordset:=RecordsetFromXML(Memo1.Lines.Text); 
  ... 
}

 function RecordsetFromXML(const XML: string): _Recordset;
 var
    RS: Variant;
   Stream: TStringStream;
 begin
   Result := nil;
   if XML = '' then Exit;
   try
     Stream := TStringStream.Create(XML);
     Stream.Position := 0;
     RS := CreateOleObject('ADODB.Recordset');
     RS.Open(TStreamAdapter.Create(Stream) as IUnknown);
     Result := IUnknown(RS) as _Recordset;
   finally
     Stream.Free;
   end;
 end;

 end.

Программный модуль на Delphi, который предлагает две функции: RecordsetToXML и RecordsetFromXML. Эти функции позволяют конвертировать объект ADO Recordset в XML и обратно.

Вот подробное описание кода:

RecordsetToXML

• Функция принимает объект _Recordset в качестве входного параметра.
• Создается объект TStringStream, чтобы хранить полученный XML-строку.
• Создается экземпляр класса ADODB.Recordset (используя COM) и присваивается ему входной Recordset-объект.
• Запись Recordset-объекта в поток с помощью параметра adPersistXML, который генерирует XML-представление данных.
• Функция возвращает полученную XML-строку, хранящуюся в потоке.

RecordsetFromXML

• Функция принимает строку, содержащую XML, в качестве входного параметра.
• Создается объект TStringStream, чтобы прочитать входную XML-строку.
• Создается экземпляр класса ADODB.Recordset (используя COM) и открывается из потока с помощью класса TStreamAdapter, который служит мостом между TStringStream Delphi и Recordset ADODB.
• Функция возвращает открытый Recordset-объект.

Код включает некоторые механизмы обработки ошибок, такие как проверка на null-входные параметры и освобождение ресурсов после их использования.

Вот несколько предложений по улучшению кода:

1. Рассмотрите использование более robust способа обрабатывать ошибки, например, с помощью исключений или кодов ошибок вместо просто выхода из функции при ошибке.
2. Можете добавить некоторые логирующие или отладочные выводы, чтобы помочь диагностировать проблемы с процессом конвертации.
3. Если вы работаете с большими данными, рассмотрите возможность оптимизации процесса сериализации и десериализации XML для улучшения производительности.

В целом, этот код предоставляет полезную утилиту для конвертации объектов ADO Recordset в XML и обратно.

В статье описывается практический пример конвертации набора данных ADO в XML и обратно, для чего используются функции RecordsetToXML и RecordsetFromXML в Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: XML ::