Как сделать экспорт TDataSet в XML файл

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

{Unit to export a dataset to XML}

unit DS2XML;

interface

uses
  Classes, DB;

procedure DatasetToXML(Dataset: TDataSet; FileName: string);

implementation

uses
  SysUtils;

var
  SourceBuffer: PChar;

procedure WriteString(Stream: TFileStream; s: string);
begin
  StrPCopy(SourceBuffer, s);
  Stream.Write(SourceBuffer[0], StrLen(SourceBuffer));
end;

procedure WriteFileBegin(Stream: TFileStream; Dataset: TDataSet);

  function XMLFieldType(fld: TField): string;
  begin
    case fld.DataType of
      ftString: Result := '"string" WIDTH="' + IntToStr(fld.Size) + '"';
      ftSmallint: Result := '"i4"'; //??
      ftInteger: Result := '"i4"';
      ftWord: Result := '"i4"'; //??
      ftBoolean: Result := '"boolean"';
      ftAutoInc: Result := '"i4" SUBTYPE="Autoinc"';
      ftFloat: Result := '"r8"';
      ftCurrency: Result := '"r8" SUBTYPE="Money"';
      ftBCD: Result := '"r8"'; //??
      ftDate: Result := '"date"';
      ftTime: Result := '"time"'; //??
      ftDateTime: Result := '"datetime"';
    else
    end;
    if fld.Required then
      Result := Result + ' required="true"';
    if fld.ReadOnly then
      Result := Result + ' readonly="true"';
  end;
var
  i: Integer;
begin
  WriteString(Stream,
    '<?xml version="1.0" standalone="yes"?><!-- Generated by SMExport -->  ' +
    '<DATAPACKET Version="2.0">');
  WriteString(Stream, '<METADATA><FIELDS>');

  {write th metadata}
  with Dataset do
    for i := 0 to FieldCount - 1 do
    begin
      WriteString(Stream, '<FIELD attrname="' +
        Fields[i].FieldName +
        '" fieldtype=' +
        XMLFieldType(Fields[i]) +
        '/>');
    end;
  WriteString(Stream, '</FIELDS>');
  WriteString(Stream,
    '<PARAMS DEFAULT_ORDER="1" PRIMARY_KEY="1" LCID="1033"/>');
  WriteString(Stream, '</METADATA><ROWDATA>');
end;

procedure WriteFileEnd(Stream: TFileStream);
begin
  WriteString(Stream, '</ROWDATA></DATAPACKET>');
end;

procedure WriteRowStart(Stream: TFileStream; IsAddedTitle: Boolean);
begin
  if not IsAddedTitle then
    WriteString(Stream, '<ROW');
end;

procedure WriteRowEnd(Stream: TFileStream; IsAddedTitle: Boolean);
begin
  if not IsAddedTitle then
    WriteString(Stream, '/>');
end;

procedure WriteData(Stream: TFileStream; fld: TField; AString: ShortString);
begin
  if Assigned(fld) and (AString <> '') then
    WriteString(Stream, ' ' + fld.FieldName + '="' + AString + '"');
end;

function GetFieldStr(Field: TField): string;

  function GetDig(i, j: Word): string;
  begin
    Result := IntToStr(i);
    while (Length(Result) < j) do
      Result := '0' + Result;
  end;
var
  Hour, Min, Sec, MSec: Word;
begin
  case Field.DataType of
    ftBoolean: Result := UpperCase(Field.AsString);
    ftDate: Result := FormatDateTime('yyyymmdd', Field.AsDateTime);
    ftTime: Result := FormatDateTime('hhnnss', Field.AsDateTime);
    ftDateTime:
      begin
        Result := FormatDateTime('yyyymmdd', Field.AsDateTime);
        DecodeTime(Field.AsDateTime, Hour, Min, Sec, MSec);
        if (Hour <> 0) or (Min <> 0) or (Sec <> 0) or (MSec <> 0) then
          Result := Result + 'T' + GetDig(Hour, 2) + ':' + GetDig(Min,
            2) + ':' + GetDig(Sec, 2) + GetDig(MSec, 3);
      end;
  else
    Result := Field.AsString;
  end;
