Как загруженную в Timage фтку в jpg формате сохранить в bmp формате ?

Dmitriy O.
Дата: 25.06.2009 15:36:33
Собственно сабж
Dimitry Sibiryakov
Дата: 25.06.2009 15:39:20

RTFM Assign, SaveToFile.

Posted via ActualForum NNTP Server 1.4

Anatoly Podgoretsky
Дата: 25.06.2009 16:21:14
Сообственно как обычно, но почему такой вопрос у тебя же есть универсальный конвектор

--
http://www.podgoretsky.com
ддддд
Дата: 25.06.2009 16:31:54
Кодировочник - это пройденный этап.
Сейчас, как я понимаю, ведется работа по созданию OLAP мега системы для домохозяек.
Судя по тому, что автор уже научился динамически добавлять пункты в меню, он уже недалек от построения супер мегакуба!
Oleg Kondratskiy
Дата: 25.06.2009 16:40:23
var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
jpg := TJPEGImage.Create;
bmp := TBitmap.Create;
  try
    bmp.LoadFromFile('1.bmp');
    jpg.Assign(bmp);
    jpg.SaveToFile('1.jpg');
    finally
    jpg.Free; bmp.Free;
  end;
LSV
Дата: 25.06.2009 18:09:18
Dmitriy O.
Собственно сабж
Под ником Delphiguru сюда заходить не рискнул ? Ну и правильно.
Dmitriy O.
Дата: 25.06.2009 20:42:55
Спасибо всем нашел поиском

Копипаст из DRKB Озерова

JPG ---> BMP

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.
}
Соколинский Борис
Дата: 25.06.2009 20:49:30
jpeg.CompressionQuality := 100; 
S.G.
Дата: 26.06.2009 11:08:12
ддддд
Кодировочник - это пройденный этап.
Сейчас, как я понимаю, ведется работа по созданию OLAP мега системы для домохозяек.
нет, там все гораздо серьезнее ...
глобальная проблема сохранения в файл решена, остается мелкая- определить здоровье человека, прочитав файл с фото

ДимаО, не поделишься алгоритмом?
дддддд
Дата: 26.06.2009 12:03:01
Я думал, что это было написано при очередном обострении...