Amazon Webservice

[MikeSP2]

Hallo,

ich hab seit Tagen das Problem das ich bei Amazon Artikel nach ASIN abfragen möchte.
Also versuchte ich mit dem Beispiel zu beginnen:

http://www.delphipraxis.net/150505-d...sha-256-a.html


Ich hab die fehlenden librarys mir besorgt und das wst-toolkit(neuste Version) unter RAD-Studio2010
installiert.

Ich habe auch nach Anleitung:

http://wiki.lazarus.freepascal.org/Web_Service_Toolkit

die WSDL Datei eingelesen.
Wenn ich aber den Code Compileren möchte bleibt er mir immer bei mehren Zeilen stehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 AWSPort: AWSECommerceServicePortType;
  AmazonPort: AWSECommerceServicePortType;
  body: ItemSearch;                                       <----kennt er nicht
  arr_request: Array_Of_ItemSearchRequest;                <----kennt er nicht
  aRequest: ItemSearchRequest;                            <----kennt er nicht
  aResponse: ItemSearchResponse;                          <----kennt er nicht
  i: Integer;
  j: Integer;
begin
 AWSPort := GetAWSECommerceServicePortType(False,'',HTTPRIO1);     <---Die Get-Funktion kennt er nicht
   body := ItemSearch.Create;
   body.AWSAccessKeyId := AWSID;
   body.SubscriptionId := sACCES_ID;
   body.AssociateTag := sACCES_ID;

    aRequest := ItemSearchrequest.Create;
    aRequest.SearchIndex := 'Video';
    aRequest.Title := 'Matrix';

    SetLength(arr_request, 1);
    arr_request[0] := aRequest;
    body.Request := arr_request;

    aResponse := AWSPort.ItemSearch(body);
    for i := 0 to Length(aResponse.Items) - 1 do
      for j := 0 to Length(aResponse.Items[i].Item) - 1 do
      begin
        Memo1.Lines.Add(aResponse.Items[i].Item[j].ItemAttributes.Title);
      end;
end;

Hat sich da bei Amazon etwas geändert das der Code nicht läuft?
Oder Hab ich was vergessen einzubinden?
Oder hat mir Jemand mal einen funktionierenden Code für eine Anfrage?

Gruß
MikeSp