Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать скриншот без вывода на экран? [D5, NT4, WinXP]

OGR © (2002-01-23 13:24:00)
Можно ли так сделать?
Спасибо.

MrAngel (2002-01-29 17:13:00) [1]
Ребята а сообщение посылать через SendMessage или PostMessage ?

OGR (2002-01-28 18:09:00) [2]
Еще нашел 3-е решение: интерфейс IViewObject из библиотеки ActiveX(о нем можно почитать в дельфевском хелпе)....
Вот я уже знаю три решения но ни одно ни могу применить :(

OGR (2002-01-28 17:53:00) [3]
Я тут в MSDN"е покопался, кроме WM_PRINT"a есть фунцкция PrintWindow, но она насколько я понял она появилась только в Win XP...
А с WM_PRINT"ом я тоже пока никак разобраться немогу...
Если буду ОЧЕНЬ благодарен если ктонибудь приведет пример...

MrAngel (2002-01-28 16:43:00) [4]
DMN а мона с примером. Я в WM уже давно не занимался.
Заранее спасибо.

DMN (2002-01-25 16:23:00) [5]
WM_PRINT или WM_PRINTCLIENT, с указанием в качестве Device Context хэндла канвы битмэпа...

copyr25 (2002-01-24 21:03:00) [6]
Mr.Angel:))) Просто всю дорогу нужно помнить, что это ОКНА:)))

Tosov (2002-01-24 19:57:00) [7]
MrAngel
Screen Shot - снимок ЭКРАНА со всеми вытекающими последствиями.

MrAngel (2002-01-24 17:51:00) [8]
Поясню вопрос. Как сделать скрин шот окна если оно свёрнуто в панели задач или оно закрыто другими окнами.
Я пробовал. Но мне функция показывала только то что находится в переди этого окна.

MrAngel (2002-01-24 17:48:00) [9]
Во народ!! А тогда встречный вопрос. Как сделать скин сшот окна или экрана если самого окна нет на экране или оно закрыто другими окнами.
Во!

copyr25 (2002-01-23 21:44:00) [10]
Самый известный пример:
procedure TForm1.Button1Click(Sender: TObject);
var
DC: HDC;
Canva: TCanvas;
B: TBitmap;
begin
Canva := TCanvas.Create;
B := TBitmap.Create;
DC := GetDC(0);
try
Canva.Handle := DC;
with Screen do begin
B.Width := Width;
B.Height := Height;
B.Canvas.CopyRect(Rect(0, 0, Width, Height), Canva,
Rect(0, 0, Width, Height));
B.SaveToFile("c:\screen.bmp");
end
finally
ReleaseDC(0, DC);
B.Free;
Canva.Free
end
end;

copyr25 (2002-01-23 21:33:00) [11]
Т.е. выводом в файл? Можно. И с bmp и с jpg. Хочешь, пришлю пример.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »