idHTTP und XML

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

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

if not isZahl(stockNode.Text) then stockNode.Text := '0';
kannst Du dir dann sparen

[akio87]

Hallo,

super, vielen lieben Dank - es funktioniert.

Einen schönen Abend

LG