idHTTP und XML

[akio87]

Hallo,

vielen Dank für Deine Hilfe.
Ich habe die XpathHelper.Pas nun in mein Programm eingebunden.

Ich bekomme nun eine Fehlermeldung: Microsoft MSXML nicht installiert. Gibt es dafür noch eine Abhilfe?

Ich habe es nun wie folgt:

Code:

uses
XpathHelper, msxml, xmldom, XMLDoc, XmlIntf;

procedure TMainForm.UniButton5Click(Sender: TObject);
var
   xmlDoc: IXMLDocument;
   stockNode: IXMLNode;
begin
   xmlDoc := LoadXMLData(UniMemo2.Lines.Text);  //Link EDI Schnittstelle für den Lagerbestand als XML Anzeige
   stockNode := TXpathHelper.SelectNode(xmlDoc.DocumentElement, '/stock/articlelist/article/stock');

   Write('stock is ');
   if not Assigned(stockNode) then
      WriteLn('unknown')
   else
      WriteLn(stockNode.Text);

   UniLabel1.Caption := stockNode.Text;   //Ausgabe
end;