ich möchte Webservices nutzen und habe die Webservice-Tools (für Synapse) installiert.
Nun möchte ich einen einfachen Service zur Währungsumrechnung nutzen, den ich unter http://www.webservicex.net/ws/WSDetails ... =2&WSID=10 gefunden habe.
Das Einlesen der WSDL-Datei hat auch geklappt und es wurden die beiden Dateien CurrencyConvertor_proxy.pas erzeugt CurrencyConvertor.pas erzeugt.
In der CurrencyConvertor finde ich auch zwei Klassen. Doch bei der Verwendung mache ich irgendetwas falsch, denn der folgende Code gibt mir nur eine 0 zurück.
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var sende : ConversionRate;
empfange : ConversionRateResponse;
begin
SYNAPSE_RegisterHTTP_Transport();
sende:= ConversionRate.Create();
empfange := ConversionRateResponse.Create();
sende.FromCurrency:=EUR;
sende.ToCurrency:=USD;
Edit1.Text:=FloatToStr(empfange.ConversionRateResult);
FreeAndNil(sende);
FreeAndNil(empfange);
end;
Irgendwie fehlt etwas, nur was?
Kennt sich jemand mit dieser Problematik aus?
Viele Grüße
Willi4Willi