아마도 uses에 jpeg를 추가하지 않으신거 같은데여...


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure JPEGToBmp;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.JPEGToBmp;
var
        BMPImage : TBitmap;
        JPEGImage : TJPEGImage;
begin
        JPEGImage:=TJPEGImage.Create;
        try
             BMPImage:=TBitmap.Create;
        try
             JPEGImage.LoadFromFile(edit1.text);
             BMPImage.assign(JPEGImage);
             BMPImage.SaveToFile(edit1.text);
        finally
             BMPImage.Free;
        end;
        finally
             JPEGImage.Free;
        end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
  if (opendialog1.FileName <> '') then begin
   edit1.text:=opendialog1.FileName;
   JPEGToBmp;
  end;
end;

end.

프로시져인데요...
그냥

JPEGToBmp;

이렇게 하시면 됩니다

저도 그렇게했는데욤;;
안되요.ㅠㅠ 뭐가잘못된거죠?;;

안된다는건... 어떻게 안된다는거죠?

에러메세지라도 올려주심... 찾기 쉬울텐데요.