RotateFlip

[BGrosse]

Hi, BDS 2006, Vcl-Net, WinXp, Framw. 1.1, Framw. 1-3 Installiert

img := Image.FromFile(sPfad);
img.RotateFlip(RotateFlipType.Rotate90FlipNone);
img.Save(sPfad, ImageFormat.Jpeg)
img.Dispose;

Nach dem Drehen sind die Bilder von 2,7MB auf 544KB geschrumpft
Das war vor 6 Monaten, glaub ich nicht so
Weiß einer, ob die Bilder nur gepackt sind oder Verlust beim Drehen haben?

Danke schon mal im voraus.

[Bernhard Geyer]

JPEG kann verlustbehaftet komprimieren. Und wenn deine Ursprungsdateien nicht oder nur schlecht komprimiert waren dann können sie nach dem Packen kleiner sein.

[BGrosse]

Hi, BDS 2006, Vcl-Net, WinXp, Framw. 1.1, Framw. 1-3 Installiert

Antwort:
Das wäre zu schön, wenn das die Erklärung wäre, aber ich bin misstrauisch, ich glaube da wird ge_updatet an der GDI+ oder Image.dll wie immer und nach jedem Update will man dann alles neuentwickeln.
P.S. Wenn MS ein Packer da eingebaut hat, warum wird er dann nicht in XP benutzt oder in Graphics(Net), auf der Maschine werden die gleichen Fotos ohne Verlust oder (packen) gedreht.
Das Einzige, was dafür spricht ist das, dass die Fotos nur einmal verkleinert werden und dann so bleiben beim Weiterdrehen.

Neu:
Bei jeder zweiten Rechtsdrehung (90Crad) stimmt das Bild auch nicht mehr.
Das Thumb wird dann falsch gedreht (das Bild stimmt)
Kann das bitte mal einer auf seinem Rechern "TESTEN", nicht das der Fehler nur bei mir zu suchen ist

System.Drawing,
System.Drawing.Imaging,
System.Drawing.Drawing2D;

procedure TForm1.Button1Click(Sender: TObject);
var
img : Image;
sPfad : string;
begin
sPfad := ExtractFilePath(ParamStr(0))+'TestBild.jpg';
img := Image.FromFile(sPfad);
img.RotateFlip(RotateFlipType.Rotate90FlipNone);
img.Save(sPfad, ImageFormat.Jpeg);
img.Dispose;
end;

Thumb anzeigen in Explorer!

Danke schon mal im voraus.

[BGrosse]

Hi, BDS 2006, Vcl-Net, WinXp, Framw. 1.1, Framw. 1-3 Installiert

Ich war mir ja nicht sicher weil bei mir auch die Demo von Rad2007 oben
war und sich schlecht deinstalliert hat
Hab jetzt mal ein Rechern genommen wo kein Delphi oben ist
nur die Delphi,D.Vcl, D.VclRtl im gac sind

Das gleiche Problem.. Also warscheinlich doch BillyBoy


Danke schon mal im voraus.