Einzelnen Beitrag anzeigen

Benutzerbild von Codewalker
Codewalker

Registriert seit: 18. Nov 2005
Ort: Ratingen
945 Beiträge
 
Delphi XE2 Professional
 
#221

Re: himXML (gesprochen himix ML)

  Alt 2. Mai 2010, 20:00
Ich versuche erfolglos folgende XML-Datei zu laden (nur der relevante Anfang:
XML-Code:
  <?xml version="1.0" ?>
 <ItemSearchResponse xmlns="http://webservices.amazon.com/AWSECommerceService/2009-07-01">
 <OperationRequest>
  <RequestId>147c6ffa-697d-4a9b-86e0-2c9216c2cd60</RequestId>
 <Arguments>
  <Argument Name="Operation" Value="ItemSearch" />
  <Argument Name="Service" Value="AWSECommerceService" />
  <Argument Name="Signature" Value="uXLTuuePbsbl977Rcz+6TNyq3ihx3J52+KN6jt4DlSA=" />
  <Argument Name="ItemPage" Value="1" />
  <Argument Name="AssociateTag" Value="bla" />
  <Argument Name="Version" Value="2009-07-18" />
  <Argument Name="Keywords" Value="Matrix" />
  <Argument Name="AWSAccessKeyId" Value="KEY" />
  <Argument Name="Timestamp" Value="2010-05-02T18:52:50Z" />
  <Argument Name="ResponseGroup" Value="Large" />
  <Argument Name="SearchIndex" Value="DVD" />
  </Arguments>
  <RequestProcessingTime>0.1835730000000000</RequestProcessingTime>
  </OperationRequest>
 <Items>
 <Request>
  <IsValid>True</IsValid>
 <ItemSearchRequest>
  <Condition>New</Condition>
  <DeliveryMethod>Ship</DeliveryMethod>
  <ItemPage>1</ItemPage>
  <Keywords>Matrix</Keywords>
  <MerchantId>Amazon</MerchantId>
  <ResponseGroup>Large</ResponseGroup>
  <ReviewSort>-SubmissionDate</ReviewSort>
  <SearchIndex>DVD</SearchIndex>
  </ItemSearchRequest>
  </Request>
  <TotalResults>130</TotalResults>
  <TotalPages>13</TotalPages>
 <Item>
  <ASIN>B001G5HB2I</ASIN>
  <DetailPageURL>http://www.amazon.de/Matrix-Complete-Trilogy-Keanu-Reeves/dp/B001G5HB2I%3FSubscriptionId%3D1HDS51J6EDYSCKF0YJ82%26tag%3Dtastenhacker-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D165953%26creativeASIN%3DB001G5HB2I</DetailPageURL>
  </Item>
 </Items>
</ItemSearchResponse>
usw.

Mein Code sieht so aus:
Delphi-Quellcode:
procedure Parse(ResponseXML: string);
var
  XML: TXMLFile;
  I: integer;
  Movie: TMovie;
  PicURL: string;
begin
  XML := TXMLFile.Create();
  try
    ClearMovies();
    XML.LoadFromXML(ResponseXML);
    with XML.Node['ItemSearchResponse'].Node['Items'] do
    begin
      Self.TotalResults := Node['TotalResults'].Text;
      Self.TotalPages := Node['TotalPages'].Text;
      for I := 0 to Nodes.Count - 1 do
      begin
        if Nodes[i].Name = 'Itemthen
        begin
         // Mach was mit Item
        end;
      end;
    end;
  finally
    XML.Free;
  end;
end;
Ich bekomme aber für TotalResults und TotalPages immer eine 0. Wo liegt mein Problem?
  Mit Zitat antworten Zitat