Paradox in XML

[Derek Hamschmidt]

Hallo,

hat jemand hier eine einfache Lösung parat, wie sich eine bestehende Paradox Datenbank möglichst einfach nach XML konvertieren läßt? Die verwendete Delphi Version ist mir Jacke wie Hose.

Schon mal im voraus vielen Dank für Antworten.

Derek

[Andreas Kosch]

Hallo,

sowohl das DOM-Objekt (Document Object Model) von <i>Microsoft XML 3</i> als auch das Stream-Objekt von ADO (ab MDAC 2.5) ist dazu in der Lage - wobei beide Alternativen mit beliebigen Datenbanken umgehen können. Im Fall von Paradox greift ADO über die <i>Microsoft JET Engine</i> als OLE DB-Provider auf die Paradox-Datenbank zu, um die Daten einzulesen. Die beiden folgenden Beispiele demonstrieren den Weg:
<pre>
uses
MSXML2_TLB, // Typbibliothek \WINNT\System32\msxml3.dll
ADODB_TLB; // Typbibliothek \Programme\Gemeinsame Dateien\System\ADO\msado15.dll

{$R *.DFM}

function RecordsetToXML(const aRS: Recordset): String;
var
aXML : IXMLDOMDocument2;
begin
aXML := CoDOMDocument30.Create;
aRS.Save(aXML, adPersistXML);
Result := aXML.xml;
end;

function RecordsetToXML2(const aRS: Recordset): String;
var
aStrm : Stream;
begin
aStrm := CoStream.Create;
aRS.Save (aStrm, adPersistXML);
Result := aStrm.ReadText(aStrm.Size);
aStrm.Close;
end;
</pre&gt

[Derek Hamschmidt]

Na da sage ich doch einen vielen herzlichen Dank für die prompte und funktionierende Antwort. Ich bin begeistert.

Dere