möchte jpeg bilder auf max 1mb begrenzen

kalle · Beiträge: 20 Alles mögliche D7 ?

Hallo an alle
Ich bastele mir gerade nen ftpclient
Dieser soll fotos uploaden können (in ein Fotoalbum)
Jetzt soll bei jedem upload(datei)die Größe festgestellt werden(hab ich schon) und wenn größer 1 MB dann soll das bild auf ca 1 MB resamplet werden. Stehe da aber voll auf dem schlauch
Freue mich um jede hilfe
Ps habe BD 7

Moderiert von Narses: Titel geändert und Umbrüche entfernt.

LexXis · Beiträge: 170 Erhaltene Danke: 3

Du könntest das Bild per StrechDraw immer um einen gewissen Betrag verkleiner, in eine temporäre Datei speichern und gucken wie groß diese ausfällt. Das ganze solange, bis die gewünschte Größe erreicht wird.
Aber es gibt sicherlich noch performantere Möglichkeiten. So wie ich das mitbekommen hab, willst du das ja mit einer ganzen Menge Bildern machen. Meine Variante dürfte dann eine ganze Weile dauern

mfg

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

Mit JPEG geht das meines Wissens nach nicht direkt. Da hast du nur die Möglichkeit eine Qualität anzugeben und alles andere ist dann abhängig vom Inhalt des Bildes. Mit JPEG200 besteht die Möglichkeit ein Bild anhand einer Größe kodieren zu lassen. Allerdings fällt das Format wegen fehlender Verbreitung und Lizensgebühren weg. Wollts nur mit erwähnen.

Wenn das unbedingt sein muss, dann bleibt also nur die Möglichkeit das Bild zu dekodieren und zu schauen wie groß das Ergebnis ist. Im übrigen kann man so etwas auch in einen TMemoryStream speichern. Dann müllt man nicht ständig die Platte des Users voll und spart sich Zugriffe auf die Festplatte. Bei so etwas aber IMMER vom Originalbild ausgehen.

ABER. Meiner Meinung nach genügen Bildgrößen um die 1600x1600 Pixel vollkommen. Selbst für Abzüge. Dann werden die Bilder mit einer Qualität von ca 95 so um die 600-900kb Groß. Sollten Bilders zwecks Inhalt doch größer werden hat das durchaus seine Berechtigung, denn feinere Strukturen erfordern mehr Platz. Wenn man dann die Größe auf Teufel komm raus reduziert, dann könnte man sich das hochladen mitunter auch sparen, weil die Bilder dann nur noch Gruselig aussehen. JPEG ist nun mal verlustbehaftet. Vor allem wenn die Originalgrößen (2800x3700 etc) zum Einsatz kommen.

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

Hidden · Verfasst: Mo 13.10.08 12:40

Hi,

Wie immer liegt die Lösung des Problems darin, das Vorgehen einstellbar zu machen

soll jedes Mal gefragt werden, Bilder generell verkleinert oder nie verkleinert werden(im letzten Fall schlägt das natürlich auf den insgesammt verfügbaren Speicherplatz )

mfG,

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)

kalle · Beiträge: 20 Alles mögliche D7 ?

Hi an alle
Also wenn mein Bruder mit seiner 7Mpixel kamera ein Fotomacht dann ist das zu groß für mein
Photoalbum macht meine Schwester welche,so sind die gut ca 800kb
Wie kann ich jetzt im Programm beim UPload diesen vorgang automatisieren.
Ich stelle die Filegröße sowieso fest (Für den Fortschrittbalken)
Jetzt möchte ich so die Filesize größer 1mb ist automatisch das Bild auf ca 1mb bringen.
Es gibt ein Programm das heisst Jpegresampler bei diesem Hat man auch die Möglichkeit
das Bild um einen Prozentualen Wert oder auf eine feste Größe zu ändern.
Soetwas möchte ich in mein Programm einbauen.
Freue mich auf antwort

Hidden · Verfasst: Mo 13.10.08 16:57

Hi,

Als ich würde trotzdem noch einmal kurz fragen: Messagebox mit Ok und Abbrechen oder ein Online-Äquivalent

Wie es scheint gibt es da keinen "direkten" Weg. Entweder du nimmst eine bestimmte Pixelzahl, konvertierst in Bmp, etc, setzt Größe, konvertierst zurück, speicherst.

Oder du machst das rekursiv, bis die Größe einen Wert unterschreitet..

mfG,

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

Hallo Kalle,

