Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Indy idHTTP und Herunterladen -> Fehler 301 (https://www.delphipraxis.net/136522-indy-idhttp-und-herunterladen-fehler-301-a.html)

MCXSC 2. Jul 2009 05:41


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:
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;
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...

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