Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
3-1099569880
Term
2004-11-04 15:04
2004.12.05
есть автоинкрементное поле, как сделать чтобы отчёт снова начался


1-1100622476
Gear
2004-11-16 19:27
2004.12.05
Как запретить перерисовку отдельному компоненту?


14-1099174779
Piter
2004-10-31 02:19
2004.12.05
Magic Forum 1.1 - программа-клиент этого форума


3-1099457896
KisaNetik
2004-11-03 07:58
2004.12.05
Вопрос по SQL при обновлении записи


11-1083860707
Delphi5.01
2004-05-06 20:25
2004.12.05
Как преобразовать Self в pCotrol :-)




   Наверх