das du nicht möchtest, dass die Bilder zu Groß werden kann ich verstehen. Hab selber ein Fotoalbum. Allerdings denke ich, dass man so etwas nicht alleine von der Dateigröße her sehen kann. Denn die Dateigröße hängt direkt mit der Qualität beim JPEG Komprimieren zusammen. Und wenn man bei JPEGs die Qualität zu stark verringert, dann kann es schnell passieren, dass die Bilder unschöne Stellen bekommen bzw dass Details in den Bildern verschwinden. Zu mal man die vollständige Auflösung der Bilder vermutlich eh so gut wie nie anzeigen wird. Wenn ich meine Fotos von 10MP auf 2,5MP reduziere, dann ist das trotzdem noch wirklich mehr als groß genug. Da würde ich persönlich lieber 2 Schritte einbauen.

1) Eine Beschränkung in der Auflösung des Bildes. 1200x1200 sollte als Maximum vollkommen genügen. Dabei kannst du StrechDraw benutzen sofern du auch den SetStretchBltMode auf HALFTONE setzt. Denn so findet ein Resampling statt und das sollte es schon sein. Sonst sieht es ziemlich unschön aus.

2) Eine Beschränkung der Dateigröße. Hierbei würde ich das Bild mit einer Qualität von 95 komprimieren und wenn es zu groß ist, dann kannst du es mit weniger kodieren. Ist das wieder zu groß, dann noch weniger. Aber immer vom Originalbild ausgehen! Das Komprimieren bzw. das Vorbereiten des neuen Bildes solltest du erledigen wärend du bereits ein Bild hochlädst. Denn das Hochladen dauert eine gewisse Zeit und kostet kaum CPU. Wärend das Komprimieren eine ganze Menge CPU kostet und auch einiges an Zeit. Vor allem, wenn du es evtl 10 mal durchführen musst. Ich würde die Qualität auch nicht in einer Schritten verringern. Wenn das Bild mit 95 ca 1.5 MB Groß ist, dann ist es sehr unwahrscheinlich, dass es mit 94 plötzlich unter einem MB groß ist. Da könnte man einen größeren Sprung in der Qualität machen. Wenn es dann mit 85 plötzlich nur noch 800 kb groß ist kann man es ja wieder erhöhen.

ABER. Ich würde dir empfehlen die Qualität zu beschränken. Alles über 95 ist nicht mehr zu erkennen und unverhältnismäßig groß. Also 95 sollte da nach oben das Maximum sein. Besonders aber solltest du die Qualität nach Unten hin begrenzen. Wenn du mich fragst sollte 70-80 das Minimum sein. Wobei ich eher 80 nehmen würde. Selbst, wenn die Datei dann immer noch größer ist sollte dein Programm dort nichts mehr automatisiert machen. Denn sonst können die Bilder durchs Komprimieren zu stark verändert werden. Und das würde man erst sehen wenn man sich die Bilder anschaut. Dann ist es aber schon zu spät.

Was du dann in solch einem Fall machst ist dir überlassen. Entweder fragst du nach ob die Qualität weiter verringert werden soll, oder du passt die Auflösung weiter nach unten an oder aber du überträgst das Bild so wie es dann ist und nimmst den Mehrplatz in kauf.

PS: Falls du Detailfragen zur Programmierung hast oder du nicht weißt wo du beginnen solltest (dir ein Anfang fehlt), dann solltest du die Frage auch so formulieren. Denn so wie deine Fragen aktuell formuliert sind, klingen die eher so als ob dir das theoretische Herangehen unklar ist. Und dann wird dir niemand zeigen wie man so etwas im Code lösen müsste. Sondern wir erklären dir nur wie es eben theoretisch ablaufen müsste. Das aber nur mal so am Rande, weil ich den Verdacht habe das du mit deinen Fragen eher auf etwas anders hinaus willst.

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

kalle · Beiträge: 20 Alles mögliche D7 ?

So danke erstmal für die viele Info
also klar ein kleines Code beispiel wär klasse ,dann bräuchte ich nicht mein Delphi Buch auf den Kopf stellen.
Habe jetzt ein neues Formular eingebaut in meinen FTP Client
Es erstellt den Ordner c:\BearbeiteteFotos löscht evtl alte dateien in diesem Ordner
Nun kann ich in dem neuen Formular auf der Linken Seite die Bidler auswählen.
Hab nen jpg filter drinne.
Die Markierten fragt er ab und ist eines größer1200kb dann soll es jetzt angebpasst und nach c:\BearbeiteteFotos kopiert werden.
Freue mich auf antwort

jaenicke · Verfasst: Mi 15.10.08 06:29

kalle hat folgendes geschrieben :

also klar ein kleines Code beispiel wär klasse

