Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 2 odgovora
  • 4.194 pregleda

Najnovija ↓

Kako snimiti JPG 14.01.2004. u 20:23 · pre 277 meseci #1
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!
Potpis
ex Strog

http://www.zeussoftware.rs
Re: Kako snimiti JPG 16.01.2004. u 20:28 · pre 277 meseci #3
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;
Potpis
Avram,
http://www.eyesburn.co.sr/
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme