| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Tbitmap...Tjpeg
denis24 © (2004-11-16 17:17:00)Передаю в битовую матрицу графические данные со сканера
TWAIN_DrawDibToDC(MyBitMap.Canvas.Handle,0,0,Width,Height,dat,0,0)
(TWAIN_DrawDibToDC- это функция библиотеки по подключению к сканеру)
В итоге этот битмап имеет большие размеры.
Возник вопрос.
Можно ли эти графические данные передавать в обьект tjpeg на пример....только у jpeg нету canvas.Это както решается?
Soft (2004-11-18 04:36:00) [1]>>denis24 (17.11.04 12:12) [6]
>>Jpeg.CompressionQuality:=1;
Конечно потеряешь, данный кусок взят из антиспамерской программы. Если хочешь без потери качества то Jpeg.CompressionQuality:=100;
denis24 (2004-11-17 12:12:00) [2]To soft
Jpeg.CompressionQuality:=1;
.
.
Jpeg.Compress;
Это обязатально ,в качестве не потеряю?
Amoeba (2004-11-17 11:07:00) [3]TWAIN API здесь: ftp://delphi-jedi.org/api/twain19.zip
Soft (2004-11-16 19:55:00) [4]>>denis24 (16.11.04 17:17)
А можно на почту кинуть описание функций TWAIN
Пример кода перевода BMP в jpeg
var
Bitmap:TBitmap;
Jpeg:TJPEGImage;
Strstream:TFileStream;
begin
//create bitmap
Bitmap:=TBitmap.Create;
Bitmap.Height:=25;
Bitmap.Width:=60;
//
//compress bitmap to Jpeg
Jpeg:=TJPEGImage.Create;
Jpeg.CompressionQuality:=1;
Jpeg.Assign(Bitmap);
Jpeg.Compress;
//
Jpeg.SaveToStream(Strstream);
Jpeg.Free;
end;
Fenik (2004-11-16 18:17:00) [5]http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625147&n=21
denis24 (2004-11-16 18:02:00) [6]Тоесть забивать результаті сканирования в битмап,а в image
передавать jpeg?
jpeg.Assign(MyBitMap);
ImageUzi1.Picture.Graphic:=jpeg;
Rem (2004-11-16 17:29:00) [7]JPEGImage.Assign(Bitmap);
| |
