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

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

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

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

Japan © (2003-12-13 16:05:00)
Моя программа делает скриншот экрана
1). Иногда не вся часть экрана отображается. Например когда просматривается видеоролик и сделать скриншот, то часть экрана, где идёт видео будет чёрной. Как сделать, чтобы всё захватывалось?

hyisos (2003-12-26 17:48:00) [1]
Отсоси сам себе!!!Ето очень помогает!!!

k-129 (2003-12-26 01:15:00) [2]
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);

Mihey (2003-12-25 16:49:00) [3]
2 Ivolg:

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

Ivolg (2003-12-25 15:02:00) [4]
Не знаю какздела чтобы видеоролик остался,но знаю как перехватить нажатие кнопки которая делает скрыншоты!
Вот код:
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:00) [5]
Не знаю как зделать чтобы видеоролик остался,но знаю как перехватить нажатие кнопки которая делает скрыншоты!
Вот код:
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;

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

Japan (2003-12-20 03:00:00) [7]
Может кто-нибудь всё-таки даст конкретный пример на Delphi (функция которая делает скриншот, с использованием DirectX)

Sapersky (2003-12-16 09:46:00) [8]
когда просматривается видеоролик и сделать скриншот, то часть экрана, где идёт видео будет чёрной
Нужно отключить использование оверлеев ("наложения", "перекрытия") в свойствах проигрывателя.

Mihey (2003-12-14 15:55:00) [9]
От сердца ссылку отрываю. Правда, там всё в C++, но если ты решишься на DirectX, то это не будет иметь значения:

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

Japan (2003-12-14 06:20:00) [10]
А как именно? Не подскажешь где поконкретней про это почитать можно, или искходники какие есть?

Mihey (2003-12-13 17:53:00) [11]
Дело в том, что видео проигрывается с помощью средств DirectX. Очевидно, нужно использовать средства DirectX, а конкретнее - Direct Draw, для копирования экрана.

Наверх

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