[erledigt]Internet Bild in Stream laden

[RedShakal]

Hi, ich möchte ein PNG Image von einen Server laden. Das Bild soll Angezeigt werden, ohne das ich es zwischenspeichern muss. Das Bild ändert sich jedesmal, wenn ich in der Itemlist einen Eintrag ändere. Diesen Code habe ich bis jetzt:

Delphi-Quellcode:

procedure TForm8.MaplistSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  Stream  : TMemoryStream;
  PNG     : TPNGImage;
begin
  if Maplist.Selected <> nil then
    begin
      Stream := TMemoryStream.Create;
      Downloadstatus.Get('http://redshakal.de/kknd/maps/minimap/'+Maplist.Selected.Caption+'.png', Stream);
      Stream.Position := 0;
      PNG := TPNGImage.Create;
      Minimap.Picture.Assign(PNG);
      PNG.Free;
      Stream.free;
    end
  else
    begin
      Exit;
    end;
end;

Der Code bringt folgenden Fehler:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EPNGHeaderNotPresent with message 'This operation is not valid because the current image contains no valid header.'.
---------------------------
Break Continue Help
---------------------------

Woran kann das liegen?

Der Fehler liegt in der Zeile: Minimap.Picture.Assign(PNG);



EDIT: Hat sich erledigt hab den Fehler selbst gefunden. Habe die Zeile PNG.LoadFromStream(Stream); vergessen :oops: