Hallo zusammen !
Ich habe folgendes Problem: per HTTP-Get fordere ich auf einem
Server einen zip-Datei an. Der Head-Aufruf gibt mir auch die
korrekten Werte zurück, wenn ich aber anschließend die Datei
per HTTP-Get herunterladen möchte gibt es die seltsame Fehlermeldung
(siehe beigefügte Datei).
Der Code:
Delphi-Quellcode:
procedure TForm1.cxButton1Click(Sender: TObject);
var
BytesKopiert, BytesInsgesamt: int64;
lStream: TFileStream;
begin
BytesKopiert := 0;
IdHTTP.Head(cxTextEdit1.Text);
BytesInsgesamt := IdHTTP.Response.ContentLength;
lStream := TFileStream.Create('c:\test.zip', fmCreate or fmShareDenyNone);
idhttp.Request.ContentType := idhttp.Response.ContentType;
idHTTP.Get(cxTextEdit1.Text, lstream);
IdHTTP.Response.ContentStream.Write(lStream, IdHTTP.Response.ContentStream.Size);
FreeAndNil(lStream);
end;
Die verwendete
Indy-Version ist 9, beim IDHttp habe ich HandleRedirects auf True und False
stehen gehabt und es war in beiden Fällen ohne Erfolg. Hat jemand einen Tipp für mich ?
Vielen Dank im vorraus !