Amazon API - WSDL - Developer Program

[CCRDude]

Schau mal ganz unauffällig in Beitrag #4
Dort ist ja schon ein allgemeines Beispiel... aber wenn Du es ganz ausführlich willst:

Delphi-Quellcode:

program TestAmazon;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Classes,
  Dialogs,
  snlProtoAmazonOnca;

procedure ShortInfoDump(Item: TAmazonItem);
begin
   WriteLn('ASIN:    ' + Item.ASIN);
   WriteLn('Artists: ' + Item.Artists.CommaText);
   WriteLn('Product: ' + Item.ProductName);
   WriteLn('Manufacturer: ' + Item.Manufacturer);
   WriteLn('Release Date: ' + FormatDateTime('dddddd', Item.ReleaseDate));
end;

procedure snlProtoAmazonOncaTestExecute;
var al: TAmazonList;
begin
   al := TAmazonList.Create;
   al.AssociateID := ''; { TODO : Fill in your associate ID }
   al.DeveloperToken := ''; { TODO : Fill in your dev-token }
   al.AccessKeyID := ''; { TODO : Fill in your access key ID }

   al.QueryType := aqtDevToken;
   WriteLn('-=[ DevToken lookup for "New Model Army" ]=-');
   if al.QueryArtist('New%20Model%20Army') then begin
      if al.Count>0
       then ShortInfoDump(al[0]);
   end else WriteLn('Could not query artist (devtoken): ' + al.LastErrorMessage);
   WriteLn;

   WriteLn('-=[ AWS lookup for ASIN B000E1162Q ]=-');
   al.Clear;
   al.QueryType := aqtAWS;
   if al.QueryAsin('B000E1162Q') then begin
      if al.Count>0
       then ShortInfoDump(al[0]);
   end else ShowMessage('Could not query ASIN (aws): ' + al.LastErrorMessage);
   al.Free;
end;

begin
   snlProtoAmazonOncaTestExecute;
end.

Das führt beide Methoden vor; wer kein altes DevToken hat (arne99 meinte ja, die häts nur bis '04 gegeben), sollte natürlich nur al.QueryType = aqtAWS verwenden; die Query*-Routinen können alle beide Methoden.

Die beiden Bugs bzgl. ReleaseDate und Titel per AWS hab ich inzwischen gefixt, nur noch nicht hochgeladen, da die Turbo Delphi-IDE gerade mal wieder in eine Endlos-Error-Runde gegangen ist