Hi

Mein Problem ist ich benutze diesen Code um PNGs in TImage zu laden, nur das Problem dabei man kann die Bilddatei löschen und wenn dann das Programm versucht das Bild zu laden kommt ne Fehler Meldung hier der Code

markieren

Delphi-Quellcode:

  bild: TPicture;
begin
  bild:= TPicture.Create;
  try
    bild.LoadFromFile('bild.png');
    Image1.Picture:= bild;
  finally
    bild.Free;
  end;

jetzt ist meine frage wie kann ich das Bild in die exe Datei packen und das Bild dann auch wieder verwenden?

Ja. Einfach mal die Suche benutzen. Dies wurde schon sehr oft gefragt.

Oo hab gerade die Code-Library entdeckt und da was passendes gefunden, tut mir jetzt leid für diesen sinnlosen Thread hätte ich die Code-Library doch nur vorher gesehen.

Hi

Ich weis jetzt wie ich die Bilder als *res Datei in das Programm bekomme nur weis ich nicht wie ich die dann in ein TImage laden kann. Kann mir das vielleicht noch einer erklären, es sind PNG Grafiken.

Danke

Mit welcher Klasse lädst du denn die PNG's?
Ich vermute mal du nutzt TPNGObject von SourceForge. Dann kannst du es so machen:

markieren

Delphi-Quellcode:

var
  PNG : TPNGObject;
begin
  PNG:=TPNGObject.Create;
  PNG.LoadFromResource(Hinstance, 'DerNameDesBildesInDenResourcen');
  Image1.Picture.Image:=PNG;
  PNG.Free;
end;

Danke das du mir hilfst, aber irgendwie bekomme ich es immer noch nicht hin in TImage Hab ich kein Picture.Image und wenn ich dann Image1.Picture:=PNG; mache kommt eine Fehlermeldung das TPNGObject und TPicture nicht kompatibel sind .

Im Anhang hab ich das Beispielprogramm vielleicht guckst du es dir mal an

2 Sachen:

- es heißt Image1.Picture.Assign(PNG) - diese PNG-Klasse sucht PNGs im Zweig "PNG" in der Resource

So, jetzt beschwert sich das TPicture zwar nicht mehr aber ich bekomme die Bilder immer noch nicht aus der Ressource geladen, kommt immer die Meldung das die Ressource nicht gefunden wurde. Hier mal mein Code >>

zusammenfalten · markieren

Delphi-Quellcode:

implementation

{$R *.dfm}
{$R Bilder.RES}

procedure TForm1.FormCreate(Sender: TObject);
var
  PNG : TPNGObject;
begin
  PNG:=TPNGObject.Create;
  PNG.LoadFromResourceName(Hinstance, 'ST');
  Image1.Picture.Assign(PNG);
  //Image1.Picture:=PNG;
  PNG.Free;
end;

und so schaut die rc Datei aus mit der ich die res Datei erzeugt habe

markieren

Delphi-Quellcode:

st PNG st.png
ab IMAGE ab.png
sge IMAGE age.png
agr IMAGE agr.png
ar IMAGE ar.png

Kan mier jetzt einer sagen wo mein Fehler ist.

Dein Resourcetyp in der .RC-Datei ist falsch. Die Komponente läd PNG-Bilder aus RC_DATA-Section
der Resource.

markieren

Code:

st RC_DATA "st.png"
...
ar RC_DATA "c:\...\ar.png"

Ich danke euch hat jetzt geklappt, zwar nicht ganz so wie turboPASCAL es beschrieben hatte den anstatt st RC_DATA "st.png" musste ich st RCDATA "st.png" das RC_DATA zusammen schreiben, dank deinen tip hab ich einfach mal alle möglichen schreib weisen versucht, als es nicht klappt und dann hat es doch geklappt mit RCDATA .

Danke an alle