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?