Welche Komponete nehme ich zur Darstellung von XML-Dateien?

[HeZa]

Zitat:

Zitat von Bomberbb (Beitrag 1038530)

Ich möchte verschiedene Datensätze aus einer XML-Datei in einer Tabelle anzeigen. Da ich bis jetzt noch nie etwas mit Datenbankkomponenten zu tun hatte, die Frage, welche Komponente die beste für meine Zwecke ist.

Wir müssen öfters XML-Daten in eine Datenbank-Importieren. Dabei gehen wir meistens so vor, dass wir eine XSL-Transformationsdatei schreiben, die die orginal XML-Daten in ein TClientDataSet kompatibles Format wandeln. Anschließend lesen wir die transformierte XML-Datei mit einem TClientDataset ein.

(den folgenden Source habe ich leicht verändert aus einem bestehenden Projekt kopiert. Eventuelle Syntax-Fehler sind für Dich)

Delphi-Quellcode:

function ImportXML(const xmlFileName, xslFileName: String; var errorMsg: String): Boolean;
var
  inputXML: IXMLDOMDocument;
  transormationXSL: IXMLDOMDocument;
  locData: TClientDataset;
begin
  Result := True;

  locData := TClientDataset.Create(nil);
  try
    try
      inputXML := coDOMDocument60.Create;
      inputXML.async := False;
      inputXML.validateOnParse := False;

      transormationXSL := coDOMDocument60.Create;
      transormationXSL.async := False;
      transormationXSL.validateOnParse := False;

      if not inputXML.load(xmlFileName) then
        raise Exception.CreateFmt('%s', [inputXML.parseError.reason]);

      if not transormationXSL.load(xslFileName) then
        raise Exception.CreateFmt('%s, XSL-File: %s', [transormationXSL.parseError.reason, xslFileName]);

      locData.XMLData := inputXML.transformNode(transormationXSL);
      locData.Open;

      while not locData.EOF do
        begin
        // Do The Import here
        // Do Commit here if you want to commit every single record
        locData.Next;
        end;

      // Do Commit here if you want to commit the whole import or nothing
    finally
      locData.Free;
    end;

  except
    on e: Exception do
      begin
      errorMsg := e.Message;
      //DB.Rollback;
      Result := False;
      end
  end;
end;

für die DOM-Objekte musst du die MSXML-Typbibliothek importieren. Um das Format des ClientDataset zu erhalten erstellst du die gewünschte Struktur und speicherst sie im XML Format. Dann musst Du dich noch ein bisschen in XSL-Transformation einlesen.

[Bomberbb]

Nun, da müsste ich bei jedem Filter wieder neu die Datei öffnen.

Werde mich jetzt mal an erste Versuche wagen, danke!

[HeZa]

Zitat:

Zitat von Bomberbb (Beitrag 1038571)

Nun, da müsste ich bei jedem Filter wieder neu die Datei öffnen.

Wenn du das jetzt auf die XSL-Transformation beziehst, ist das nicht richtig. Du könntest einmal alle Datensätze in das ClientDataset laden und dann mit der Filter-Eigenschaft des ClientDataset filtern. Wenn ohne Filtern die Datenmenge zu groß ist, ist das natürlich keine Option.

[mschaefer]

Kann man die Microsoft xml Implementierung auch dazu bewegen die xml-datei mit ordentlichem Zeilenumbruch zu schreiben, sodass man diese auch mit einem Texteditor wie Notepad anschauen kann?

[himitsu]

Zitat:

Zitat von mschaefer (Beitrag 1057052)

Kann man die Microsoft xml Implementierung auch dazu bewegen die xml-datei mit ordentlichem Zeilenumbruch zu schreiben, sodass man diese auch mit einem Texteditor wie Notepad anschauen kann?

Ja, aber je nach verwendetem Interface versteckt es sich woanders.

Beim TXMLDocument steckt dieses in den .Options unter irgendwas mit "Ident".

[mschaefer]

Hallo Himitsu,

Danke für den 'Tip'. Nach dem Ding hätte ich bestimmt noch ein Jahr suchen können.
Na und wenn in 5 Jahren der Delphi-Mac-Compiler kommt, kann ich das dann ehedem auf
Dein XML umstellen.

Grüße aus Hannover

Martin