bmp以外のファイルを回転させるには
解決ホームページを拝見しました。なんとかBitmap形式の画像の回転の方法はわかったのですが、そこでjpegのファイルも一度Bitmapにしてから回転をさせることで、何とかできたのですが、そのままで画像を回転する方法はないのでしょうか？
TJPEGImageを使えばできそうです。
たしか、Delphi3以上ならCD-ROMに入っていたような・・・。
# Delphi5にはインストール時に入ってました。ヘルプにもあります
でも、
> そこでjpegのファイルも一度Bitmapにしてから回転をさせることで、何とかできたのですが
って書いてありますね。
そのままで回転って、ファイルの中身を回転ということでしょうか。
それなら、TJPEGImageをつかってSaveToFileすれば保存されますが、これではだめですか。
Jpegの画像フォーマットの仕様のため、ファイルの中身を直に回転させることは難しいと思います。
返信ありがとうございます。
なるほど、TJPEGImage使ってみますね。
でもやはりBMPのように回転はできないのですね。
このホームページにある画像の回転は、９０度回転のものしか見つけられなかったので勘違いかもしれませんが、BMPの回転は一度メモリ内に読み込んで、単純な２次配列上の入れ替えしかしていないと思います。
ＪＰＥＧでもＢＭＰでもＰＮＧでも、２次配列として扱えば全て同じです。
ファイルに格納されているデータは、ＪＰＥＧの場合圧縮されているので、一度元に戻してから出ないと回転できません。
回転したあと圧縮した場合、元のＪＰＥＧファイルとほとんど別のファイルになります。
返答ありがとうございます。
正直Delphiを始めたばかりなのでよくわからないのですが、現在の方法としては
１．JPEGファイルを読み込む
２．BMPに変換する
３．フォーム上のImageに表示する
４．ボタンを押して画像を回転（このページのソースを参考にしました。）
という方法をとっています。
ソースの概略としては
jpg:=TJPEGImage.Create;
BMP:=TBitmap.Create;
Jpg.LoadFromFile(FileName);
BMP.Assign(Jpg);
ShowImage.Picture.Bitmap:=BMP;
でBMPにしてから回転をしているのですが
必要ないということなのでしょうか?
それであってます。
そういう意味であれば、WindowsではJPEGをそのまま表示することはできません。
内部でBMP形式に変換されています。
JPEGは非可逆圧縮です。
非可逆圧縮の画像の場合、ある１点(x,y)の色を、瞬時に読み書きすることはできません。
一度デコードして、その点の色を読み(書き)、またエンコードしないとなりません。
このエンコードされたJPEGは、元のJPEGと比較して単純にどこが変わったかわかるものではありません。
| ツイート |  |