Ja, an welcher Stelle kommst du denn nicht weiter? Laden, skalieren, speichern? Also wie weit bist du?
Zeig doch einfach deinen Code soweit du dabei bist und sag was beim weiteren Vorgehen das Problem ist, zum Beispiel, dass du nicht weißt wie du das geladene Bild dann skalierst oder ähnliches.

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

Kann jaenicke nur zustimmen. Wo hackt es denn genau bzw was hast du denn schon alles? Wenn jetzt irgendeiner ein Stück Code postet und du das einfach so in deinen Code kopierst, dann ist die Wahrscheinlichkeit ziemlich groß, dass das Programm alles nur zusammengefrickelt wird. Außerdem wäre es immer praktisch, wenn du auch verstehst was der Code macht.

Wie überträgst du eigentlich die Daten auf den Server?

Außerdem würde mich auch mal interessieren ob das Programm nur für euch 3 ist oder ob du das später auch der breiten Masse zur Verfügung stellen möchtest, damit die auf eigenen Fotoalben Bilder hochladen können? Der Grund warum ich frage ist das Verzeichniss "c:\BearbeiteteFotos". Wenn das Programm nur für euch ist mag das noch okay sein. Aber für die breite Masse geht das nicht. Würde zwar technisch gehen aber sollte man nicht machen. Denn so wie ich das verstanden habe sollten die Bilder ja nur beim Hochladen angepasst werden. Und das kann man alles im Arbeitsspeicher durchführen.

Aber um dir etwas auf die Sprünge zu helfen. Für dich wäre vermutlich die Klasse TBitmap, TJPEGImage und TMemoryStream interessant. TJPEGImage findest du in der Unit jpeg. Ich weiß ist ein bisschen dürftig aber ich hoffe du verstehst die Gründe warum wir dir nicht einfach Code vor die Füße klatschen?

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

kalle · Beiträge: 20 Alles mögliche D7 ?

Hallo
Also mein Programm ist für ca 30 Leute
Jeder hat seine Version mit Username uns Password.
Ich habe eine neue Form gemacht indem ich die Fotos vom eigenen Ordner einlese(Prüfe Bilder)
Die Bilder werden dann von dem eigenenm Ordner auf den Ordner C:\BearbeiteteFotos kopiert und sollen dabei
angepasst werden.
Bin ich fertig komme ich wieder auf mein Hauptformular klicke ich dort auf Bilder ins Fotoalbum bringen,
so wird auf der Lokalen Seite der Ordner C:\Bearb....... vorgewählt.
Natürlich kann ich in jeden andern Ordner wechseln.
Also ich hab mir zwar das meiste zurechtgesucht und auf meine Bedürfnisse angepasst.
Aber das ist für mich der beste Lernprozess.

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

Na ja. Der Grund warum ich mich da so an dem Verzeichniss aufhänge ist der, dass es bei reinem Resamplen (Größenanpassung) und neu Komprimieren nicht nötig ist diese Bilder auf der Festplatte zwischen zu speichern. Außer natürlich du brauchst diese irgendwann noch mal etc etc etc. Mein Verständniss von deinem Programm war bisher der, dass du ein paar Bilder auswählen kannst und diese dann auf einen FTP Server übertragen werden. Sollten die Bilder von der Auflösung her zu groß sein werden sie angepasst und auch wenn sie zu wenig komprimiert wurden. So etwas kann man alles in einem Schritt machen. Von der Sicht her braucht man diese nicht zwischen zu speichern.

Aber dann will ich mal Budder bei die Fische tun. *args* grausames Deutsch. Ach ja. Bevor ich das vergesse. Wie sieht das mit EXIF Informationen aus? Jede Kamera speichert ein paar Informationen im Bild ab. Also wann wurde es geschossen und wie sahen die Einstellungen der Kamera zu dem Zeitpunkt aus. Für den ein oder anderen sind die Infos sehr interessant. Allerdings fallen die mit den Delphi eignen Mitteln komplett unter den Tisch. Wenn du diese Informationen benötigst, dann ist nachfolgendes ziemlich irrelevant, weil man das so dann nicht machen darf. Wenn die Infos erhalten bleiben sollen wird es nicht einfacher.

Ein JPEG kannst du folgendermaßen laden.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

uses
  ..., jpeg;

begin
  fOriginalJPEG := TJPEGImage.Create;  // JPEG Instanz erstellen
  fOriginalJPEG.LoadFromFile('C:\IMG_1878_1.JPG'); // Datei laden
  fOriginalJPEG.DIBNeeded;  // JPEG dekomprimieren (kann 1-2 Sekunden dauern)

