Скриншот экрана

← →
Japan (2003-12-13 16:05) [0]

Моя программа делает скриншот экрана
1). Иногда не вся часть экрана отображается. Например когда просматривается видеоролик и сделать скриншот, то часть экрана, где идёт видео будет чёрной. Как сделать, чтобы всё захватывалось?

← →
Mihey © (2003-12-13 17:53) [1]

Дело в том, что видео проигрывается с помощью средств DirectX. Очевидно, нужно использовать средства DirectX, а конкретнее - Direct Draw, для копирования экрана.

← →
Japan (2003-12-14 06:20) [2]

А как именно? Не подскажешь где поконкретней про это почитать можно, или искходники какие есть?

← →
Mihey © (2003-12-14 15:55) [3]

От сердца ссылку отрываю. Правда, там всё в C++, но если ты решишься на DirectX, то это не будет иметь значения:

http://www.geocities.com/krishnapg/screencap.html

← →
Sapersky © (2003-12-16 09:46) [4]

когда просматривается видеоролик и сделать скриншот, то часть экрана, где идёт видео будет чёрной
Нужно отключить использование оверлеев ("наложения", "перекрытия") в свойствах проигрывателя.

← →
Japan (2003-12-20 03:00) [5]

Может кто-нибудь всё-таки даст конкретный пример на Delphi (функция которая делает скриншот, с использованием DirectX)

← →
Sapersky © (2003-12-22 12:39) [6]

С захватом видеороликов DX не поможет, см. ранее. И что быстрее будет - не факт, у меня вот почему-то получилось медленнее. Возможно, дело не (не только) в кривых руках, а в том, что Windows создаёт задний буфер в системной (наверное) памяти, и захват экрана через GDI - это просто копирование, а в случае DirectX приходится тянуть по оптимизированной на запись, а не на чтение AGP из видео.

← →
Ivolg (2003-12-25 15:02) [7]

Не знаю какздела чтобы видеоролик остался,но знаю как перехватить нажатие кнопки которая делает скрыншоты!
Вот код:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

const id_SnapShot = 101;

procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
if Msg.HotKey = id_SnapShot then
ShowMessage("GotIt");
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle,
id_SnapShot,
0,
VK_SNAPSHOT);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey (Form1.Handle, id_SnapShot);
end;

← →
Ivolg (2003-12-25 15:02) [8]

Не знаю как зделать чтобы видеоролик остался,но знаю как перехватить нажатие кнопки которая делает скрыншоты!
Вот код:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

const id_SnapShot = 101;

procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
if Msg.HotKey = id_SnapShot then
ShowMessage("GotIt");
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle,
id_SnapShot,
0,
VK_SNAPSHOT);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey (Form1.Handle, id_SnapShot);
end;

2 Ivolg:

Ну похвастался.

← →
k-129 (2003-12-26 01:15) [10]

bmp := TBitmap.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, GetDC(GetDesktopWindow), 0, 0, SRCCopy);

← →
hyisos (2003-12-26 17:48) [11]

Отсоси сам себе!!!Ето очень помогает!!!

Скриншот экрана Найти похожие ветки