Amazon API - WSDL - Developer Program

[CCRDude]

Na gut, ich hab's dann in 2225 statt 12 Zeilen gemacht, dafür wenigstens mit Fehlerbehandlung, ordentlichen Auslesen des XML, Möglichkeit alle Ergebnisse zu unterscheiden, etc.

snlProtoAmazonOnca.pas

Benutzung:

Delphi-Quellcode:

procedure snlProtoAmazonOncaTestExecute;
var al: TAmazonList;
begin
   al := TAmazonList.Create;
   al.DeveloperToken := 'XXXXXXXXX';
   al.AssociateID := 'YYYYYYYY';
   if not QueryArtist('New%20Model%20Army')
    then ShowMessage('Could not query artist!');
   if al.Count>0 
    then ShowMessage(al[0].ImageUrlLarge);
   al.Free;
end;

edit: Die Unit noch minimal ergänzt um: 1. Indy als Download-Alternative und 2. DownloadAndSaveLargeImageFile in den Items, da Du die ja auch runterladen und speichern wolltest?