DELPHI 把数据库中的数据转换成XML格式，给点建议！TKS

[Philzzf]

有没有现成的控件，没有的话该怎么做呢？
好建议都给分
TKS

[chechy]

function ReplaceString(AString: string): string;
begin
Result := StringReplace(AString, '&', '&', [rfReplaceAll]);
Result := StringReplace(Result, '>', '>', [rfReplaceAll]);
Result := StringReplace(Result, '<', '<', [rfReplaceAll]);
end;

function DataSetToXml(ADataSet: TDataSet;
Indent: Integer): string;
var
i: Integer;
Indent1, Indent2: string;
temp: string;
begin
Indent1 := Format('%*s', [Indent * 2, ' ']);
Indent2 := Indent1 + ' ';
Result := EmptyStr;
ADataSet.First;
while not ADataSet.Eof do
begin
Result := Result + Format('%s<%s>'#13#10, [Indent1, 'Record']);
for i := 0 to ADataSet.FieldCount - 1 do
if ADataSet.Fields[i].DataType in [ftString..ftAutoInc, ftMemo,
ftWideString] then
begin
temp := ReplaceString(ADataSet.Fields[i].AsString)
Result := Result + Format('%2:s<%0:s>%1:s</%0:s>'#13#10,
[ADataSet.Fields[i].FieldName, temp, Indent2])
end;
Result := Result + Format('%s</%s>'#13#10, [Indent1, 'Record']);
ADataSet.Next;
end;
end;

function GenerateXml(ADataSet: TDataSet): string;
begin
Result :=
Format('<?xml version="1.0" encoding="gb2312"?>'#13#10'<Records>'#13#10'%s</Records>',
[DataSetToXml(ADataSet, 1)]);
end;

[online]

用sqlserver2000可以自动生成xml
祝你好运

[budi]

关键是能有解析器分析XML文件并将结果加以利用，Delphi用的是MS的DOM，已经有现成的空件。

[tangss]

up

[kwhei]

DELPHI中有几个有用的相关的控件，它们可以将数据库真接以定制的HTML方式显示出来，不过需要做一些简单的设置。有进一步的需要可以联系我