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;