| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Vladimir1984 ©   (2006-12-25 02:20:00) 

Как сохранить в 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;


---

Anatoly Podgoretsky   (2006-12-25 10:36:00) [1]

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

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

---

ЮЮ   (2006-12-25 09:48:00) [2]

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


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

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

---

ЮЮ   (2006-12-25 09:48:00) [3]

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


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

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

---

inkvizitor   (2006-12-25 09:40:00) [4]

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

---

MBo   (2006-12-25 09:24:00) [5]

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

---

inkvizitor   (2006-12-25 09:15:00) [6]

> 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 07:10:00) [7]

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

---

Vladimir1984   (2006-12-25 03:11:00) [8]

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

---

Vladimir1984   (2006-12-25 03:11:00) [9]

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

---

Германн   (2006-12-25 02:51:00) [10]

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

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

---

Vladimir1984   (2006-12-25 02:45:00) [11]

хм...

---

Германн   (2006-12-25 02:30:00) [12]

Брр...

---

Наверх