Главная страница
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.026 c
1-1100899112
mcm
2004-11-20 00:18
2004.12.05
Работа с регистром


14-1100796182
Marina_Sm
2004-11-18 19:43
2004.12.05
пример COM a на Delphi


14-1100260237
Гайцы-Газазад
2004-11-12 14:50
2004.12.05
Что там Юссуф? Вот вам настоящая новость дня! Я рыдалъ...........


8-1094258677
-Guest-
2004-09-04 04:44
2004.12.05
Как конвертировать BMP/JPG to TGA???


6-1096296123
The X
2004-09-27 18:42
2004.12.05
Как убрать стандартные сообщения NMSMTP и NMPOP3 об ошибках?