Zur Verringerung der Auflösung des Bildes benötigst du zwei temporäre TBitmaps. Das Erste ist eigentlich nur eine kopie des JPEGs. Ist blöder Weise notwendig. Anschließend wird die Größe des kleineren Bildes berechnet und auf das größere dort drauf gezeichnet und dabei ineinanderfallen Pixel interpoliert.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

var
  TempBMP, TempBMPOrg: TBitmap;
begin
  // ist das Bild kleiner als 1200x1200 muss nichts gemacht werden.
  if (fOriginalJPEG.Width <= 1200) and (fOriginalJPEG.Height <= 1200) then
    Exit;

  TempBMPOrg := TBitmap.Create;
  try
    // jpeg auf bitmap zuweisen (blöder zwischenschritt der leider sein muss,
    // da das jpeg an einigen Stellen unsinigerweise beschränkt ist)
    TempBMPOrg.Assign(fOriginalJPEG);

    // zweites kleineres bitmap
    TempBMP := TBitmap.Create;
    try
      // Pixelformat des Bitmaps setzen
      TempBMP.PixelFormat := pf24bit;

      // größe auf 1200x1200 (proportional) beschränken
      if fOriginalJPEG.Height > fOriginalJPEG.Width then begin
        TempBMP.Height := 1200;
        TempBMP.Width := 1200 * fOriginalJPEG.Width div fOriginalJPEG.Height;
      end else begin
        TempBMP.Height := 1200 * fOriginalJPEG.Height div fOriginalJPEG.Width;
        TempBMP.Width := 1200;
      end;

      // große bitmap auf kleines bitmap zeichen, dabei resampeln
      SetStretchBltMode(TempBMP.Canvas.Handle, STRETCH_HALFTONE);
      StretchBlt(
        TempBMP.Canvas.Handle,    0, 0, TempBMP.Width,    TempBMP.Height,
        TempBMPOrg.Canvas.Handle, 0, 0, TempBMPOrg.Width, TempBMPOrg.Height,
        SRCCOPY);

      // verändertes bild auf jpeg zurück übertragen
      fOriginalJPEG.Assign(TempBMP);
    finally
      TempBMP.Free;
    end;
  finally
    TempBMPOrg.Free;
  end;

Anschließend musst du das Bild noch komprimieren und kann es dann speichern oder was auch immer damit machen. Dieser Codeabschnitt kann aber durchaus einige Zeit in Anspruch nehmen. Besonders, wenn du die Auflösung der Bilder kaum reduzierst.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var
  TempJPEG: TJPEGImage;
  MS: TMemoryStream;
  Quality: Integer;
begin
  // temporärer Pufferspeicher
  MS := TMemoryStream.Create;
  try
    // 
    for Quality := 95 downto 75 do begin
      MS.Clear;

      // temporäres JPEG erstellen
      TempJPEG := TJPEGImage.Create;
      try
        TempJPEG.Assign(fOriginalJPEG);  // Originales Bild zuweisen
        TempJPEG.CompressionQuality := Quality;  // Qualität
        TempJPEG.Compress; // kommprimieren (dauert mitunter 1-2 Sekunden)
        TempJPEG.SaveToStream(MS);  // In Pufferspeicher schreiben
      finally
        TempJPEG.Free;
      end;

      // Bild < 1MB 
      if MS.Size < 1024 * 1024 then 
        Break;
    end;

    // Pufferspeicher auf Festplatte schreiben oder via Indy direkt übertragen.
    MS.SaveToFile('C:\IMG_test.jpg');
  finally
    MS.Free;
  end;

Die Schleife so wie sie ist ist ziemlich beknackt, denn sie komprimiert stumpf in einer Schritten. Hatte ich ja schon mal geschrieben, dass wenn das Bild bei einer Qualität von 95 noch ca 1.5 MB groß ist, dann wird es bei 94 auf keinen Fall 1MB unterschreiten. Entsprechend solltest du überprüfen ob das Bild 20-30% Größer ist und dann größere Schritte als 1 benutzen bzw. bei Größen die über 50-75% größer sind als 1 MB kann man vermutlich auch schon in 10er Schritten die Qualität verändern. Im Zweifel kannst du bei zu kleinen Bildern ja wieder ein paar Stufen die Qualität erhöhen. Die Qualität solltest du natürlich nicht zu klein machen.

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

kalle · Beiträge: 20 Alles mögliche D7 ?

Danke erstmal
Hab aber immernoch Probleme mit der Filegröße
jetzt schrumpft er erstmal jedes Bild und das klappt super danke.

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

kalle hat folgendes geschrieben :

