JPEG形式を開くには？ (ID：12326)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

BMP形式の画像をJPG形式の画像に保存はできますが、保存した画像を開こうとすると「JPEGエラー#53」が出ます。

プログラムは以下の通りです。
よろしくお願いします。
//********************************開く
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  JPG : TJpegImage;
  JorB : String;
begin

if OpenPictureDialog1.Execute then
  begin
    BitMap := TBitmap.Create;
    JorB := OpenPictureDialog1.FileName;

if AnsiContainsText(JorB,'.jp') then
    begin
    JPG :=TJpegImage.Create ;
    JPG.LoadFromFile(OpenPictureDialog1.FileName);    //ファイルをロードする。
    BitMap.Assign(JPG);   //ビットマップにファイルをロードする。
    JPG.Free;
    end else if AnsiContainsText(JorB,'.bmp') then
    begin
      BitMap.LoadFromFile(OpenPictureDialog1.FileName);
    end;
    Form2.ImageView(BitMap);
  end;
end;

//********************************保存
procedure TForm1.BitBtn2Click(Sender: TObject);
var
  JPG : TJpegImage;
  j:String;
begin
   if SavePictureDialog1.Execute then
   begin
     if (SavePictureDialog1.Filter = 'jp') then
     begin
     JPG :=TJpegImage.Create ;
     JPG.Assign(BitMap);
     BitMap.SaveToFile(SavePictureDialog1.FileName);
     BitMap.Free;
     end else begin
     BitMap.SaveToFile(SavePictureDialog1.FileName);
     BitMap.Free;
     end;
   end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る