Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Скриншот в игре (https://forum.antichat.xyz/showthread.php?t=195897)

SultanOFF 13.04.2010 15:03

Скриншот в игре
 
Здравствуйте. Как сделать скриншот во время игры? (COD4). Если применять данный код, то вместо скрина черный экран
Код:

var  ScreenDC: HDC;
  canvas:Tcanvas;
 begin
  ScreenDC:=GetDC(0); 
 Canvas:=TCanvas.Create();
  canvas.Handle:=ScreenDC;
  Width:=Screen.Width; 
Height:=Screen.Height;  Img1.Canvas.CopyRect(Rect(0,0,Img1.Width,Img1.Height),  canvas,Rect(0,0,Screen.Width,Screen.Height));  Releasedc(0,ScreenDC); 
 Canvas.Free;
 end;


noxjoker 13.04.2010 15:05

Тебе нужна сама прога или сорс?

SultanOFF 13.04.2010 15:09

код нужен :(

Berman 13.04.2010 15:09

Цитата:

procedure TForm1.Button1Click(Sender: TObject);
var bmp:TBitmap;
begin
bmp := TBitmap.Create;
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
GetDC(0), 0,0,SRCCOPY);
Image1.Width := Screen.Width;
Image1.Height := Screen.Height;
Image1.Picture.Assign(bmp);
bmp.Free;
end;
Побробуй этот код, должно помочь, ток там размерчики прописать надо кажется

Berman 13.04.2010 15:09

честно так и не понял, зачем тут канва =(

SultanOFF 13.04.2010 15:12

тоже самое ведь, тот же черный экран. Тут нужно чтото походу с директХ мудрить, но вот что и как Я непонимаю

Berman 13.04.2010 15:15

может у игры защита от скринов?

SultanOFF 13.04.2010 15:20

нет конечно, вот попробуй со своим кодом заскринь любую игру или видео..эффект тот же - черный экран.

JnK 13.04.2010 20:38

[urt=http://delphiexpert.ru/view_download.php?id=14]Ссылка на прогоисходники[/url]

Если самому писать или гуглить:
DirectShow (DSPack)
Ссылка
считывать на прямую Оверлей

SultanOFF 14.04.2010 10:42

по той ссылке на делфи эксперте исходничек такой же как Мой, а значит также черный экран. DSpack установил но совершенно непонимаю как делать скриншот. Кто Может обьяснить?


Время: 01:57