(Pascal)Вывод чисел в картинку
КАК на ПАСКАЛЕ сделать генерация(или вывод) чисел в картинку!(обычно такое делается для сайта против ботов(походу ))??? былоб хорошо если у кого есть какой пример
- Делаеш двухмерный массив, к примеру 10 на 10 - это будет рисунок цифры;
- Делает 10 констант этого типа и пихаеш в них по пиксельно рисунки цифр;
- Берёш массив размером <кол-во цифр>*10 (т.к. длина рисунка цифры 10 пикселей) +<отступ слева>+<отступ справа> на 10;
- Очищаеш рисунок;
- По циклу рисуеш соответствующий рисунок цифры со смешением по X на <отступ слева>+<номер цивры в чисе (НЕ ЕЁ ЗНАЧЕНИЕ)>*10 (т.к. длина рисунка цифры 10 пикселей)
- Пихаеш этот массив в файл преобразуя в соответствующий формат рисунка.
ВСЁ ! ))
- Делает 10 констант этого типа и пихаеш в них по пиксельно рисунки цифр;
- Берёш массив размером <кол-во цифр>*10 (т.к. длина рисунка цифры 10 пикселей) +<отступ слева>+<отступ справа> на 10;
- Очищаеш рисунок;
- По циклу рисуеш соответствующий рисунок цифры со смешением по X на <отступ слева>+<номер цивры в чисе (НЕ ЕЁ ЗНАЧЕНИЕ)>*10 (т.к. длина рисунка цифры 10 пикселей)
- Пихаеш этот массив в файл преобразуя в соответствующий формат рисунка.
ВСЁ ! ))
misha_turist - ну ты и маньяк! А простой OutTextXY чем тебе не угодил? и ещё есть такая функция Str.
Цитата: wanja
misha_turist - ну ты и маньяк! А простой OutTextXY чем тебе не угодил? и ещё есть такая функция Str.
Тогда давай определимся:
- мы работаем под Windows или под Dos.
- и мы рисуем в файл (.bmp, .gif и т.д.) или на экрат.
Я рисую в файл под Dos))