XML Datei erzeugen und auslesen - uses Problem

[ImpCaligula]

Salü...

ich verwende Delphi 2005 und habe ein VCL Win32 erstellt. Und würde gerne eine XML Datei erstellen
und dann auslesen. Dazu habe ich ein "Buch" Bsp verwendet. Aber er moniert mir an, dass er den XMLSerializer
und den zweiten Serielizer nicht kennt, Was muss ich bei uses noch einbinden?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    cmd1: TButton;
    cmd2: TButton;
    procedure cmd2Click(Sender: TObject);
    procedure cmd1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
TMensch = class(TObject)
  public
    Alter: Byte;
    Name: String;
end;

var
  Form1: TForm1;

implementation


procedure TForm1.cmd1Click(Sender: TObject);
var
  Mensch: TMensch;
  Ser: XmlSerializer;
  Writer: StreamWriter;
begin
Mensch := TMensch.Create;
  Mensch.Alter := 15;
  Mensch.Name := 'fido';

  Writer := StreamWriter.Create('Mensch.xml');
  Ser := XmlSerializer.Create(typeof(TMensch));
  Ser.Serialize(Writer, Mensch);
  Writer.Close;
end;

procedure TForm1.cmd2Click(Sender: TObject);
var
  Mensch: TMensch;
  Ser: XmlSerializer;
  Reader: StreamReader;
begin
Reader := StreamReader.Create('Mensch.xml');
  Ser := XmlSerializer.Create(typeof(TMensch));
  Mensch := Ser.Deserialize(Reader) as TMensch;
  Reader.Close;

  showmessage(Mensch.Name + ' ist ' + IntToStr(Mensch.Alter + ' Jahre alt.'));
  
end;

end.

Diese zwei

Delphi-Quellcode:

  Ser: XmlSerializer;
  Writer: StreamWriter;

mosert er mir an :-/


Danke für Eure Hilfe.

[kolbaschedder]

So wie das aussieht, ist der XMLSerializer eine .Net-Klasse. Dafür müsstest du eine .Net-Anwendung erstellen.

MfG
Kolbi

[ImpCaligula]

Zitat von kolbaschedder:

So wie das aussieht, ist der XMLSerializer eine .Net-Klasse. Dafür müsstest du eine .Net-Anwendung erstellen.

MfG
Kolbi

Habe ich sonst eine Möglichkeit das mit VCL Win32 zu machen?

[Jelly]

TXMDocument z.B.

[zecke]

Zum Umgang mit XML habe ich mir im Forum mal ein Tutorial gefunden, das war ganz anschaulich und hat bei mir funktioniert. Schau mal nach XML und Tutorial, dann solltest fündig werden. [edit]Das Tutorial nutzte auch die von Jelly angesprochene TXMLDocument[/edit]

Ansonsten glaube ich wird das mit "Mensch.Name" nicht funktionieren, weil ich sowas in Erinnerung habe, dass Name 'reserviert', also nicht als Variablenamen nutzbar ist. Da bin ich mir allerdings nicht mehr ganz sicher

[Jelly]

Wenn du ein XSD Schema hast, so kannst Du dieses auch in Delphi importieren und über Klassen und Properties ganz bequem auf das XML Dokument zugreifen. Bequemer gehts wirklich nicht mehr. Wenn Du willst, such ich mal ein Beispiel raus und hängs hier rein.

[ImpCaligula]

Zitat von Jelly:

TXMDocument z.B.

& an zecke.....

Ich habe danach gesucht und folgende Anleitung gefunden:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XMLDoc, XMLIntf;

type
  TForm1 = class(TForm)
    cmd1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cmd1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
myFirstXML : IXMLDocument;

procedure TForm1.FormCreate(Sender: TObject);
begin
myFirstXML := newXMLDocument;
end;

procedure TForm1.cmd1Click(Sender: TObject);
begin
myFirstXML.LoadFromFile('test.xml');
end;

end.

Das habe ich 1:1 aus dieser "Hilfe" kopiert. Aber genau dies schlägt fehl:

Delphi-Quellcode:

procedure TForm1.cmd1Click(Sender: TObject);
begin
myFirstXML.LoadFromFile('test.xml');
end;

Was mache ich denn da falsch?

[Udontknow]

Was schlägt denn fehl? Bekommst du eine Fehlermeldung?

Cu,
Udontknow

[ImpCaligula]

Zitat von Udontknow:

Was schlägt denn fehl? Bekommst du eine Fehlermeldung?

Cu,
Udontknow

Ja logisch, man sollte nat. schon sagen, welcher Fehler genau auftritt zur Analyse. mein Fehler *g*.
Daher gleich mal eine HC gemacht - und hier ist das Ergebnis:

http://img208.imageshack.us/img208/4...meldungbi0.jpg

[Udontknow]

EDomParseError: Das könnte bedeuten, das es eventuell kein gültiges XML ist, was du da in der Datei hast. Probiere mal eine, von der du weisst, daß das XML korrekt aufgebaut ist (z.B. ein als XML abgespeichertes Clientdataset-File).

Cu,
Udontknow