procedure SaveMyScreen(MyScreen:string);
var
ScreenDC : HDC;
MyBitMap : TBitmap;
begin
MyBitMap:=TBitmap.Create;
With MyBitMap do
begin
Width:=Screen.Width;
Height:=Screen.Height;
ScreenDC:=GetDC(0);
try
BitBlt(Canvas.Handle, 0,0,Width,Height,ScreenDC, 0, 0, SRCCOPY);
finally
ReleaseDC(0, ScreenDC);
end;
end;
Try
MyBitMap.SaveToFile(MyScreen);
except End;
MyBitMap.Destroy;
end;
Delphi проблема
Я пишу дипломную по типу программы radmin!Как в delphi считать изображение с экрана?
Процедура сохраняет снимок в файл.
Код:
С таким же успехом вы можете послать меня в google!Если я написал этот запрос значит я был в faq и тот вариант меня не устроил,ведь не бывает двух одинаковых программистов у каждого есть свои ответы
Смотрим FAQ и пытаемся определить чем по смыслу и принципу отличается приведенный там код от кода в ответе Elek'а
[quote=FAQ]
[/quote]
- ничем, за исключение обработки ошибок. Разве что Destroy надо на Free заменить.
1. Кстати, по правилам форума вы должны были воспользоваться поиском перед тем как задавать вопрос.
2. Если ж вы видели ответ в факе и он вам не подошел, то надо уточнять чем он вас не устроил и уточнить чем - телепатов тут нет.
P.S. я посылаю вас в гугл!
[quote=FAQ]
Код:
var
bmp: TBitmap;
DC: HDC;
begin
bmp:=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);
bmp.SaveToFile('Screen.bmp');
ReleaseDC(0, DC);
end;
bmp: TBitmap;
DC: HDC;
begin
bmp:=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);
bmp.SaveToFile('Screen.bmp');
ReleaseDC(0, DC);
end;
- ничем, за исключение обработки ошибок. Разве что Destroy надо на Free заменить.
1. Кстати, по правилам форума вы должны были воспользоваться поиском перед тем как задавать вопрос.
2. Если ж вы видели ответ в факе и он вам не подошел, то надо уточнять чем он вас не устроил и уточнить чем - телепатов тут нет.
P.S. я посылаю вас в гугл!