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

Kako snimiti JPG

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

[ Pregleda: 3500 | 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: 507
*.ptt.yu.

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Kako snimiti JPG14.01.2004. u 19:23 - pre 254 meseci
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
 
Odgovor na temu

kefalo
Banjaluka, RS, BiH

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

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


+6 Profil

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

Crazy Mix
Nemanja Avramovic
QuadraSoft
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 - pre 254 meseci
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/
 
Odgovor na temu

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

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

Postavi temu Odgovori

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