PNG aus Stream in TImage einfügen

[Luki206]

Hi, ich habe ein wenig gegoogled aber habe nichts gefunden wie man eine *.png Datei aus einem Stream in ein Image laden kann. Kann mir jemand da behilflich sein?
Danke
Luki

[Sir Rufo]

Ganz einfach mit TPngImage.LoadFromStream

Delphi-Quellcode:

var
  LGraphic : TGraphic;
begin
  LGraphic := TPngImage.Create;
  try
    LGraphic.LoadFromStream( DerStreamMitDemPng );
    Image1.Picture.Assign( LGraphic );
  finally
    LGraphic.Free;
  end;
end;

Du musst aber auch auf TStream.Position achten.
LoadFromStream liest immer von der aktuellen Stream Position.

[Luki206]

Ok danke. Werde ich mir merken

[Luki206]

Ich habe jetzt noch eine Frage aber zu den Ressourcen DLL's. Muss ich jetzt wirklich einen neuen Thread auf machen? Weil ich hätte dann drei Threads da stehen und das sieht nicht gerade gut aus..

[Sir Rufo]

Zitat von Luki206:

Ich habe jetzt noch eine Frage aber zu den Ressourcen DLL's. Muss ich jetzt wirklich einen neuen Thread auf machen? Weil ich hätte dann drei Threads da stehen und das sieht nicht gerade gut aus..

Hat das was mit Streams und einem Png-Image zu tun?

Ja - dann einfach hier weiterfragen
Nein - Neuer Thread

Evtl. suchst du ja auch nach TPngImage.LoadFromResourceId oder TPngImage.LoadFromResourceName

[Luki206]

Ja hat es, denke ich mal. Wenn nicht gerade bescheid sagen und ich mache einen neuen Thread auf
Folgendes: Ich habe jetzt geschafft eine *.png File aus der .dll zu laden nur ist das die Falsche und im Moment sind auch nur zwei Grafiken dort hinterlegt. Wenn ich also mein Programm starte wird das falsche Bild angezeigt. Ich weiß nicht wie ich's erklären soll deshalb jetzt hier mein Code um die Datei zu laden:

Delphi-Quellcode:

procedure TFrmHaupt.LoadPict(ort: Integer);
var
myStream: TResourceStream;
h: Cardinal;
LGraphic: TGraphic;
begin
 h:= LoadLibrary('LW_MP_166.dll');
 mystream := TResourceStream.CreateFromID(h, ort, RT_RCDATA);
 LGraphic := TPngImage.Create;
 try
 LGraphic.LoadFromStream(mystream);
 ImgPlayPau.Picture.Assign(LGraphic);
 finally
   mystream.Free;
   LGraphic.Free;
 end;
end;

Also die Variable ort ruft ja die Datei auf bzw. da wo sie gespeichert ist. Wenn ich da eine 1 drinnen habe kommt die falsche Grafik. Mit anderen Zahlen kommt Ressource nicht gefunden nur weiß ich nicht woran das liegt und ich habe auch schon meine Ressourcen-Namen in der DLL in 1 und 2 geändert und trotzdem geht es nicht. Ich denke aber mal ich machen einen tierisch-großen Fehler oder?

[Sir Rufo]

Zitat von Sir Rufo:

Evtl. suchst du ja auch nach TPngImage.LoadFromResourceId oder TPngImage.LoadFromResourceName

Hast du die DLL auch neu erstellt und liegt diese an der richtigen Stelle?

[Luki206]

Jap, neu erstellt, liegt im richtigen Ordner bzw. im Verzeichnis meiner *.exe

[michaelthuma]

Wenn du über ID lädtst dann ist es vonnöten die Resource über ID zu definieren bspw.

Bilder.rc

Code:

#define ID_BILD1 1
#define ID_BILD2 2

ID_BILD1 RCDATA "Borland.jpg"
ID_BILD2 RCDATA "Delphi.jpg"

Die 1 wird beim compilieren der Ressourcen anstatt von IDS_BILD1 eingesetzt. Du kannst eine Ressource entweder mit einer Zahl praktisch der ID oder dem Namen benennen.

Zitat von Luki206:

Jap, neu erstellt, liegt im richtigen Ordner bzw. im Verzeichnis meiner *.exe

[himitsu]

Jupp, genau so ist es.

Und man könnte natürlich auch ohne "Konstanten" arbeiten.

Code:

1 RCDATA "Borland.jpg"
2 RCDATA "Delphi.jpg"

Ansonsten wäre es praktisch, wenn man diese Konstanten auch im Delphi definiert und bei LoadPict oder LoadFromResourceId entsprechend verwendet.

Delphi-Quellcode:

const
  ID_BILD1 = 1;
  ID_BILD2 = 2;