Image aus Variable

[Niksac]

Hi,
bin neu in der Delphi Programmierung un habe vor, eine PNG Bild aus dem www zu laden und im Programm anzuzeigen.

Per Indy bekommen ich das Bild in einen String.
PNG unterstützung liefert die PNG Components.

In meinem Ansatz nutze ich

Code:

TPNGObject(findcomponent(IdHTTP1.Get('http://test.de/test.png')));

um ein PNG Object zu erhalten doch wie bekomme ich dieses jetzt in ein TImage geladen

Vielen Dank im Vorraus

Nik

[rollstuhlfahrer]

HI,

mit PNG kann ich mich zwar noch nicht, aber was soll dein Code machen?
Mit IdHttp.Get lädst du den Inhalt des Bildes. Das wird dann von FindComponent verarbeitet, wobei da sehr häufig ein nil herauskommen wird, da keine Komponente so heißt, wie der Inhalt deines Bildes (nicht der Text im Bild, sondern der Text als String). Dieses nil castest du dann als TPNGObject. Da kann ja nichts rauskommen.

__________________________________________________ _

Anderer Lösungsansatz: Lad' das Bild in einen Stream und lade dann den Stream. Wenn TPNGObject ein Kind von TGraphic ist, dann kannst du es einfach laden, indem du Image.Picture.Graphic.Assign().

Bernhadr

[Niksac]

Hi,
das mit Assign müsste klappen und beantwortet schonmal eine meiner Fragen, danke =)

auch mit dem Nil lagst du richtig aber wie bekommen ich denn einen String (mit PNG) daten entsprechend in ein solches Objekt.

Leider weiß ich auch nicht wie man soetwas mit streams verarbeiten könnte


Grüße
Nik

[IceTube]

Hallo!

Du könntest es ja auch so machen:

Delphi-Quellcode:

client : TidHttp;

function GetPNG(Link:string):TStream;
var Stream : TStream;
begin
//Hole mir das Bild aus dem Internet und speichere es in einen Stream
Stream := TStream.Create;
//
try
client.Get(Link,Stream);

//Sry, so natürlich...
Result := Stream;
finally
Stream.Free;
end;

end;

//Aufruf
procedure ...
begin
Image1.Picture.LoadFromStream(GetPNG('www.webseite.at/bild.png'));
end;

lg

//Edit:
Hab den Code geändert, wie @mkinzler unten geschrieben hat kann man natürlich auch den Stream direkt ins Image laden...

^Hab den Code jedoch nicht getestet, müsste jedoch so gehen...

^@dominikkv: Danke für den Hinweis...habs schon geändert...

[mkinzler]

TPicture unterstützt auch .LoadFromStream()

[dominikkv]

Zitat von IceTube:

Hallo!

Du könntest es ja auch so machen:

Delphi-Quellcode:

client : TidHttp;

function GetPNG(Link:string):TStream;
var Stream : TStream;
begin
//Hole mir das Bild aus dem Internet und speichere es in einen Stream
Stream := TStream.Create;
//
try
client.Get(Link,Result);
finally
Stream.Free;
end;

end;

//Aufruf
procedure ...
begin
Image1.Picture.LoadFromStream(GetPNG('www.webseite.at/bild.png'));
end;

lg

//Edit:
Hab den Code geändert, wie @mkinzler unten geschrieben hat kann man natürlich auch den Stream direkt ins Image laden...

^Hab den Code jedoch nicht getestet, müsste jedoch so gehen...

Sag mir mal welche Aufgabe
var Stream : TStream; hat. Und wo erzeugst du das result?

[Muetze1]

... und seit wann funktionieren die abstrakten Basisklassen bei der direkten Nutzung?