Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c