Показать сообщение отдельно
  #3  
Старый 09.08.2009, 22:56
Аватар для AllMaNi
AllMaNi AllMaNi вне форума
Новичок
 
Регистрация: 15.06.2009
Адрес: Россия, ЮФО
Сообщения: 57
Репутация: 10
По умолчанию

Для примера - манипуляции с бмп и жпг. (из проги по созданию скриншота экрана и сохранению его в жпг)
Код:
procedure ScreenToJPG(filename:String);
var
  bm:TBitMap;
  jpg:TJPEGImage;
 begin
  bm:=TBitMap.Create;
  bm.Width:=Screen.Width;
  bm.Height:=Screen.Height;
  BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0,SRCCOPY);
  jpg:=TJPEGImage.Create;
  jpg.CompressionQuality := 75;
  jpg.Assign(bm);
  jpg.SaveToFile(filename + '.jpg');
  jpg.Free;
  bm.Free;
 end;

В Uses подключи модуль jpeg.
__________________
Пусть ненавидят миллионы, зато любят тыщи (с) Многоточие
Ответить с цитированием