Cover von Amazon?

[mlspider]

So Leute, ich habe es geschafft mein Cover-Load auf die AWS Version 4.0 umzustellen.

Da sich ja leider bei Amazon ab dem 08.08.2009 leider bei Amazon einiges geändert hat, ist das Abrufen von Cover wesentlich erschwert worden. Vor den oben genannten Datum funktioniert folgende Variant einwandfrei.

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, JvGIF, StdCtrls, InvokeRegistry, Rio,
  SOAPHTTPClient, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, ComCtrls, amazonwebservices;

procedure TCover.Button3Click(Sender: TObject);
var AmazonService : AmazonSearchPort;
    myrequest     : KeywordRequest;
    ret           : ProductInfo;
begin
  myrequest        := KeywordRequest.Create;
  HTTPRio1.WSDLLocation := 'http://soap-eu.amazon.com/schemas3/AmazonWebServices.wsdl'; 
  try
    myrequest.keyword := Edit1.Text;
    myrequest.page    := '1';
    myrequest.mode    := 'music-de';
    myrequest.sort    := '+salesrank';
    myrequest.tag     :='webservices-20';
    myrequest.type_   :='lite';
    myrequest.devtag  := 'xxxxxxxxxxxxxxxxxxxxx';
    myrequest.locale  :='de';
    ret:=ProductInfo.Create;
    try 
      try
        Amazonservice := HTTPRio1 as AmazonSearchPort;
        ret:=AmazonService.KeywordSearchRequest(myrequest);
      except 
        exit; 
      end; 

  {process Productinfo} 
    finally 
      ret.free; 
    end; 
  finally
    myrequest.free;
  end;
end;

Jetzt greife ich via PHP über mein Tool (Delphi) auf den AWS zu.

Hier der Beweis:

http://identy-design.de/beam/screen/Cover.jpg

Und wenns interessiert, poste ich nachher mal meine vollständige Lösung.