Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Canvas to .bmp 
V
    Опции темы
Zerony
Дата 19.3.2010, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.12.2008

Репутация: нет
Всего: нет
Здравствуйте!

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

Заранее спасибо!)
PM MAIL   Вверх
Alexeis
Дата 19.3.2010, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(Zerony @  19.3.2010,  19:09 Найти цитируемый пост)
в любой графический формат.

  В любой это уже из области фантастики. Графических форматов есть порядка сотни. Есть библиотеки, которые поддерживают много форматов (например gdi+) , но такую чтобы все не найти. Из канвы нужно будет скопировать в битмап, или метафайл, а его уже преобразовывать.

Добавлено @ 20:16
p.s. на TBitmap можно скопировать при помощи метода CopyRect или Draw (если канва это канва одного из наследников TGraphic)


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Frees
Дата 19.3.2010, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Код

With TBitmap.Create do
try
  SetSize(100, 100);
  Canvas.CopyRect(Rect(0,0,100,100),SrcCanvas,Rect(0,0,100,100));
  SaveToFile('c:/1.bmp');
finally
  Free;
end;




--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Zerony
Дата 19.3.2010, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.12.2008

Репутация: нет
Всего: нет
Цитата(Alexeis @  19.3.2010,  20:14 Найти цитируемый пост)
В любой это уже из области фантастики. 

В любой знасчит что мне пофик в какой) одного достаточно.

Frees пасибо, сейчас поиграюсь smile

Добавлено через 7 минут и 24 секунды
Ем, не работает.

Выдает ошибку SetSize(100, 100);
PM MAIL   Вверх
Frees
Дата 19.3.2010, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Цитата(Zerony @  19.3.2010,  23:31 Найти цитируемый пост)
Выдает ошибку

и какую же


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Zerony
Дата 20.3.2010, 18:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.12.2008

Репутация: нет
Всего: нет
Кароче я сделал кнопку, и вставил туда этот код. Пишет

"For loop control variable must be simple local variable"
PM MAIL   Вверх
Zerony
Дата 21.3.2010, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.12.2008

Репутация: нет
Всего: нет
Помогите пожалуйста!
PM MAIL   Вверх
Alexeis
Дата 21.3.2010, 11:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(Zerony @  19.3.2010,  19:31 Найти цитируемый пост)
Выдает ошибку SetSize(100, 100); 

  заменить Width := 100 / Height := 100


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Zerony
Дата 21.3.2010, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.12.2008

Репутация: нет
Всего: нет
Помогло, теперь ошибка на следующей строке.
Пишет то же самое, курсор ставит тут "SrcCanvas,Rect" перед запятой.
PM MAIL   Вверх
Alexeis
Дата 21.3.2010, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(Zerony @  21.3.2010,  12:52 Найти цитируемый пост)
Пишет то же самое, курсор ставит тут "SrcCanvas,Rect" перед запятой. 

SrcCanvas - заменить на ваш канвас с которого копируется картинка. SrcCanvas - Source Canvas в переводе "Canvas источник". 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Zerony
Дата 21.3.2010, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.12.2008

Репутация: нет
Всего: нет
Спасибо всем! Вопрос решен!)
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0485 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.