eine HTTP "GET" Abfrage will nicht - hier der Code
Code: Alles auswählen
//LOTW Daten abfragen
procedure TForm1.BtnLoadClick(Sender: TObject);
var
http : THTTPSend;
DAnsw : TStringList;
req : string;
ErrMsg: string;
begin
http:= THTTPSend.Create;
DAnsw:= TStringList.Create;
req:= 'https://lotw.arrl.org/lotwuser/lotwreport.adi?' +
'login=xxxxx&password=yyyyyy&qso_query=1';//Requeststring User= xxxxx Passwd= yyyyy
if not http.HTTPMethod('GET', req) then//War GET erfolgreich ? sonst Fehler
begin
ErrMsg:= '(' + IntToStr(http.ResultCode) + ')' + http.ResultString;
Memo1.Append(ErrMsg);
end
else
begin
//DAnsw soll die Datei lotwreport.adi enthalten
DAnsw.LoadFromStream(http.Document);
Memo1.Append(DAnsw.Text);//Ausgabe im Memo
end;
http.Free;
DAnsw.Free;
end;
Mit dem req-string direkt im Browser funktioniert es.
Was kann da faul sein ?
Gruß Frank