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