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