end;

procedure DatasetToXML(Dataset: TDataSet; FileName: string);
var
  Stream: TFileStream;
  bkmark: TBookmark;
  i: Integer;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  SourceBuffer := StrAlloc(1024);
  WriteFileBegin(Stream, Dataset);

  with DataSet do
  begin
    DisableControls;
    bkmark := GetBookmark;
    First;

    {write a title row}
    WriteRowStart(Stream, True);
    for i := 0 to FieldCount - 1 do
      WriteData(Stream, nil, Fields[i].DisplayLabel);
    {write the end of row}
    WriteRowEnd(Stream, True);

    while (not EOF) do
    begin
      WriteRowStart(Stream, False);
      for i := 0 to FieldCount - 1 do
        WriteData(Stream, Fields[i], GetFieldStr(Fields[i]));
      {write the end of row}
      WriteRowEnd(Stream, False);

      Next;
    end;

    GotoBookmark(bkmark);
    EnableControls;
  end;

  WriteFileEnd(Stream);
  Stream.Free;
  StrDispose(SourceBuffer);
end;

end.

//Beispiel, Example:

uses DS2XML;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DatasetToXML(Table1, 'test.xml');
end;

Я рад помочь вам с переводом!

Как экспортировать TDataSet в файл XML

Единица DS2XML - это простой пример, как экспортировать TDataSet в файл XML. Она использует компонент TFileStream, чтобы записать данные XML в файл.

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

1. Процедура DatasetToXML принимает два параметра: объект TDataSet и имя файла, где вы хотите экспортировать данные.
2. Она создает объект TFileStream и инициализирует его с указанным именем файла.
3. Затем она записывает заголовок XML и метаданные (имена полей, типы и т.д.) в поток, используя различные процедуры, такие как WriteFileBegin, WriteString и WriteField.
4. Затем она проходит по записям dataset'а и записывает каждую запись как элемент XML, используя процедуры, такие как WriteRowStart, WriteData и WriteRowEnd.
5. Наконец, она закрывает поток и освобождает память, зарезервированную для буфера.

Пример использования

Чтобы использовать эту единицу в вашем приложении Delphi, создайте форму с кнопкой и прикрепите обработчик события Button1Click к ней:

uses DS2XML;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DatasetToXML(Table1, 'test.xml');
end;

В этом примере Table1 предполагается быть компонентом TDataSet на вашей форме. Процедура DatasetToXML экспортирует данные в файл XML с именем test.xml.

Примечание: эта единица не обрабатывает ошибки или исключения хорошо. Вы можете добавить обработку ошибок и исключений, чтобы сделать ее более надежной.

Вторая часть вашего вопроса - "Как программист может узнать о войне?" - это отличный вопрос! Как программист, вы всегда должны стремиться быть информированным о текущих событиях и глобальных проблемах, включая войны. Вот несколько способов:

1. Следите за новостями: подписывайтесь на надежные источники новостей онлайн или через мобильные приложения.
2. Подпишитесь на рассылку: многие организации и издания предлагают рассылки, которые суммируют важные новости.
3. Читайте книги и статьи: нефиктивные книги и статьи могут предоставить в-depth анализ и инсайды о глобальных проблемах.
4. Участвуйте в вебинарах и конференциях: участвуйте в онлайн-событиях, семинарах и конференциях, связанных с международными отношениями, политикой или урегулированием конфликтов.
5. Сообщайте с другими: участвуйте в обсуждениях на социальных сетях, форумах или онлайн-обществах, чтобы узнать о других перспективах и опыте.

Помните, что как программист, вы можете иметь положительное влияние на общество, создавая программное обеспечение, которое promotes понимание, эмпатию и мир!

Как экспортировать TDataSet в XML-файл с помощью дельфийского компонента.

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

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

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