Imagearry wird direkt ausgegeben

[Janninger]

Prinzipiell könnte ich die umwandeln, müsste dann aber wieder zurück zu jpeg wenn ich sie über TSaveDialog abspeichern will.

[DieDolly]

Gerade getestet, funktioniert nicht.
Die Dateifilter einer TImageList lassen kein JPEG oder JPG zu.

[KodeZwerg]

Habs gerade auch gemerkt, mist... was ich rasch tat war dein vorschlag, der funktioniert.

Delphi-Quellcode:

function JPGToBitmap( const FileName: String ): TBitmap;
Var 
 fJPG: TJPEGImage;
begin
 fJPG := TJPEGImage.Create;
 try
  fJPG.LoadFromFile( FileName );
  Result := TBitmap.Create;
  Result.Assign( fJPG );
 except
  Result := nil;
 end; 
 fJPG.Free;
end;

Fürs speichern, kopiere einfach die jpg-Datei wohin auch immer.

[Janninger]

Habe das jetzt mal so umgebaut, das die jpegs direkt in ein array of TJpegimage geladen werden.
Nur wie bekomme ich die Bilder wieder aus dem Array?

mit img.Picture.Graphic := PatBildAr[x]; funktioniert es jedenfalls nicht.
Ich vermute das er die Größe der jpegs nicht ermitteln kann.

[Delphi.Narium]

Du schriebst weiter oben PatBildAr[i].Picture.Assign(jpg); , wie mag das Gegenstück dazu wohl aussehen?

Warum nicht einfach die gleiche Syntax, nur mit anderen Variabeln?

Wenn Du doch dem Array ein Bild mit Assign zuweisen kannst, warum kannst Du dann das dort enthaltene Bild nicht mit Assign an eine andere Variabel, Komponente ..., mit identischen Eigenschaften und Methoden, zuweisen?

Für mich ergäbe sich daraus irgendwie sowas: img.Picture.Assign(PatBildAr[x]); Kodezwerg schrieb doch Result.Assign( fJPG ); . Result ist ein TBitmap. Hat img ein Attribut vom Type TBitmap? Und hat TJpegimage Deines Arrays auch ein Attribut vom Type TBitmap? Dann sollten dies (z. B. per Assign) zuweisbar sein.

[Janninger]

Ja, soweit verständlich. Nur bekomme ich mit img.Picture.Assign(PatBildAr[x]); den Jpeg-Fehler #42.

[KodeZwerg]

Also in meinem kleinen Feldtest habe ich eine TImageList mit TBitmaps gefüllt die von JPGToBitmap geliefert wurden.
Im nach-hinein nur noch mit der ImageList gespielt ohne Nennenswerte Besonderheiten festgestellt zu haben.

[Janninger]

Kann die TImagelist nicht nur gleichgroße Bilder speichern? Oder auch Originalgröße des jpegs resp. bitmaps.