Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.08.2007, 10:58   #1
kyuzo
 
Регистрация: 01.08.2007
Сообщений: 7
По умолчанию редактирование бмп файла

Подскажите пожалуйста уважаемые, как используя delphi можно
в bmp файлик с изображением добавить текст из нескольких строк , в уголок.

подскажите в какую сторону мне рыть.
kyuzo вне форума Ответить с цитированием
Старый 01.08.2007, 11:09   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Оч. просто :
Например:
procedure TForm1.FormCreate(Sender: TObject);
var b:TBitmap;
begin
b:=TBitmap.Create;
b.LoadFromFile('C:\_.bmp');
b.Canvas.TextOut(10,10,'dsdasdsada' );
b.SaveToFile('c:\__.bmp');
b.Free;
end;


Обьяснять надо?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 01.08.2007, 12:39   #3
kyuzo
 
Регистрация: 01.08.2007
Сообщений: 7
По умолчанию

спасибо, ясно, но почему у меня большая часть изображения становися закрашена черным?
kyuzo вне форума Ответить с цитированием
Старый 01.08.2007, 12:44   #4
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Установим прозрачность:
...
b.Canvas.Brush.Style:=bsClear;
b.Canvas.TextOut(10,10,'dsdasdsada' );
...
Alex21 вне форума Ответить с цитированием
Старый 01.08.2007, 13:12   #5
kyuzo
 
Регистрация: 01.08.2007
Сообщений: 7
По умолчанию

дело не в canvas
не знаю почему он в файл не все выгружает
файл 1600 на 1200
большая часть в результате черная
kyuzo вне форума Ответить с цитированием
Старый 01.08.2007, 13:27   #6
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

большая часть с какой стороны (относительно новой надписи)? Закономирность есть?

выложите свой код, если он отличается от приведенного.
Alex21 вне форума Ответить с цитированием
Старый 01.08.2007, 14:25   #7
kyuzo
 
Регистрация: 01.08.2007
Сообщений: 7
По умолчанию

код не отличается, закономерность только в том что в картинках с 256 цветами наблюдается такой глюк
с 24 разрядами например все нормально,(картинка таже изменил только колличество цветов)
вроде в TBitmap естьошибка,
проблема в том, что работать прийдется только с картинками 8 битовыми

да, у меня делфи 6
kyuzo вне форума Ответить с цитированием
Старый 01.08.2007, 14:32   #8
kyuzo
 
Регистрация: 01.08.2007
Сообщений: 7
По умолчанию

можете попробовать, только картинку выберете 1600 на 1200, если меньше то фокус не получится


щас попробывал
с другими картинками все нормально,
что-то с самими картинками моими, они из рентген аппарата, может извращенный бмп какой, если в ручную все скопировать из него и вставить в другой файл, разрядность оставить ту же, то программа его нормално обработает, а исходный не хочет чето

Последний раз редактировалось kyuzo; 01.08.2007 в 15:31.
kyuzo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi Редактирование текстового файла Starscream Общие вопросы Delphi 11 18.02.2008 17:15
Редактирование файла в цикле Var17 Общие вопросы Delphi 1 13.12.2007 14:51
Типизированные файлы.Создание, удаление, редактирование, сортировка записей типизированного файла.Паскаль Студент Шиза Помощь студентам 6 08.12.2007 13:41
редактирование TDBGrid mm_mauser БД в Delphi 5 29.11.2007 11:39
Редактирование AntiZero Помощь студентам 2 12.11.2007 18:02