Bad Request
Exception lässt darauf schließen, dass in der
URL irgendwas nicht stimmt.
Habe den Quelltext mal ein bisserl angepasst (ungetestet):
Delphi-Quellcode:
sUrllong := 'http://evatr.bff-online.de/evatrRPC?UstId_1=%s&UstId_2=%s&Firmenname=%s&Ort=%s&PLZ=%s&Strasse=%s&Druck=ja';
If ShortQuery Then
Begin
sUrllong := Format('http://evatr.bff-online.de/evatrRPC?UstId_1=%s&UstId_2=%s'
+ '&Firmenname=%s&Ort=%s&PLZ=%s&Strasse=%s&Druck=ja',[
sagustid, // agustid,
aAdressenRec.Land+aAdressenRec.ust_id_nr, // customersustid
'', // firmenname
'', // firmaort,
'', // firmaplz,
'' // firmastrasse
]);
End
else
Begin
sUrllong := Format('http://evatr.bff-online.de/evatrRPC?UstId_1=%s&UstId_2=%s'
+ '&Firmenname=%s&Ort=%s&PLZ=%s&Strasse=%s&Druck=ja',[
sagustid, // agustid,
aAdressenRec.Land+aAdressenRec.ust_id_nr // customersustid,
aAdressenRec.Name, // firmenname,
aAdressenRec.Ort, // firmaort,
aAdressenRec.Plz, // firmaplz,
aAdressenRec.Strasse // firmastrasse
]);
End;
FormMain.Add_Debug('UST-ID Abfrage über Bundeszentralamt für Steuern ###############'+
#13#10+sUrlLong);
Try
idHttp1 := TIdHTTP.Create;
responseStream := TMemoryStream.Create;
Screen.Cursor := crHourGlass;
try
IdHTTP1.Get(sUrlLong, responseStream);
IdHTTP1.Disconnect(True);
except on E: EIdException Do
FormMain.add_info('UST Abfrage gescheitert '+E.Message);
end;
SetString(resultstring, PAnsiChar(responseStream.Memory), responseStream.Size);
Finally
idHttp1.Free;
responseStream.Clear;
responseStream.Free;
Screen.Cursor := crDefault;
End;
Wenn Du die bei FormMain.Add_Debug ausgegebene sUrlLong unverändert im Browser eingibst, funktioniert das?
Da ich keine Ahnung habe, welche Werte genau übergeben werden müssen, hab' ich es mal mit Nonsens versucht.
Es wird ein Ergebnis geliefert, welches besagt, dass meine Daten Nonsens sind.
Es wird aber keine
Exception geworfen.