Текущий архив: 2007.01.14;
Скачать: CL | DM;
Вниз
Как сохранить в 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"
и при этом битмап преобразуется в джипег?
← →
inkvizitor © (2006-12-25 09:40) [9]опечатка
".jpg"
таким образом сохранял в jpg & bmp нормально было.
← →
ЮЮ © (2006-12-25 09:48) [10]
> таким образом сохранял в jpg & bmp нормально было.
если загружал так же, то откуда проблемы. Bitmap Bitmap-ом и останется, какое расширение файлу не дай. :)
Автору. SaveToFile должен делать не TBipMap, а TJpegImage
← →
ЮЮ © (2006-12-25 09:48) [11]
> таким образом сохранял в jpg & bmp нормально было.
если загружал так же, то откуда проблемы. Bitmap Bitmap-ом и останется, какое расширение файлу не дай. :)
Автору. SaveToFile должен делать не TBipMap, а TJpegImage
← →
Anatoly Podgoretsky © (2006-12-25 10:36) [12]> MBo (25.12.2006 7:10:06) [6]
Он уже признался, что справкой принципиально не пользуется, только методом научного втыка и нахватанного с Инет.
Страницы: 1 вся ветка
Текущий архив: 2007.01.14;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.046 c
