Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

проверка Tbitmap помещаемого в image   Найти похожие ветки 

 
denis24   (2004-11-18 10:27) [0]

Получаю bitmap со сканера и заливаю в image

TWAIN_DrawDibToDC(MyBitMap.Canvas.Handle,0,0,Width,Height,dat,0,0);
jpeg.Assign(MyBitMap);
ImageUzi1.Picture.Graphic:=jpeg;
можно ли както здесь контролировать размер этого bitmap ,чтоб ограничивать размер отсканированого?


 
Ega23 ©   (2004-11-18 10:28) [1]

Нет, но если, например, ширина-высота больше чего-то там, то через StretchDraw можно его размер уменьшить.


 
ЮЮ ©   (2004-11-18 10:31) [2]

>ImageUzi1.Picture.Graphic:=jpeg;

Думаешь тут без TBitMap обходится? jpeg - формат хранения BitMap-а в файле. Создай MySmallBitMap нкжного размера и "качни" туда MyBitMap


 
denis24   (2004-11-18 10:50) [3]

To ЮЮ ©
Если я заливаю mybitmap разрешением 800*600 в mysmallbitmap с разрешением 640*480 то не будет никакого искажения и потери данных?


 
Ega23 ©   (2004-11-18 10:52) [4]

Конечно будет. Бесплатный - только сыр в мышеловке.


 
ЮЮ ©   (2004-11-18 11:08) [5]

заливаю - это преобразовываю. StretchDraw, например.

В Grahichs32, где доступ к пикселя значительно быстрее и есть возможность уделять внимание качеству преобразований, в оттисках 32х32 с 640х480 легко можно было угадать исходную картинку, а при 800*600 -> 640*480 видимых глазом потерь вообще практически не будет


 
denis24   (2004-11-18 16:21) [6]

А если заливать изображение со сканеру в битмап у которого уже будет установлено 640*480
Типа так
MyBitMap.Width := 640;
MyBitMap.Height := 480;
TWAIN_DrawDibToDC(MyBitMap.Canvas.Handle,.......
?


 
Amoeba ©   (2004-11-18 16:24) [7]

Попробуй. Практика - лучший критерий истины.



Страницы: 1 вся ветка

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
1-1100892007
Алексей
2004-11-19 22:20
2004.12.05
Printer. Проблемы с размером файла при печати


1-1100981104
James007
2004-11-20 23:05
2004.12.05
Меню и картинки


14-1099590686
ИМХО
2004-11-04 20:51
2004.12.05
Сегодня 2 тур КУБКА УЕФА


6-1096355003
Григорьев Антон
2004-09-28 11:03
2004.12.05
Не могу разобраться с функцией GetAcceptExSockAddrs


3-1099690550
Apophis
2004-11-06 00:35
2004.12.05
SQL c Where - неправильный (?) номер текущей записи...