von XML in Tabelle

[sakura]

Im Menü Projekt der Punkt Typelibrary importieren (oder so ähnlich; ich nutze die engl. Version).
......

[Snoop007]

habs jetzt auch gefunden
ich wusste gar nicht das delphi so eine funktion unterstütz
danke !!!

[wk_one]

Wenn man MSXML 4.0 verwendet, muss das dann auch auf dem System installiert sein auf dem die Anwendung läuft?

[MathiasSimmack]

Na logo!

Es reicht aber IMHO schon, wenn der IE vorhanden ist. Der sollte XML auch installieren. Der IE5 enthält, glaube ich, XML 3. Evtl. hat der 6er also die 4er-Version dabei.

Notfalls sollte man bei der Installation seiner Anwendung prüfen, ob das XML-Interface bekannt ist und im Fehlerfall die Installation von MS-XML anbieten. Oder zumindest den Anwender auffordern, MS-XML zu installieren.


@sakura:

Zitat:

ich arbeite den ganzen lieben, langen Tag mit dem MS XML DOM (und das seit über 2 Jahren).

Ohne Pause? Mann, was für ein langer Tag.

[MathiasSimmack]

Hätte ich fast vergessen. Quasi als Präventiv(vor)schlag (bevor die Frage kommt: wie kann man das prüfen?) hier eine Idee -

Mangels Rechner ohne XML weiß ich nicht, wie so ein Programm reagiert. Logisch, es wird nicht funktionieren ... Aber wahrscheinlich dürfte das System auch ein paar Fehler verursachen - vergleichbar mit dem statischen Laden von DLL-Funktionen, die es nicht gibt. Will sagen: die Fehler lassen sich evtl. nicht einfach unterbinden, weil die Typbibliothek keine dynamischen Zugriffe enthält. (Hab jedenfalls auf die Schnelle nichts davon gesehen.)

Um also ohne unschöne Fehlermeldungen auszukommen, empfehle ich die Prüfung in den Projektquelltext (*.dpr) zu schreiben und noch vor dem Erzeugen der Forms auszuführen:

Delphi-Quellcode:

uses
  { ... },
  Windows, Registry, ComObj, SysUtils;


function DoesXMLExist: boolean;
var
  reg : TRegistry;
  s   : string;
begin
  Result := false;

  reg    := TRegistry.Create(KEY_READ);
  if(reg <> nil) then
    with reg do try
      RootKey := HKEY_CLASSES_ROOT;

      if(OpenKey('CLSID\' + GuidToString(CLASS_DOMDocument40) +
        '\InProcServer32',false)) then
      try
        s      := ReadString('');
        Result := (s <> '') and (fileexists(s));
      finally
        CloseKey;
      end;
    finally
      Free;
    end;
end;


begin
  if(not DoesXMLExist) then begin
    MessageBox(0,'Dieses Programm erfordert min. MS XML 4',nil,
      MB_ICONERROR or MB_OK);
    Halt;
  end;

  // hier würden dann die Forms erzeugt werden, usw.
  Application.Initialize;
  { ... }
end.

Der Wert CLASS_DOMDocument40 ergibt sich in diesem Fall aus sakuras Beispielcode. Die Funktion "CoDOMDocument40.Create" verweist auf eben diesen Wert, der eine GUID ({88D969C0-F192-11D4-A65F-0040963251E5}) enthält. Diese muss es als Registryschlüssel geben, und sie sollte den Pfad zur entsprechenden DLL (hier "msxml4.dll") enthalten. Dann dürfte alles in Butter sein.

Im Fehlerfall (sprich: XML ist nicht installiert, und das Interface existiert darum nicht) wird die Anwendung hoffentlich beendet, bevor irgendein Formular erzeugt wird und evtl. automatisch (OnCreate, usw.) auf XML-Dateien zuzugreifen versucht.

[wk_one]

Danke übrigens für deine super Unterstützung. Hast mir wirklich sehr weitergeholfen.
Weiter so

[semo]

@sakkura

Code:

 // XML Datei laden
  XMLDoc.load('smiley.xml');

  // Fehler überprüfen
  if XMLDoc.parseError.errorCode <> 0 then
  begin
    ShowMessage('XML Fehler: '#13#10 + XMLDoc.parseError.reason);
    Exit;
  end;

wenn die datei nicht geladen werden kann aufgrund eines fehlers in der wohlgeformtheit, dann sollte man den fehler direkt in diesem schritt abfragen.

beispiel:

Code:

    if not xmlDoc.load(sDateiname) then
    begin
      // prüfen ob XML-File "wohlgeformt" ist:
      If xmlDoc.parseerror.errorCode <> 0 then
      begin
        // eine ausführliche Fehlermeldung zusammenstellen:
        sError := Format( 'XML-Datei %s ist nicht wohlgeformt --> Abbruch ||| ' +
                          'Code:    ' + ' %d +++ ' +
                          'Reason:  ' + ' %s +++ ' +
                          'URL:     ' + ' %s +++ ' +
                          'SrcText: ' + ' %s +++ ' +
                          'Line:    ' + ' %d +++ ' +
                          'LinePos: ' + ' %d +++ ' +
                          'FilePos: ' + ' %d',
                          [sDateiname,
                          xmlDoc.parseerror.Get_errorCode,
                          xmlDoc.parseerror.Get_reason(),
                          xmlDoc.parseerror.Get_url,
                          xmlDoc.parseerror.Get_srcText,
                          xmlDoc.parseerror.Get_line,
                          xmlDoc.parseerror.Get_linepos,
                          xmlDoc.parseerror.Get_filepos]);

        WriteToLogFile(sError);
        if Assigned(aErrorProc) then
          aErrorProc( 'XML-File ' + sDateiname + ' ist nicht wohlgeformt und ' +
                      'konnte deshalb nicht geladen werden!');
        Exit;
      end else
      begin
        if Assigned(aErrorProc) then
          aErrorProc('XML-Datei ' + sDateiname + ' nicht vorhanden!');
        exit;
      end;
    end else
      if Assigned(aInfoProc) then
        aInfoProc('XML-Datei ' + sDateiname + ' erfolgreich geladen!');