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

名前

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

本文

jokさんの指摘通り直してみました。
保存などはできたのですが、JPG形式で保存した画像を開こうとするとエラーが出てしまいます。

プログラムは以下のようになりました。
//********************************開く
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 = '.jpg') then
     begin
     JPG :=TJpegImage.Create;
      JPG.Assign(BitMap);
     JPG.SaveToFile(SavePictureDialog1.FileName);
     JPG.Free;
     end else begin
     TBitmap.Create;
     BitMap.SaveToFile(SavePictureDialog1.FileName);
     BitMap.Free;
     end;
   end;
end;

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

戻る