Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako snimiti JPG

[es] :: Pascal / Delphi / Kylix :: Kako snimiti JPG

[ Pregleda: 1823 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 504
*.ptt.yu.

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Kako snimiti JPG14.01.2004. u 19:23

Radim jedan program u Delphiju za rad sa slikama i pitanje je sledece:

Kako da snimim neku sliku u *.jpg formatu? Slika se nalazi u Image1, i po defaultu, kada se snima, ona sa snimi u *.bmp. Za snimanje ne koristim Delphijev SaveDialog, vec sam ja napravio novu formu sa DirectoryListBox, FileListBox, i ostalim potrebnim stvarima za setkanje kroz direktorijume i snimanje fajlova.

Unapred hvala na odgovorima!
ex Strog

http://www.zeussoftware.rs
14.01.2004. u 19:23 

kefalo
Banjaluka, RS, BiH

Član broj: 18959
Poruke: 263
*.dip.urc.bl.ac.yu

ICQ: 178873696
Sajt: home.blic.net/mozlas


Profil

icon Re: Kako snimiti JPG15.01.2004. u 14:05
www.torry.ru tamo potrazi u tips... ja sam takodje nesto radio sa jpg.. ali mi se ne da sad traziti po sorsu
15.01.2004. u 14:05 

Crazy Mix
Nemanja Avramovic
Mladenovac

Član broj: 7103
Poruke: 331
*.vdial.verat.net

ICQ: 266136396
Sajt: www.quadrasoft.co.sr


Profil

icon Re: Kako snimiti JPG16.01.2004. u 19:28
Laptopovi

Dodas u uses sekciju: jpeg

Code:

var jp: TJpegImage;
    bmp: TBitmap
begin
  jp:=TJpegImage.Create;
  bmp:=TBitmap.Create;
  // prvo ucitavamo bitmapu
  bmp.LoadFromFile('slika.bmp');
  with jp do
    begin
      // pridruzujemo sadrzaj bitmape jp varijabli
      Assign(bmp);
      // snimamo sadrzaj jp varijable na disk kao jpeg sliku
      SaveToFile('slika.jpg');
    end;
  // na kraju oslobadjamo memoriju
  jp.Free;
  bmp.Free;
end;
Avram,
http://www.eyesburn.co.sr/
16.01.2004. u 19:28 

[es] :: Pascal / Delphi / Kylix :: Kako snimiti JPG

[ Pregleda: 1823 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.