jpg->Compress(); Fehler #36

[Braunstein]

Hallo ihr beiden,

Ich habe im web mal das hier gefunden
http://delphi.pjh2.de/articles/graphic/bitmap.php#JPEG
Ist zwar Delphi, beschreibt aber in etwa euren Sachverhalt. Vielleicht hilft das ja.

Ciao

[YLIREBUS]

Der Link sah ganz vielversprechend aus ....
Jetzt sieht mein Code so aus:

jpg->LoadFromFile("c:\\juergen2.jpg");
bmp->Assign(jpg);

jpg->CompressionQuality =iqual;
jpg->Assign(bmp);
jpg->ProgressiveEncoding=true; // <-- NEU
jpg->Smoothing=false; // <-- NEU
jpg->Compress();
jpg->SaveToFile("C:\\xx" + IntToStr(iqual)+ ".jpg");

der Effekt ist der selbe, als wenn ich

bmp->Assign(jpg);

und

jpg->Assign(bmp);

weg lasse (Dateigroesse 0KB ) .
trotzdem danke

[F98]

Tja, da scheint wohl TJpegImage etwas buggy zu sein.

[Gast]

Gab es da nicht noch irgendeine Eigenschaft bezüglich der ImageQuality? Schon mal damit experimentiert?

[YLIREBUS]

Nei , habe ich noch nicht mit experimentiert.
Werde der Sache mal auf den Grund gehen.

[YLIREBUS]

Hmm. ich finde nur die CompressionQuality

[Gast]

YLIREBUS schrieb:

Hmm. ich finde nur die CompressionQuality

Genau das meine ich.

[YLIREBUS]

Damit arbeiten wir doch schon die ganze Zeit .
siehe oben

[Braunstein]

ein weiterer Link
http://www.delphipraxis.net/post66158.html

[F98]

Wie im Deplhi-Forum beschrieben funktionierts:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     TJPEGImage *jpg = new TJPEGImage();

     try
     {
        jpg->LoadFromFile("c:\\Temp\\sq15.jpg");
        jpg->CompressionQuality = 1; // 1..100
        jpg->DIBNeeded();
        jpg->Compress();
        jpg->SaveToFile("c:\\Temp\\compressed.jpg");
     }
     catch ( ... )
     {
           ShowMessage("Compression error.");
     }

     delete jpg;
}

[YLIREBUS]

@F98 probier das bitte mal mit Compress 60.

Danke Braunstein, aber auch das ändert leider nichts.

Das Problem ist das es mit einigen "CompressionQuality's" funzt und mit anderen nicht.

Fals jemand irgendwann auch auf diese Problem Stößt hier mal die Fakten:

Borland C++ Builder5

Mein derzeitiger CODE:

jpg->LoadFromFile("c:\\juergen2.jpg");

bmp->Assign(jpg);
jpg->CompressionQuality =iqual;//(int)Bild->CompressionQuality;
jpg->Assign(bmp);
jpg->DIBNeeded();
jpg->ProgressiveEncoding=true;
jpg->Smoothing=true;
jpg->Compress();
jpg->SaveToFile("C:\\xx" + IntToStr(iqual)+ ".jpg");

LOG:

Ursprungsdaeit 15.800 KB (juergen2.jpg)

Uebersicht: (Größen der Target-Datein)

CompressionQuality(ohne jpg->ProgressiveEncoding=true; und jpg->Smoothing=true; und jpg->DIBNeeded())

10 --> FEHLER
20 --> FEHLER
30 --> 2170 KB
40 --> 2495 KB
50 --> 2810 KB
60 --> FEHLER
70 --> FEHLER
80 --> 4449 KB
90 --> 6325 KB
100 --> O.K

+ jpg->ProgressiveEncoding=true;
+ jpg->Smoothing=true;

10 982 KB
20 immer noch Fehler
30 jetzt Fehler
40 2330 KB
50 2657 KB
60 3002 KB
70 immer noch Fehler
80 4283 KB
90 jetzt Fehler
100 14970

+ jpg->DIBNeeded(); --> Das selbe Ergebnis wie ohne.

Die Klasse ist denke ich ja Delphi Code...
Meine letzte Überlegung ist jetzt die MFC Klasse zu nehmen das Bild zu komprimiern, dann speichern und dann wieder zu laden.

Ist das jetzt zu weit hergeholt ??

[YLIREBUS]

Durch

jpg->DIBNeeded();

fällt auf alle Fälle schon einmal

bmp->Assign(jpg);

und

jpg->Assign(bmp);

weg.

[F98]

Klappt bei mir bei jeder Quality-Einstellung.

Bei codeproject.com hat jemand eine feine Klasse geschrieben, allerdings für VC:

http://www.codeproject.com/bitmap/cximage.asp

[YLIREBUS]

Wie groß ist Dein Bild ?

nimm mal bitte eins was 8 MB gross ist oder groesse.

[F98]

Meins war 40kB groß, eins was 8MB groß ist habe ich nicht.

[YLIREBUS]

Dann puste es doch auf (habe ich mit meinem auch gemacht )

[F98]

So, hab ich gemacht, auf 11MB. Das Ergebnis ist das Selbe: Es funktioniert bei mir mit allen CompressionQuality-Einstellungen problemlos. Hast Du mal ein anderes Bild probiert als das, was Du jetzt verwendest?

[YLIREBUS]

JA, ich habe mehrere Bilder "aufgepumpt" und damit ausprobiert.
Ich möchte nicht glauben das der ADOBE Phoptoshop fehler beim Aufpusten macht .
Was zu beweisen wär .
Könntest Du mal ein Bild von mir nehmen und das ausprobieren ?
Kann ich Dir eins mailen ? 8MB oder eins auf meiner Webseite bereitstellen (geht erst heute abend habe die Fernwartung nich laufen )?

Du hast echt was Gut bei mir.

[F98]

Yo. Schick mal per Mail.

[YLIREBUS]

Habe mal die Trial Version von Borland C++ Builder 6 installiert und was soll ich sagen dort funzt es einwandfrei .

Werden dann wohl mal endlich auf 6 umsteigen

Vielen Dank nochmal für die Hilfe.