Hallo,
ich habe mal ein altes Projekt von mir herausgesucht, um hier und da ein paar Änderungen vorzunehmen. Es handelte sich hierbei um einen CD-Ripper mit Tag-Editor. Das Cover bezog das Programm über die Amazon-
API.
Delphi-Quellcode:
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 := '
meine Access Key ID';
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;
Komischerweise passiert gar nichts mehr. Hat sich bei Amazon irgend etwas geändert???
Wäre für jeden Tip dankbar.