Bilder in exe speichern...

[Daniel B]

:hi: Guys,

ist es eigentlich möglich jpg's o.ä. in einer exe zu Speichern. Es handelt sich dabei um 3 Stck. je ca. 5Kb klein. Aber nicht so wie mit TImage und dann auf Visible := False; sondern einfach nur in der exe drin sein und später irgendwo anzuzeigen. Also an keinem festgelegtem Punkt. Was also TImage ausschliesst. Sie dürften auch nciht in einem Verzeichniss drin sein, da ich nur! die exe weitergeben möchte.

Grüsse, Daniel :mrgreen:

[Christian Seehase]

Moin Daniel B,

dann bietet es sich an, die als Resourcen einzubinden.
Sollte eigentlich genauso funktionieren, wie mit Bitmaps.

Schau Dir dies doch mal an:

Bitmaps in DLL..

[jbg]

Zitat:

Sollte eigentlich genauso funktionieren, wie mit Bitmaps.

Nicht ganz, denn es gibt keinen JPEG Typ und auch kein LoadJpeg().

Ich würde das dann mit dem Typ RCDATA machen und über TResourceStream das ganze einlesen. Im Gegensatz zur TImage-Lösung wird es aber etwas umständlicher. Du kannst dir aber eine Funktion schreiben.

Code:

[b]procedure[/b] LoadJpeg(Jpeg: TJpegImage; [b]const[/b] ResId: [b]string[/b]; Instance: THandle = 0);
[b]var[/b] ResStream: TResourceStream;
[b]begin
  if[/b] Instance = 0 [b]then[/b] Instance := HInstance;
  ResStream := TResourceStream.Create(Instance, ResId, RT_RCDATA);
  [b]try[/b]
    Jpeg.LoadFromStream(ResStream);
  [b]finally[/b]
    ResStream.Free;
  [b]end[/b];
[b]end[/b];

Du kannst dir aber auch eine nicht sichtbare Komponente schreiben, die Jpegs speichert. Diese braucht nur eine einzige Eigenschaft im published Teil, nämlich ein TJpegImage oder wenn mehr unterstützt werden soll ein TPicture. Dann musst du dich nicht um das erstellen der .rc -> .res Dateien kümmern und brauchst dir auch keine Gedanken um das Auslesen zu machen.

[Daniel B]

:hi: jbg,

Das Dateiformat ist jetzt nicht auf JPG's fixiert. Ich kann auch bmp, gif, tiff usw. nehmen. JPG war nur ein Beispiel, das ist noch nicht festgelegt. Ist halt recht klein vom Format her. Es sind nur 3 runde(1cm Durchmesser) farbige Flächen. Nichts aufwendiges.

Grüsse, Daniel :mrgreen: