Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Вниз

Обработка изображения   Найти похожие ветки 

 
Lazarius   (2005-11-16 16:59) [0]

Здраствуйте всем!!!
Итак, в image1 надо загружать jpg, но не просто загрузить, а перед этим обрезать у картинки лишнее, т. е. надо чтобы картинка была по соотношению сторон 15*10
то есть если x ширина, а y высота, то ширина обрезанного изображения получается x1=y*1,5 где y высота первоначального изображения.
Так вот: как мне обрезать лишнее, что выходит за пределы нового размера????!!!!
Уже всю голову сломал! Помогите плиз!
Заранее всем спасибо.


 
Jeer ©   (2005-11-16 17:06) [1]

CopyRect ?


 
Lazarius   (2005-11-16 17:09) [2]

ну вот с ним всю голову и сломал


 
Antonn ©   (2005-11-16 17:18) [3]

наверно потому, что в image не tbitmap?..


 
Lazarius   (2005-11-16 17:43) [4]

Вот мой код:

Jpg.LoadFromFile(s);
x := jpg.Height * 1.5;
image1.picture.bitmap.Height := jpg.Height;
image1.picture.bitmap.Width := floor(x);
bitmap.Height := jpg.Height;
bitmap.Width := jpg.Width;
bitmap.Assign(jpg);
cw := (bitmap.Width mod 2) + floor(x/2);
image1.Picture.Bitmap.Canvas.CopyRect(Rect(0, 0, floor(x), jpg.Height),
     Bitmap.Canvas,
     Bounds(cw, 0, floor(x), jpg.Height));


но как то неправильно вырезается область. И не могу понять где ошибка.


 
WondeRu ©   (2005-11-16 17:46) [5]

Lazarius   (16.11.05 17:43) [4]
bitmap.Assign(jpg);

тут


 
Lazarius   (2005-11-16 17:52) [6]

а поточнее можно
ведь у жпг канвы нет и приходится переводить в битмап


 
WondeRu ©   (2005-11-16 18:02) [7]

ошибся чуть... чуть
image1.Height := jpg.Height;
image1.Width := floor(x);
image1.Canvas.Height := jpg.Height;
image1.Canvas.Width := floor(x);
........
image1.Canvas.CopyRect(Rect(0, 0, floor(x), jpg.Height),
    Bitmap.Canvas,
    Bounds(cw, 0, floor(x), jpg.Height));


криво....


 
Lazarius   (2005-11-16 18:08) [8]

image1.Canvas.Height := jpg.Height;
image1.Canvas.Width := floor(x);

вот этого делфа не воспринимает, нет у image1.canvas свойств height и width


 
Lazarius   (2005-11-17 17:39) [9]

Вот так вот режет более менее


Jpg.LoadFromFile(s);
x := jpg.Height * 1.5;
nw := jpg.Height - floor(x);
image1.picture.bitmap.Height := jpg.Height;
image1.picture.bitmap.Width := floor(x);
bitmap.Height := jpg.Height;
bitmap.Width := jpg.Width;
bitmap.Assign(jpg);
cw := (bitmap.Width mod 2);
image1.Picture.Bitmap.Canvas.CopyRect(Rect(floor(nw/4), 0, floor(x), jpg.Height),
     Bitmap.Canvas,
     Bounds(0, 0, floor(x), jpg.Height));



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


 
Alaman   (2005-11-19 13:27) [10]

Попробуй перед строчкой:
bitmap.Assign(jpg);

поставить
jpg.DEEBNeeded


 
Separator ©   (2005-11-19 13:41) [11]

посмотри:
http://Sergey-Vilgelm.narod.ru/source/access.rar   [560Кб]

там есть методы работы с картинками, правда в основном изменение размера (увелисение, уменьшение) различными методами, но может и поможет

GraphicConvert.dpr - dll на KOL сделана, там же вложил библиотеки KOL которые использовал



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

Форум: "Media";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.044 c
15-1143454171
elf_ik
2006-03-27 14:09
2006.04.16
Borland s Delphi goodbye?


2-1143816098
GODLoki
2006-03-31 18:41
2006.04.16
HELP PLEASE!


9-1128026762
Ricks
2005-09-30 00:46
2006.04.16
Область видимости камеры


1-1141916601
D7pro
2006-03-09 18:03
2006.04.16
Как извлечь GZIP файлы


15-1143199730
Wolfram
2006-03-24 14:28
2006.04.16
Многопоточные приложения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский