[RUS_Hacker]

Задача сделать из .jpg в .bmp c помощью Delphi 7
Подскажите кто знает ?

[Decoding]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

<i><font color="silver">// так</font></i> <b>uses</b>   ..., JPEG;   <b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b>   MyJPEG : TJPEGImage;   MyBMP : TBitmap; <b>begin</b>    MyJPEG := TJPEGImage.Create;    <b>with</b> MyJPEG <b>do</b>    <b>begin</b>       LoadFromFile( <font color="RoyalBlue">'YourJpegHere.JPEG'</font> );       MyBMP := TBitmap.Create;       <b>with</b> MyBMP <b>do</b>       <b>begin</b>          Width := MyJPEG.Width;          Height := MyJPEG.Height;          Canvas.Draw( <font color="royalblue">0</font>, <font color="royalblue">0</font>, MyJPEG );          SaveToFile( <font color="royalblue">'YourBmpHere.BMP'</font> );          Free;       <b>end</b>;       Free;    <b>end; end;</b>   <i><font color="Silver">// или так</font></i> <b>uses</b>   ..., JPEG;   <b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b>   MyBMP: TBitmap;   MyJPEG: TJPEGImage; <b>begin</b>    MyBMP := TBitmap.Create;    MyJPEG := TJPEGImage.Create;      MyJPEG.LoadFromFile( <font color="royalblue">'YourJpegHere.JPEG'</font> );    MyBMP.Assign( MyJPEG );    MyBMP.SaveToFile( <font color="royalblue">'YourBmpHere.BMP'</font> );      MyJPEG.Free;    MyBMP.Free; <b>end;</b>

[RUS_Hacker]

Спасибо за помощь