Перевод BMP в TIFF

[artemavd]

Как выполнить такой перевод? Я пробовал так:

procedure TForm1.BtnMoveClick(Sender: TObject);
var
 x,y,i:integer;
 b:TBitmap;
 sr:TSearchRec;
 s:string;
begin
 b:=TBitmap.Create;
 FindFirst(Form1.StatusBar3.Panels[1].Text +'*.bmp',faAnyFile,sr);
// FindNext(sr);
   b.LoadFromFile(Form1.StatusBar3.Panels[3].Text + sr.Name);
   b.SaveToFile(Form1.StatusBar3.Panels[3].Text + sr.Name + '.tiff');
 b.Free;
 FindClose(sr);
 ShowMessage('             Выполнено!             ');
end;

но как обычно не получилось). Нужно, чтобы из указанной папки брались bmpшки и переводились в тифы и оставались в папке с bmpшками.

[Stilet]

Попробуй использовать GDI+. По-моему даже D2010 такого не предусмотренно.
А вот если подключить модули GDI+ то конвертация возможна.

[artemavd]

Да нет, вроде бы все работает, разобрался в чем дело было. Файл пересохраняется в TIFF формат и открывается через "Просмотр". Но берется только первый файл. Куда там в коде добавить, чтобы все файлы из папки брались?
Косяк был тут:

procedure TForm1.BtnMoveClick(Sender: TObject);
var
 x,y,i:integer;
 b:TBitmap;
 sr:TSearchRec;
 s:string;
begin
 b:=TBitmap.Create;
 FindFirst(Form1.StatusBar3.Panels[1].Text +'*.bmp',faAnyFile,sr);
// FindNext(sr);
   b.LoadFromFile(Form1.StatusBar3.Panels[3].Text + sr.Name);
   b.SaveToFile(Form1.StatusBar3.Panels[3].Text + sr.Name + '.tiff');
 b.Free;
 FindClose(sr);
 ShowMessage('             Выполнено!             ');
end;

не совпадало указанное место хранения файлов и откуда загружаются в переменную.

[Пепел Феникса]

эмм...ты же формат файла не меняешь, а тольк расширение.
вообще я знаю у GLScene есть модуль для работы с TIFF(и тд).
пользоватся ими так же как и JPEG-овским.

циклом пока находим файлы.

[artemavd]

А как найти этот самый модуль? У меня установлена эта библиотека.