Hi, also nachdem ich noch weiter gesucht habe bin ich nun hier:
Delphi-Quellcode:
procedure TForm1.SpeedButton2Click(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 := '
Borland';
myrequest.page := '
1';
myrequest.mode := '
dvd-de';
myrequest.sort := '
+salesrank';
myrequest.tag :='
webservices-20';
myrequest.type_ :='
lite';
myrequest.devtag := '
<meineID>';
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;
Ich bekomme jedoch immer einen BadRequest
Exception. Kann mir jemand helfen?