Hi, BDS 2006, WinXp,
Ich habe die Frage schon mal unter Delphi.Net gestellt
und möchte das Ganze mal weiter eingrenzen.
Kann einer mal so .Net sein und das in C# drehen.
Problem:
Beim 2*90 Grad rechts drehen stimmen das Bild
und das Thumbnail nicht mehr überein!
Zusätzlich wird das Bild in seiner Größe geändert von 2MB auf 700KB,
was beim Vergleich der Bilder zeigt, dass kein verlustfreies Drehen stattgefunden hat!
Das verlustfreie Drehen ging meines Erachtes früher sogar!
DelphiCode:
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;
//
img := img.GetThumbnailImage(img.Width, img.Height, nil, IntPtr.Zero);
-oder im Explorer einfach anschauen F5 nicht vergessen
//
Danke schon mal im voraus.
Gruss Bernd
Ich habe die Frage schon mal unter Delphi.Net gestellt
und möchte das Ganze mal weiter eingrenzen.
Kann einer mal so .Net sein und das in C# drehen.
Problem:
Beim 2*90 Grad rechts drehen stimmen das Bild
und das Thumbnail nicht mehr überein!
Zusätzlich wird das Bild in seiner Größe geändert von 2MB auf 700KB,
was beim Vergleich der Bilder zeigt, dass kein verlustfreies Drehen stattgefunden hat!
Das verlustfreie Drehen ging meines Erachtes früher sogar!
DelphiCode:
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;
//
img := img.GetThumbnailImage(img.Width, img.Height, nil, IntPtr.Zero);
-oder im Explorer einfach anschauen F5 nicht vergessen
//
Danke schon mal im voraus.
Gruss Bernd