[ Bojan Kopanja @ 14.01.2004. 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!
[ kefalo @ 15.01.2004. 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
[ Crazy Mix @ 16.01.2004. 19:28 ] @
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;