Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Конвертация *.bmp в *.jpeg   Найти похожие ветки 

← →
ASvencim ©   (2004-04-19 16:59) [0]

Есть ли в Delphi встроенная процедура конвертирования *.bmp в *.jpg?

---

← →
ASvencim ©   (2004-04-19 16:59) [0]

Есть ли в Delphi встроенная процедура конвертирования *.bmp в *.jpg?

---

← →
ASvencim ©   (2004-04-19 17:00) [1]

Извините, ошибся, нужно наоборот *.jpg в *.bmp

---

← →
ASvencim ©   (2004-04-19 17:00) [1]

Извините, ошибся, нужно наоборот *.jpg в *.bmp

---

← →
WebErr ©   (2004-04-19 17:01) [2]

А самому в FAQ залезть не судьба?

---

← →
WebErr ©   (2004-04-19 17:01) [2]

А самому в FAQ залезть не судьба?

---

← →
Clickmaker ©   (2004-04-19 17:02) [3]

TJpegImage

---

← →
Clickmaker ©   (2004-04-19 17:02) [3]

TJpegImage

---

← →
WebErr ©   (2004-04-19 17:06) [4]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625147&n=21
*.jpg в *.bmp ИМХО так же

---

← →
WebErr ©   (2004-04-19 17:06) [4]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625147&n=21
*.jpg в *.bmp ИМХО так же

---

← →
Yanis ©   (2004-04-19 17:11) [5]


uses  
 JPEG;  

procedure JPEGtoBMP(const FileName: TFileName);  
var  
 jpeg: TJPEGImage;  
 bmp:  TBitmap;  
begin  
 jpeg := TJPEGImage.Create;  
 try  
   jpeg.CompressionQuality := 100; {Default Value}  
   jpeg.LoadFromFile(FileName);  
   bmp := TBitmap.Create;  
   try  
     bmp.Assign(jpeg);  
     bmp.SaveTofile(ChangeFileExt(FileName, ".bmp"));  
   finally  
     bmp.Free  
   end;  
 finally  
   jpeg.Free  
 end;  
end;  

{  
 CompressionQuality (default 100):  
 Set a value between 1..100, depending on your need of quality and  
 image file size. 1 = Smallest file size, 100 = Best quality.  

 Mit CompressionQuality konnen Sie die Qualitat der Komprimierung fur die  
 JPEG-Grafik festlegen (Default ist 100), wenn diese gespeichert wird.  
 Eine hohere Komprimierung ergibt eine etwas schlechtere Bildqualitat,  
 dafur aber eine kleinere Datei.  
 1 = kleinste Dateigrosse, 100 = beste Qualitat  
}  


Из фака Vit"а

---

← →
Yanis ©   (2004-04-19 17:11) [5]


uses  
 JPEG;  

procedure JPEGtoBMP(const FileName: TFileName);  
var  
 jpeg: TJPEGImage;  
 bmp:  TBitmap;  
begin  
 jpeg := TJPEGImage.Create;  
 try  
   jpeg.CompressionQuality := 100; {Default Value}  
   jpeg.LoadFromFile(FileName);  
   bmp := TBitmap.Create;  
   try  
     bmp.Assign(jpeg);  
     bmp.SaveTofile(ChangeFileExt(FileName, ".bmp"));  
   finally  
     bmp.Free  
   end;  
 finally  
   jpeg.Free  
 end;  
end;  

{  
 CompressionQuality (default 100):  
 Set a value between 1..100, depending on your need of quality and  
 image file size. 1 = Smallest file size, 100 = Best quality.  

 Mit CompressionQuality konnen Sie die Qualitat der Komprimierung fur die  
 JPEG-Grafik festlegen (Default ist 100), wenn diese gespeichert wird.  
 Eine hohere Komprimierung ergibt eine etwas schlechtere Bildqualitat,  
 dafur aber eine kleinere Datei.  
 1 = kleinste Dateigrosse, 100 = beste Qualitat  
}  


Из фака Vit"а

---

← →
ASvencim ©   (2004-04-19 17:11) [6]

>WebErr ©   (19.04.04 17:01) [2]
>А самому в FAQ залезть не судьба?
Ну не знаю я английский, и переводчика под рукой нет!

---

← →
ASvencim ©   (2004-04-19 17:11) [6]

>WebErr ©   (19.04.04 17:01) [2]
>А самому в FAQ залезть не судьба?
Ну не знаю я английский, и переводчика под рукой нет!

---

← →
ASvencim ©   (2004-04-19 17:16) [7]

Спасибо, помогли

---

← →
ASvencim ©   (2004-04-19 17:16) [7]

Спасибо, помогли

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.036 c