Guten Morgen!

Ein Assign für eine BMP Datei/TImage Komponente dauert bei einer 3 MB großen Jpeg Datei eine ganze Weile. Ich brauche nur eine ganz kleine Vorschau 150x100 px oder so. Gibt es eine Routine, bzw. macht es Sinn die jpeg Dateien vorher irgendwie runterzurechnen?

Alle meine Resize Prozeduren basieren auf BMP, amcht so also wenig Sinn.

Vielleicht muss man bei der TImage Komponente nur irgend etwas anders einstellen? Oder vorher mit compressQuality etwas machen

Für alle Anregungen bin ich wie immer sehr dankbar!

wenn ich mich nicht irre ist in jedem jpg-Bild eine Vorschau gespeichert. Aber genaueres weiß ich auch nicht...

In jedem JPG eine Vorschau? Ne, das wäre ja total unsinnig!

stretchblt sollte schon ziemlich schnell sein, weiß ja net wie du das anders gelöst hast (scanline oder pixesl[] <- sehr langsam)

@delfiphan

guckst du hier:

www.heise.de/newstic...rschau%20JPEG%20Jpeg

delfiphan hat folgendes geschrieben:

In jedem JPG eine Vorschau? Ne, das wäre ja total unsinnig!

wieso unsinnig?
tatsache ist, dass der header einer JPEG-datei ermöglicht u.a. ein thumbnail bereits in die datei mit zu integrieren.
manche programme machen das automatisch, manche mit option, die meisten jedoch gar nicht.

du würdest dich wundern was alles für informationnen in so nem einfachen JPG-datei enthalten sind.

//edit: zu spät

So bin so frei mir selbst eine Antwort zu geben:



Nicht nur die Qualität ist dann geachtelt, sondern auch die Ladezeit
16eln würde mir auch reichen, gibts wohl aber nicht

Aus reiner Neugier, wie ginge es denn mit stretchblt?

Ich weiss dass man zusätzliche Informationen drin speichern kann (Datum z.B.), aber eine Option für n Thumbnail kannte ich bisher nicht. Kenne auch kein Programm, welches sowas unterstützt.
//Edit: Hmm, offenbar wird das von PSP und Photoshop unterstützt.. Wusste ich nicht.

ich mach das eben mal, dauert 5 mins muss kein anderer machen sonst gibs gleich wieder 2 lösungen ^^

@uall@ogc

Zeit das zu testen hatte ich noch nicht, aber das kann meines Wissens nicht funktionieren, weil:

bmp.Assign(tempjpeg);

Ja jener Schritt ist, der bei 3600px Bildern an die 5 Sekunden dauert. Egal ob dargestellt oder nicht.

Habe mich Zeile für Zeile durch mein altes Programm gewunden bis ich da drauf gekommen bin, aber Irrtum nicht ausgeschlossen...

also der code von nemo funzt zigmal schneller als der von uall ^^

hm kay dafür kanner da net die enaue breite angeben ;>
aber ich schau nochmal

jsFullSize Zeigt die Grafik in voller Größe an.
jsHalf Zeigt die Grafik in halber Göße, dafür aber in doppelter Geschwindigkeit an.
jsQuarter Zeigt die Grafik in einem Viertel der maximalen Größe, dafür aber viermal so schnell an.
jsEighth Zeigt die Grafik in einem Achtel der maximalen Größe, dafür aber achtmal so schnell an.

naja wenn man das bisl kombiniert kanste danna uch diengröße machen die du haben willst :>

Hey, keine schlechte Idee. Allerdings ist mir nicht ganz klar wie ich die Faktoren multiplizieren kann.

tempJpeg.Scale := jsEighth+jsHalf;

geht ja eher nicht. Gibts da eine Möglichkeit?

Das kann man nicht kombinieren. Das ist ja schließlich kein Set und würde auch keinen Sinn machen. Scale kann nur EINEN der Werte annehmen.

Ich weiß zwar auch nicht wozu du das genau brauchst. Aber evtl besteht ja die Möglichkeit, dass du offline ein kleines Vorschaubild erzeugst? Ich befürchte allerdings nicht.

nimm meinte methode mach dann aus dem DIV 16 ne DIV 2 und mach vorher scaled = 8 dann haste das genau so schnell nur halt 1/16

Habe noch etwas gefunden.

Ein TJPEGImage unterstützt auch noch eine Eigenschaft Performance. Einfach mal vor dem Laden auf jpBestSpeed stellen. Habe ich in der Delphihilfe gefunden!! Unteranderem stand da auch noch was von der Eigenschaft Smoothing. Dadurch wird das Bild beim laden geglättet. Das Dauer auch wieder.

Performance allein ist schon recht schnell, aber ca. 3 mal langsamer als die Scale Variante. Das Ergebnis sähe optisch aber besser aus. Wers mal ausprobieren will:

www.kirtagsmusi.at/temp/preview.zip

(Programm inkl. Delphi 7 Projektdateien 256kb, Ein Jpeg Bild auf C:\temp.jpg sollte vorhanden und etwa 3MB groß sein)


So denke ich, das Scale jsEighth reichen sollte.


Nur ein kleiner Schönheitsfehler bleibt noch, vielleicht kennt da gerade jemand eine Antwort:

Ich lade nun 10 Bilder in bekannter Weise in 10 TImage Komponenten. Wirklich anzeigen tut er sie aber erst nachdem alle 10 geladen sind. Würde natürlich besser aussehen und für Kurzweil sorgen, wenn er sie auch gleich anzeigen würde. Ich schätze mal, dass das Programm wärend der Schleife ausgelastet ist und die Bilder deshalb nicht anzeigen kann. Sleep war nur so eine Idee, hat aber nicht geklappt. Vorschläge?

application.processmessage

Funktioniert nun tadellos. Vielen Dank nochmal an alle Helferlein!