由数据库数据生成XML的方法（有源码）

最新推荐文章于 2019-01-19 13:13:01 发布

oklemon

最新推荐文章于 2019-01-19 13:13:01 发布

阅读量1.4k

点赞数

分类专栏： delphi 文章标签： xml 数据库 stream dataset integer string

本文链接：https://blog.csdn.net/oklemon/article/details/15574

版权

本文介绍了如何将数据库中的数据转换为XML文件，详细展示了Delphi代码实现，包括创建XML文件的结构，遍历数据并写入XML，以及使用MSXML库创建XML DOM对象进行数据插入。还提供了生成XML文件后的查看效果以及数据回填到数据库的示例。

摘要由CSDN通过智能技术生成

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

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, ' ' +
'');
WriteString(Stream, '');

{write th metadata}
with Dataset do
    for i := 0 to FieldCount-1 do
    begin
      WriteString(Stream, '');
    end;
WriteString(Stream, '');
WriteString(Stream, '');
WriteString(Stream, '');
end;

procedure WriteFileEnd(Stream: TFileStream);
begin
WriteString(Stream, '');
end;

procedure WriteRowStart(Stream: TFileStream; IsAddedTitle: Boolean);
begin
if not IsAddedTitle then
WriteString(Stream, '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);
    ft