![]() |
Indy idHTTP und Herunterladen -> Fehler 301
Hallo,
ich habe jetzt schon einige Zeit herumprobiert, aber es will einfach nicht klappen. Ohne große Reden, mal zwei Prozedurbeispiele:
Delphi-Quellcode:
procedure SavePNGInList(pngURL: String; PNGList: TPNGImageList);
var lDestStream: TMemoryStream; lPNG: TPNGObject; lHTTP: TIdHTTP; begin LDestStream := TMemoryStream.Create; lHTTP := TIdHTTP.Create(nil); lHTTP.Get(pngURL, lDestStream); lHTTP.Free; LDestStream.Free; end; procedure ... var URL: String; begin URL := 'http://exchange.der-s.com/test.png'; SavePNGInList(URL, PNGImageList); end;
Delphi-Quellcode:
Mein Problem: Der obere Code gibt einen Fehler 301 zurück, der untere funktioniert. oO Ich habe auch schon versucht, etwaige Leerzeichen am Anfang und am Ende mittels Trim rauszunehmen, aber trotzdem. Wenn ich mir die übergebene URL in die Zwischenablage kopieren lasse, und diese mit dem Browser aufrufe, klappt es auch...
procedureSavePNGInList(pngURL: String; PNGList: TPNGImageList);
var lDestStream: TMemoryStream; lPNG: TPNGObject; URL2: String; lHTTP: TIdHTTP; begin LDestStream := TMemoryStream.Create; lHTTP := TIdHTTP.Create(nil); URL2:= 'http://exchange.der-s.com/test.png'; lHTTP.Get(URL2, lDestStream); lHTTP.Free; LDestStream.Free; end; Jemand eine Idee? -.- :) MCXSC |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:04 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz