как сделать снимок экрана?

[north]

Сообщение от Omedus

bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);

Omedus, можешь дать описание этой функции и преременной DC?

[GAGARIN-NEW]

прикольна =) вот бы и мне так всё писали.... кстате тож ошыбочка выходит... а на счёт Open/Save диалоги там всё очень просто ! Разберись сам ... ты ведь хочеш всё знать =)

[BOBAH13]

Всем привет. В поиске нашел тему, чтобы не создавать новую. Вот конечно ситуация из не приятных. Делаю снимок экрана как обычно GetDC(0) ну и т.д. только вот у меня стоит Windows Blinds ) и если ты жмеш на окно и начинаеш его перемещать, а потом вовремя перемещения окна делаещ снимок экрана то снимок получается без этого окна. Если средствами PrtScr )) винды то все ок. Знаю что можно с имитировать нажатие клавишы PrtScr но мне требуется доставать изображение окна ) таким образом

[Terran]

Сообщение от BOBAH13

Всем привет. В поиске нашел тему, чтобы не создавать новую. Вот конечно ситуация из не приятных. Делаю снимок экрана как обычно GetDC(0) ну и т.д. только вот у меня стоит Windows Blinds ) и если ты жмеш на окно и начинаеш его перемещать, а потом вовремя перемещения окна делаещ снимок экрана то снимок получается без этого окна. Если средствами PrtScr )) винды то все ок. Знаю что можно с имитировать нажатие клавишы PrtScr но мне требуется доставать изображение окна ) таким образом

Если я правильно понял, то вы хотите достать изображение скриншота из буфера обмена? Если да, то это можно сделать так:

Uses
 ClipBRD,...
----------
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Image1.Picture.Assign(Clipboard);
End;

Гляньте ещё ссылку, может поможет: http://sources.ru/delphi/delphi_simu...ntscreen.shtml

[BOBAH13]

Нет не кактит. Я пока отказался от windows blinds для теста... без него окна нормально снимаются )) странно как то...

[Shuraken]

Посылаем сочетание клавиш:
keybd_event(VK_SNAPSHOT, 0, 0, 0);
keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0);

[MaslovArt]

а как выдернуть цвет пикселя по координатам?

[Entropy]

То есть, код для создания скринов выглядит так:

//screen
procedure TForm1.Button75Click(Sender: TObject);
var DC: HDC;
bmp: TBitmap;
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('c:/Screen.jpg'); //Здесь можешь изменить путь, куда нужно сохранить файл. Так же в этой строчке изменяется название файла.
ReleaseDC(0, DC);
bmp.Free;
end;

Вопрос: как сделать так, чтобы скринился не целый экран, а только область экрана?
Вопрос 2: как сделать, чтобы каждый последующий скрин имел название Screen1, Screen2, Screen3, и т.д.?

[Entropy]

Спасибо себе , уже сам разобрался:

//screen
procedure TForm1.Button75Click(Sender: TObject);
var
DC : HDC;
bmp : TBitmap;
jpgImg: TJPEGImage;
begin
bmp := TBitmap.Create;
jpgImg := TJPEGImage.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0);
Bmp.SetSize( 80, 300 );//размеры области
bitblt(bmp.Canvas.Handle,0,0,Screen.Width,Screen.Height,DC,52,215{координаты},SRCCOPY);
ReleaseDC(0, DC);
jpgImg.Assign(bmp);
jpgImg.CompressionQuality:=90;
p:=(p+1);
JpgImg.SaveToFile('C:\'+inttostr(p)+'.jpg');
jpgImg.Free;
bmp.Free;
end;