LightWeight XML-Unit gesucht

[Luckie]

Wenn ich davon die benötigte Unit erzeugen lasse habe ich alles wieder drinne: SysUtils, Classes, ... Und genau das will ich nicht.

[Udontknow]

Habe spasseshalber mal die Unit für XML 5.0 erzeugt, und die einzige Unit, die du tatsächlich dort drinnen brauchst, ist ActiveX. Alles andere kannst du entfernen. Wieso die dahingepackt werden, ist mir zwar nicht so klar, aber naja... ;-)

Edit: Tja, doch nicht sooo einfach. ComObj wird im Implementation-Teil angegeben, aber es scheinen nicht viele Routinen aus ComObj zu sein, die man benötigt (CreateComObject und CreateRemoteComObject). Vielleicht kann man die herausziehen?

Cu,
Udontknow

[Muetze1]

Hallo Luckie.

Damals gab es auf meiner Seite Probleme mit der Nutzung von IStream, aber das hat sich nun eigentlich gegeben, da ich zwischenzeitlich die Lib aus anderen Gründen umgestellt habe. Ich werde mich nochmal ran machen und eine erstellen, es sollten nun alle Probleme von damals gelöst sein. Ich melde mich dann nochmal...

[Udontknow]

Habe mir mal die Mühe gemacht, die Teile aus ComObj herauszuziehen, einige Stellen musst du noch anpassen, da ich z.B. nicht weiss, wie du dein Exceptionhandling betreibst.

Cu,
Udontknow

[xaromz]

Hallo,

auf meiner Seite findest Du unter Bibliotheken ein Archiv mit einer minimalen TLB für MSXML. Die einzigen benötigten Units sind ActiveX, Windows, Messages und Types.

Gruß
xaromz

[Luckie]

Ah, genau so etwas habe ich gesucht. Besten Dank.

[Muetze1]

Ok, dann spare ich mir die Zeit.

[mschaefer]

Jetzt hat es mich auch in die XML-Non-VCL verschlagen. Gibt es hier schon Neuigkeiten oder schläft das Topic... // Grüße Martin

[Luckie]

Also ich werde mal die Unit von xaromz ausprobieren und dann wietersehen.

[Luckie]

@xaromz: Wie kann ich denn mit deiner Unit eine XML-Dati laden?
Ic habe das jetzt so versucht:

Delphi-Quellcode:

procedure TImport.Import;
var
  User: TUser;
  XMLDoc: IXMLDOMDocument;
begin
  User := TUser.Create;
  XMLDoc := CoDOMDocument40.Create;

  if XMLDoc.load(FXMLFile) then
  begin
    writeln('gut');
  end
  else
  begin
    Writeln('Fehler');
  end;

  //Add(User);
end;

Aber da steigt er mir sofort aus dem Programm aus ohne Fehlermeldung oder so. :gruebel:

Die XML Datei im Anhang.