Hab aber immernoch Probleme mit der Filegröße

Dann musst du mal ein bisschen genauer werden. Denn "Probleme" ist als Beschreibung nicht sonderlich gut geeignet. Wir können nicht wissen was du da alles schon gemacht hast und wo es jetzt genau hackt. Da ist es dein Part solche Fragen zu stellen auf die wir auch antworten können.

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

alzaimar · Verfasst: Do 23.10.08 08:41

Nur mal so nebenbei:
Fotos mit 1000dpi o.ä. sind für den Druck absoluter Quatsch, außer man will Poster ausdrucken und selbst da werden die Offset-Filme vergrößert, welche auf Basis eines 150-300dpi Fotos erstellt wurden. Es macht insofern kaum Sinn, Farbfotos in einer gigantischen Auflösung zu speichern, selbst wenn irgendwelche Fotodrucker mit 1200 oder 4000dpi protzen. Das ist alles hirnverbrannter Mist. Viel wichtiger ist die Brillianz, Kontrast und Farbdynamik. Eine sehr gute 3MP-Kamera mit einem Qualitativ hochwertigen CCD schlägt eine Hyper-10-Megapixelmaniekamera mit einem lausigen CCD um Längen, aber das scheint keinen mehr zu interessieren.

Einer Trommelscanner (ca. 100.000 Euro) arbeitet z.B. mit 150dpi, aber dafür mit einer atemberaubenden Dynamik (=Farbtiefe und Genauigkeit). Daher würde ich 300-600dpi für die Archivierung von Bildern, die bis 1:2 ausgedruckt werden, als vollkommen ausreichend ansehen.

Für die Bildbearbeitung ist es natürlich sinnvoll, die Bilder in einer höheren Auflösung zu speichern, aber ich würde da auch kein JPEG nehmen, sondern ein verlustfreies Format, wie z.B GIF und auf die Größe sch****, da Qualität wichtiger als Quantität ist.

Mach doch einfach einen Versuch, indem Du die Bilder in unterschiedlichen Auflösungen ausdruckst und Dich dann für eine Auflösung entscheidest, mit der Du und deine Mitstreiter zufrienden sind. Dann packst Du da noch 20% rauf und fertig.

_________________
Na denn, dann. Bis dann, denn.

ub60 · Beiträge: 765 Erhaltene Danke: 130

alzaimar hat folgendes geschrieben :

Für die Bildbearbeitung ist es natürlich sinnvoll, die Bilder in einer höheren Auflösung zu speichern, aber ich würde da auch kein JPEG nehmen, sondern ein verlustfreies Format, wie z.B GIF und auf die Größe sch****, da Qualität wichtiger als Quantität ist.

Die Idee mit dem verlustfreien Format ist gut, aber GIF hat nur 256 Farben. Wenn das keine Verluste sind! :twisted:

Besser wäre hier PNG (ohne Verluste) oder das "neue" JPG2000 mit geringeren Verlusten bei gleicher Dateigröße.

ub60

alzaimar · Verfasst: Do 23.10.08 13:04

Hupsa, ist mir das peinlich. Ist schon ne Weile her. Ich dachte, wir hätten immer mit GIF gearbeitet, muss mich geirrt haben.

_________________
Na denn, dann. Bis dann, denn.

ub60 · Beiträge: 765 Erhaltene Danke: 130

alzaimar hat folgendes geschrieben :

Hupsa, ist mir das peinlich. Ist schon ne Weile her. Ich dachte, wir hätten immer mit GIF gearbeitet, muss mich geirrt haben.

Wenn es ne Weile her ist (so ca. 15 Jahre :lol:

) könnte das ja sein.

ub60

alzaimar · Verfasst: Do 23.10.08 20:39

ub60 hat folgendes geschrieben :

Wenn es ne Weile her ist (so ca. 15 Jahre :lol:

) könnte das ja sein.

Och menno, nu hack doch nich auf sonem alten Sack rum, der seinem Nick langsam alle Ehre macht.. :oops:

Was soll ich denn sonst noch machen? Etwa nach Schipol durch die Passagierkontrolle und das Bild hier reinstellen? :bawling:

_________________
Na denn, dann. Bis dann, denn.

kalle · Beiträge: 20 Alles mögliche D7 ?

Also ich hab mich da wohl etwas falsch ausgedrückt.
Der Code von Lossex ist klasse.
Aber die Zeile wo er nachfragt ob die größe gut ist um dann evtl einfach nix zu machen.
Die geht nicht.
Immoment macht er jedes Bild kleiner.
Das klappt super
Danke an dierer Stelle nochmal

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme