Как сохранить в JPG

← →
Vladimir1984 © (2006-12-25 02:20) [0]

Как сохранить в JPG вот в таком варианте?
procedure TfrmPulsar3D.SpeedButton2Click(Sender: TObject); var bmp: TBitmap; begin bmp := TBitmap.Create; try bmp.Width := panel7.Width; bmp.Height := panel7.Height; BitBlt(bmp.Canvas.Handle, 0, 0, screen.Width, screen.Height, GetDC(GetDesktopWindow), 0, 0, SRCCopy); bmp.Assign(bmp); If SavePictureDialog1.Execute then begin SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap); bmp.SaveToFile(SavePictureDialog1.fileName); end; finally bmp.Free; end; end;

← →
Германн © (2006-12-25 02:30) [1]

Брр...

← →
Vladimir1984 © (2006-12-25 02:45) [2]

хм...

← →
Германн © (2006-12-25 02:51) [3]

> Vladimir1984 © (25.12.06 02:45) [2]
>
> хм...
>

Откуда спёр сей вариант? :-)

← →
Vladimir1984 © (2006-12-25 03:11) [4]

http://www.delphisources.ru/forum/showthread.php?t=753
:D

← →
Vladimir1984 © (2006-12-25 03:11) [5]

ой не тут...=) не помню где =)

← →
MBo © (2006-12-25 07:10) [6]

В хелпе по TJpegImage.Assign есть человеческий пример преобразования битмапа в jpeg и сохранения.

← →
inkvizitor © (2006-12-25 09:15) [7]

> If SavePictureDialog1.Execute then
> begin
> SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap);
>
> bmp.SaveToFile(SavePictureDialog1.fileName+".jpg");
> end;

и всего делов.
SavePictureDialog1.fileName это строка и можно писать все что "угодно".
поэтому можно добавлять "*.jpg" И т.д.
если альтернатива в расширениях то:
if SavePictureDialog1.filterindex=1
then bmp.SaveToFile(SavePictureDialog1.fileName+".*");
if SavePictureDialog1.filterindex=2
then bmp.SaveToFile(SavePictureDialog1.fileName+".**");
ну сам разберешся.

← →
MBo © (2006-12-25 09:24) [8]

>поэтому можно добавлять "*.jpg"
и при этом битмап преобразуется в джипег?

опечатка ".jpg"
таким образом сохранял в jpg & bmp нормально было.

> таким образом сохранял в jpg & bmp нормально было.

если загружал так же, то откуда проблемы. Bitmap Bitmap-ом и останется, какое расширение файлу не дай. :)

Автору. SaveToFile должен делать не TBipMap, а TJpegImage

> MBo (25.12.2006 7:10:06) [6]

Он уже признался, что справкой принципиально не пользуется, только методом научного втыка и нахватанного с Инет.

Как сохранить в JPG Найти похожие ветки