idHTTP und XML

[akio87]

Hallo,

ich habe nun sehr viele Beiträge zu XML gefunden und bin ein wenig verwirrt über die viel zahl an verschiedenen Möglichkeiten...

Aus einer URL z.B. www.xxxxxxx.de/KEY&Parameter=ArtikelNummer bekomme ich im Browser eine XML Ansicht angezeigt:

Code:

<stock>
<articlelist>
<article>
<articleid>ArtNr</articleid>
<stock>MENGE</stock>
</article>
</articlelist>
</stock>

Mich interessiert nun den Wert in stock MENGE /stock

Wie kann man dieses auslesen und in einem String speichern? Ich finde im Internet nur Möglichkeiten von externen Libs. Gibt es eine Variante ohne extra großen Aufwand zu betreiben?

Leider bin ich zum Thema XML und idHTTP nicht fit genug, um das komplett allein zu verstehen...

Meine Anwendung:
Delphi XE8 + UniGui

Habt ihr einen Guten Rat für ein Anfänger zu diesem Thema? Ich kann mir gut vorstellen, dass es irgendwo so ein ähnlichen Beitrag existiert, aber bisher bin ich mit den gefundenen Quellcodes nicht zurecht gekommen.

Ich freue mich sehr.

Danke.

[Der schöne Günther]

Wenn du genau weißt welchen Knoten du haben willst ist "XPath" eigentlich eine super Sache.

Der Pfad des Knotens wäre in deinem Fall

Code:

/stock/articlelist/article/stock

und du kannst einfach sagen:

Delphi-Quellcode:

   stockNode := TXpathHelper.SelectNode(xmlDoc.DocumentElement, '/stock/articlelist/article/stock');

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

Ja, das "TXPathHelper" ist wohl eine "externe Lib". Aber die Handvoll Zeilen geht eigentlich: http://www.delphipraxis.net/177650-x...ml#post1236534

Hier nochmal der Vollständigkeit halber:

Delphi-Quellcode:

procedure justXmlThings();
const
   myContent =
      '<stock>' + sLineBreak +
       '<articlelist>' + sLineBreak +
       '<article>' + sLineBreak +
       '<articleid>ArtNr</articleid>' + sLineBreak +
       '<stock>MENGE</stock>' + sLineBreak +
       '</article>' + sLineBreak +
       '</articlelist>' + sLineBreak +
       '</stock>';
var
   xmlDoc: IXMLDocument;
   stockNode: IXMLNode;
begin
   xmlDoc := LoadXMLData(myContent);
   stockNode := TXpathHelper.SelectNode(xmlDoc.DocumentElement, '/stock/articlelist/article/stock');

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

[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;

[geskill]

Also normalerweise ist MSXML auf jedem Windows-PC installiert. Entweder 4 oder 6. Du kannst es aber auch nachträglich wieder installieren: https://www.microsoft.com/de-de/down...s.aspx?id=6276

[akio87]

Wenn ich in Delphi Komponente importieren möchte, wird mir auch MSXML 3 und 6 angeboten.

Habe es jetzt einfach mal erneut nachinstalliert und es erscheint der selbe Fehler...

[akio87]

Hallo,

okay ich glaub es gelöst zuhaben, mit CoInitialize...

jetzt bekomme ich eine Fehlermedung: E/A Fehler 105

Habt Ihr eine Idee?

Code:

var
   xmlDoc: IXMLDocument;
   stockNode: IXMLNode;
   Text : String;
begin
CoInitialize(nil);
try     
   Text := idhttp2.Get('https://xxxxxxx.de/ws/stock?key=xxxxxx&manufacturerid=xxxxxx&real=1');
   xmlDoc := LoadXMLData(Text);
   stockNode := TXpathHelper.SelectNode(xmlDoc.DocumentElement, '/stock/articlelist/article/stock');

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

   UniCheckBox1.Caption := stockNode.Text;
finally
  CoUninitialize;
end;
end;