Amazon API - WSDL - Developer Program

[arne99]

Teilweise bezugnehmend: [DP-Beitrag] Amazon API Connect

Hallo,

gibt es bereits von euch gefundene Beispiele bzw. Routinen mit der API in Delphi f. W32 umzugehen?

Ich habe schon einige Ansätze gefunden, jedoch gibt mir selbst das Developer Programm von Amazon nicht mehr Beispiele.

Was ich suche wäre:

Ansätze, CodeSchnipsel o.Ä. für:

• Produktsuche
• Thumbnail holen und in TImage packen / cachen

Leider scheitert es bei mir schon beim Verbinden mit der WSDL File und meiner Amazon Dev Account ID.

Vielen Dank im Vorraus.

[CCRDude]

Habs ja schon im anderen Topic geschrieben, aber wenn's so wichtig ist, schreib ich mal eben ne LGPL-Unit dafür, die meinen eh schon vorhandenen Code schöner macht ;)

[dominikkv]

Delphi-Quellcode:

  keyword := 'Mein Suchbegriff'; 
  ID := 'Meine ID ABC';
  Image := 'MediumImage'; // Imagegröße
  T := 'http://webservices.amazon.de/onca/xml?Service=AWSECommerceService&AWSAccessKeyId='+ID+
         '&AssociateTag=&Operation=ItemSearch&SearchIndex=Music&Keywords=' +
         keywords+'&ResponseGroup=Medium';
  T := StringReplace(T,' ','%20',[rfReplaceAll]);
  HTTP := TIdHttp.Create();
  T := HTTP.Get(t);
  HTTP.Free;
  t := copy(t, Pos('<'+Image+'>', t), Pos('</'+Image+'>', t)-Pos('<'+Image+'>', t));
  t := copy(t, Pos('<URL>', t)+5, Pos('</URL>', t)-Pos('<URL>', t)-5);

und in t steht dann die url zum image

[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?

[arne99]

Vielen Vielen Dank, wird getestet.

Zur Info an alle "Neulinge":
Developer Token: If you signed up to use Amazon Web Services prior to August 2004, you have a Developer Token. As Developer Tokens are no longer supported and will not work with newer services, we encourage anyone who has a Developer Token to create a new account.

[arne99]

WO deklariere ich: [DCC Error] snlProtoAmazonOnca.pas(1225): E2003 Undeclared identifier: 'XMLify' ?

Danke im Vorraus.

Zitat:

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?

Vielen Dank. Letztes wird mir helfen. Wenn ich oberen Fehler behoben bekomme.

[CCRDude]

Ah, Tschuldigung, das war gerade in die snlCollection.pas gewandert ;)

Delphi-Quellcode:

function XMLify(AText: string): string;
begin
   AText := StringReplace(AText,'&','&',[rfReplaceAll]);
   Result := AText;
end;

[arne99]

Muss nochmal stören:

Ich bin gerade am Debuggen und versuche rauszubekommen wieso ich keine Ausgabe erhalte.
Ich erhalte keine der Messageboxes.

Liegt das daran dass ich keinen DevToken besitze? (Weil an sich nicht notwendig, laut Amazon Api References)

[CCRDude]

Keinerlei Ausgabe? Lass mal überlegen... das würde heißen, das einerseits das QueryArtist funktioniert hat, andererseits die Rückgabeliste aber leer ist.

Du kannst beim debuggen ja mal einen Breakpoint auf die dritte Codezeile von QueryGeneral setzen (nachdem sUrl gesetzt wurde), sUrl in eine Watch hauen und von dort in die Zwischenablage kopieren und im Browser testen.

Wahrscheinlich müsste ich in der Unit noch ergänzen, daß der Rückgabewert, der innerhalb der XML-Datei angegeben wird, für Result ausgewertet wird...

PS: Download erweitert, Rückgabewert jetzt aktualisiert, pack in das erste ShowMessage noch ein al.LastErrorMessage, das zeigt Dir den genauen Fehler an.

edit #2: in diesem Demo ist zufälligerweise ein dev-token angegeben, das sogar gültig ist ;)

Auf längere Frist sollte ich aber vielleicht einen Query der neuen URL, die nicht per dev-token funktioniert, ergänzen.

[arne99]

Juhuuu ich habs - und eigentlich nicht. Aber bin der Lösung nahe!

Die URL scheint Okay zu sein, wird aber nicht ausgegeben von Amazon, da:

Zitat:

We encountered an error while processing your request. Please make sure that you are using a valid developer token and that you have registered for this service. For more information, please visit http://www.amazon.com/webservices

Also von vorn:

Mein DevToken und AssID sind gesetzt, wohl aber in der falschen Reihenfolge oder gar ganz falsch?

In Amazon wird mir eine andere Bezeichnung gegeben:

Your Access Key ID:
-

Your Secret Access Key:
-

LÖSUNG: Man sollte es tauschen ;)

Ergebnis: Exception: Die XML konnte nicht ausgelesen werden, hier Info:

Zeile 1180 von snlProtoAmazonOnca.pas stoppt er! (Access violation error)