so... ich glaube ich komme meiner sache näher... habe jetzt
ActiveX hinzugefügt und siehe das funkt!
Delphi-Quellcode:
program test;
{$APPTYPE CONSOLE}
uses
SysUtils,
xmldoc,
xmlintf,
activex;
var
a : TXmlDocument;
begin
try
CoInitialize(
nil);
a := TXMLDocument.Create(
nil);
a.Active := True;
a.LoadFromFile('
C:\test.xml');
except
on e :
exception do begin
writeln(e.
message);
a.Free;
halt(1);
end;
end;
a.Free;
CoUninitialize;
end.
jetzt muss ich mir nur noch den Wert auslesen, hat da jemand ein Beispiel für mich?