Работа со сканером

← →
Ильнур (2002-06-13 11:05) [0]

подскажите как в программе сканировать изображение и сохранить его в формате jpg.
При этом можно канечно вызвать тваин диалог самого сканера но это слишком долго (предварительное сканирование, сохранение.
Хотелось как в FainRidere с опцией без вызова тваин диалога.
OCX компонент Imegscan не может сохранить его в формате jpg, а только в TIFF,BMP,WMF. А поскольку файлы предпологается хранить в базе данных эти форматы не подходят (они получаются большими - проверено). подскажите может программно можно както их конвертировать или подскажите где взять компонент управления сканером)
Заранее большое спасибо!

← →
Hub (2002-06-13 16:05) [1]

Конвертирование однозначное, т.к. у нас работает промышленная прога Xerox"овая с обязательной конвертацией Tiff в Jpeg.

Конвертируем из bmp в jpeg:
uses jpeg;
var
jp: TJpegImage;
BitMap1: TBitMap;
begin
BitMap1:=TBitMap.Create;
BitMap1.LoadFromFile("my.bmp");
jp:=TJpegImage.Create;
jp.Assign(BitMap1);
jp.SaveToFile("my.jpg");
BitMap1.Free;
jp.Free;
end;
Модуль jpeg - стандартный в Д5.

Работа со сканером Найти похожие ветки