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;

[Der schöne Günther]

Das mit CoInitialize ist schon mal richtig :thumbs

Nur: Schau dir doch mal das Beispiel von weiter oben an. Oder drücke mal F1 über

Delphi-Quellcode:

LoadXmlData(..)

: Die Doku sagt:

Zitat:

Als Parameter wird ein XML-String übergeben

Du steckst da allerdings nicht den XML-Inhalt, sondern deine URL rein. Den XML-Inhalt musst du schon selber abholen (z.B. mit den Indy-Komponenten).


Edit: Jetzt hast du den Fehler schon gefunden und korrigiert.
Ohne es zu prüfen: Du hast eine VCL-Anwendung und keine Konsolen-Anwendung, richtig? Dann kannst du Dinge wie WriteLn(..) natürlich auch nicht benutzen ;-)
Tausche es einfach gegen ein ShowMessage(..) oder was dir gefällt.

[akio87]

Hallo,

Ja ich dachte mir, bevor ich ein doppel Beitrag erstelle, Editiere ich lieber.
Sorry für deine Bemühungen, bevor ich den Beitrag editiert habe.

Ja, Unglaublich! Es funktioniert :D

Vielen Lieben Dank!!

Endversion:

Code:

uses
XpathHelper, msxml, xmldom, XMLDoc, XmlIntf


procedure TMainForm.UniButton5Click(Sender: TObject);
var
   xmlDoc: IXMLDocument;
   stockNode: IXMLNode;
begin
CoInitialize(nil);
try
   UniMemo2.Lines.Text := idhttp2.Get('https://xxxxxx.de/ws/stock?key=xxxxxx&manufacturerid=xxxxxxxx&real=1');
   xmlDoc := LoadXMLData(UniMemo2.Lines.Text);
   stockNode := TXpathHelper.SelectNode(xmlDoc.DocumentElement, '/stock/articlelist/article/stock');
   ShowMessage(stockNode.Text);  //Ausgabe irgendwo hin
finally
  CoUninitialize;
end;
end;

[akio87]

Guten Abend,

ich habe zu meinem Thema noch eine Frage.

Wenn das Produkt nicht bei der Stock Abfrage gefunden wird, wird ein Zugriffsfehler ausgeworfen (Siehe Screenshots).

Dies passiert, wenn er eine isZahl Abfrage startet. Wenn das Produkt nicht gefunden wurde beim Distri, dann ist StockNode = nil und kann das nicht als isZahl prüfen.

Habt Ihr eine Idee, wie ich das umgehen kann?

Delphi-Quellcode:

       CoInitialize(nil);
        try
          ImageVerfügbar[n] := TUniImage.Create(self);
          ImageVerfügbar[n].Parent := PanelArray[n];
          //ImageVerfügbar[n].SetBounds( ButtonArray[n].Left - 25 , ButtonArray[n].Top , 25, 25);
          ImageVerfügbar[n].SetBounds( PanelArray[n].Width - 25 , 5 , 20, 20);
          ImageVerfügbar[n].Center := true;
          ImageVerfügbar[n].Stretch := true;
          ImageVerfügbar[n].ShowHint := true;

          UniMemo1.Clear;
          UniMemo1.Lines.Text := UniMainModule.idhttp1.Get('https://xxx.de/ws/stock?key=XXXXX&manufacturerid=' + WarenkorbButtonArray[n].Hint + '&real=1');
          xmlDoc := LoadXMLData(UniMemo1.Lines.Text);
          stockNode := TXpathHelper.SelectNode(xmlDoc.DocumentElement, '/stock/articlelist/article/stock');

          if not isZahl(stockNode.Text) then stockNode.Text := '0';

            if StrToInt(stockNode.Text) >= 1 then
             begin
               ImageVerfügbar[n].Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\files\pics\Verfügbarkeit\symbol_richtig.jpg');
               ImageVerfügbar[n].Hint := stockNode.Text + ' Stück verfügbar.' + #10
                                                        + ' - Dieses Produkt befindet sich momentan in unserem Zentrallager.' + #10
                                                        + ' - Restmenge kann innerhalb von ca. 5-10 Werktagen nachgeliefert werden.';
             end
            else
             begin
               ImageVerfügbar[n].Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\files\pics\Verfügbarkeit\symbol_falsch.jpg');
               ImageVerfügbar[n].Hint :=  'Liefertermin noch unbestimmt' + #10
                                        + ' - Dieses Produkt befindet sich momentan nicht in unserem Zentrallager.' + #10
                                        + ' - Wir erwarten in den nächsten Tagen einen Wareneingang und wird umgehend nachgeliefert.';
             end;

        finally
          CoUninitialize;
        end;

[HolgerX]

Hmm..

vielleicht so:

Delphi-Quellcode:

if (Assigned(stockNode)) and (StrToIntDef(stockNode.Text,0) >= 1) then 
 begin

und die Zeile

Delphi-Quellcode:

if not isZahl(stockNode.Text) then stockNode.Text := '0';

kannst Du dir dann sparen