Einzelnen Beitrag anzeigen

jbg

Registriert seit: 12. Jun 2002
3.481 Beiträge
 
Delphi 10.1 Berlin Professional
 
#3
  Alt 24. Aug 2002, 22:49
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.
  Mit Zitat antworten Zitat