Ich verzweifle langsam.
Ich versuche das Beispielprogramm von der Microsoftseite Code4Fun
Using the Amazon Web Service
von Peter Bernhardt
nach Delphi WIN32 zu übersetzen.
Das C# Programm hab ich mit dem Visual C# Express Edition erstellt, Das Delphi Win 32 Programm mit
BDS 2006 Prof.
Die
WSDL Datei wurde (wie beim obigen C# Programm) von der Adresse:
http://soap.amazon.com/schemas3/AmazonWebServices.wsdl
mit dem Delphi-Tool
WSDL-Import importiert (Beim C# Programm natürlich mit dem Tool von Visual Express)
Mein kleines DELPHI Programm sieht dann so aus:
Delphi-Quellcode:
procedure TForm4.Button3Click(Sender: TObject);
var
KeywordReq : KeywordRequest;
amazonWS : AmazonSearchPort;
aproductInfo : ProductInfo;
details : GetTransactionDetailsResponse;
begin
KeywordReq := KeywordRequest.Create;
try
KeywordReq.locale:='
de';
KeywordReq.type_:='
lite';
KeywordReq.sort:= '
reviewrank';
KeywordReq.mode:='
dvd';
KeywordReq.keyword:='
casablanca';
KeywordReq.tag:=MeineAMAZONID;
KeywordReq.devtag:=MeineAMAZONID;
KeywordReq.page:='
';
KeywordReq.price:='
';
amazonWS:=GetAmazonSearchPort(true);
try
aproductInfo:=amazonWS.KeywordSearchRequest(KeywordReq);
//<------ Hier steigt er aus
if high(aproductInfo.Details) > 0
then
showMessage('
Gefunden' )
else
ShowMessage('
nicht gefunden');
except
on e :
exception do
begin
showMessage(e.
Message);
end;
end;
finally
KeywordReq.Free;
end;
end;
Was ich auch mache beim KeywordSearchRequest Befehl steigt er immer mit dem Fehler aus:
"
We encountered an error at our end while processing your request. Please try again"
Ich übergebe exakt das Gleiche wie im C#-Programm. C# läuft - Delphi leider nicht!!
Brauche es aber in Delphi, weil ich es in ein vorhandenes Projekt einbinden muss.
Jemand eine Idee???
Schon mal Danke für die Unterstützung
Knatterton