Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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



Ответ
 
Опции темы
Старый 30.12.2010, 08:54   #1
Paul Hindenburg
Форумчанин
 
Аватар для Paul Hindenburg
 
Регистрация: 27.07.2007
Адрес: Челябинск
Сообщений: 123
Репутация: 30
По умолчанию Как сохранить Image и другие компоненты находящиеся на нем как рисунок

Как сохранить Image и другие компоненты находящиеся на нем как рисунок. На image находятся другие имейджи и label.



привожу пример кода
Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 BitMap  :TBitMap;
//  JpegIm: TJpegImage;
begin
//  JpegIm := TJpegImage.Create;
//  JpegIm.Width := Image1.Width;
//  JpegIm.Height := Image1.Height;

//  JpegIm.Assign(Image1.Canvas);

  BitMap := TBitMap.Create;
  BitMap.Width := Screen.Width;
  BitMap.Height:=Screen.Height;
  BitMap.Assign(Image1.Picture.Bitmap);

///  Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
//  Image1.Canvas, Image1.Canvas.ClipRect);

  
bitmap.SaveToFile('cwindowsscreen.bmp');
//Image1.Picture.SaveToFile('1111111111111111111111.bmp');

end;

Изображения
Тип файла: jpg Безымянный.JPG (55.7 Кб, 64 просмотров)
__________________
Ну что ж… Жизнь иногда такие фертеля выкидывает, что и фантасту не приснится…
Paul Hindenburg вне форума   Ответить с цитированием
Старый 30.12.2010, 10:48   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,958
Репутация: 6799
По умолчанию

Я бы на твоем месте попробовал распечатать форму в виртуальный принтер, который растровую графику умеет сохранять, имхо это меньше мороки, чем фоткать всю форму приемом вроде:http://www.delphiworld.narod.ru/base/display_snap2.html
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 30.12.2010, 10:53   #3
Smitt&Wesson
Профессионал
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Адрес: г. Киров
Сообщений: 13,968
Репутация: 492

skype: forwardbiznes
По умолчанию

В принцире так не получится.
Image, это объект, как и Label.
Считать картинку с объекта можно только через его канву, но на канве лабель не виден. Можно попробовать API-функцией ScreenCopy. Она считывает изображение с экрана. Правда качество его будет ровно таким, каково разрешение монитора.
Ну или так, как советует Stilet.
__________________
Принципиально, никому не помогаю.
Справочник по алгоритмам С++ Builder

Последний раз редактировалось Smitt&Wesson; 30.12.2010 в 10:55.
Smitt&Wesson вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как image сохранить в файл ? juan666777 Мультимедиа в Delphi 11 13.12.2014 10:51
Как сохранить Image со свойство Transparent:=True? artemavd Общие вопросы Delphi 17 17.10.2010 11:48
Как соединить 2 image ломаной линией, обходящей препятствия (другие визуальные компоненты) Zerofill Помощь студентам 0 08.03.2010 01:15
Как сохранить изображение Image и всё что на нём, в файл? Лукманов Александр Мультимедиа в Delphi 3 24.05.2009 00:16
Как сохранить этот рисунок не используя SaveDialog? kadekin Помощь студентам 4 01.08.2008 19:26




18:12.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Выбираем лучший хостинг: рейтинг ТОП 10
лучший хостинг