|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.12.2007, 18:47 | #1 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Скриншот экрана
Уважаемые прграммисты! Помогите решить проблему. Я делаю скриншот экрана и полученый скриншот сохраняется в фаил. Как можно полученное изображение экрана записать в переменную?
uses JPEG, ExtCtrls... private { Private declarations } procedure getscreen; procedure TForm1.getscreen; var bmp: Graphics.TBitmap; DC: HDC; MyJpeg: TJpegImage; Image1: TImage; begin try bmp:=Graphics.TBitmap.Create; bmp.Height:=Screen.Height; bmp.Width:=Screen.Width; DC:=GetDC(0); bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY); Image1:= TImage.Create(self); MyJpeg:= TJpegImage.Create; bmp.IgnorePalette:=true; Image1.Picture.Assign(bmp); MyJpeg.Assign(Image1.Picture.Bitmap ); MyJpeg.SaveToFile('c:\Screen.jpg'); ReleaseDC(0, DC); Image1.free; MyJpeg.free; except end; end; procedure TForm1.Button1Click(Sender: TObject); begin getscreen; end; Заранее благодарен.
Всегда рад помочь!
|
14.12.2007, 18:47 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
оно у вас и так в переменной MyJpeg
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
16.12.2007, 15:13 | #3 |
Новичок
Джуниор
Регистрация: 16.12.2007
Сообщений: 2
|
Пошастай на форуме - это всё уже обсуждалось
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разрешение экрана | Михаил Юрьевич | Общие вопросы Delphi | 3 | 11.07.2008 21:33 |
Скриншот экрана | ViNcHeStEr | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 08.07.2008 12:35 |
как сделать скриншот | xakkkkker | Общие вопросы Delphi | 1 | 10.02.2008 15:24 |
Как правильно снимать скриншот | Vovkin | Win Api | 7 | 08.02.2007 20:06 |