масштабирование содержимого экрана

[skilful]

Всем привет.

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

Причем то, что отображается на экране может быть любого содержания - видео, игра, текст...

Начал решение своей задачи с "грабинга" содержимого экрана.
Какой метод решения будет наиболее быстрым? Через scanline ?

Спасибо

[asmodey1]

Сотни раз уже приводились готовые коды "граббинга" :

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

Грузин: 

var
  Desktopcanvas :TCanvas ;
 BitMap  :TBitMap;
begin
  DesktopCanvas:=TCanvas.Create;
  DesktopCanvas.Handle:=GetDC(Hwnd_Desktop);
  BitMap := TBitMap.Create;
  BitMap.Width := Screen.Width;
  BitMap.Height:=Screen.Height;
  Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
  DesktopCanvas, DesktopCanvas.ClipRect);
  bitmap.SaveToFile('c:\windows\screen.bmp');
 image1.Picture.LoadFromFile('c:\windows\screen.bmp');
end;

*****************************************************
Alar:

var 
ScreenDC:HDC; 
Canvas:TCanvas; 
Image1:TImage; 
begin 
ScreenDC := GetDC(0); 
Canvas:=TCanvas.Create(); 
Canvas.Handle:=ScreenDC; 
Image1 := TImage.Create(nil); 
Image1.Width := Screen.Width; 
Image1.Height := Screen.Height; 
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height)); 
ReleaseDC(0,ScreenDC); 
Canvas.Free; 
end;
******************************************************
maxionans:

var
  DC : HDC;
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    DC := GetDC( 0 );
    Bmp.SetSize( 100, 100 );
    BitBlt( Bmp.Canvas.Handle, 0, 0, 100, 100, DC, 0, 0, SRCCOPY );
    Bmp.SaveToFile( 'c:\test.bmp' );
    ReleaseDC( 0, DC );
  finally
    Bmp.Free;
  end;
end;

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

mihali4:

var
ScreenDC:HDC;
Canvas:TCanvas;
myjpg:  TJPEGImage;
Image: TImage;
Begin
Image:=TImage.Create(nil);
myjpg:= TJPEGImage.Create;
ScreenDC := GetDC(0); 
Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenDC;
Image.Width := Screen.Width;
Image.Height := Screen.Height;
Image.Canvas.CopyRect(Rect(0, 0, Image.Width, Image.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height));
ReleaseDC(0,ScreenDC);
myjpg.Assign(Image.Picture.Bitmap);
myjpg.compressionquality:=75; {устанавливаем параметры качества. Должно быть от 1 до 100. Если 100, то качество наилучшее, 1 наихудшее}
myjpg.compress; {производим сжатие данных картинки}
myjpg.SaveToFile('c:\prob.jpg');
Image.Free;
Canvas.Free; 
end;

А масштабирование - это не "хватание пикселов", а установка нужных параметров высоты и ширины у TImage с установленным свойством Stretch(True) и сброшенным свойством Autosize(False)...

[skilful]

А если я немного изменю условия задачи.

Мне нужно хватать каждый пиксель координаты которого кратны некоторому числу. Пусть будет 8-ми

[Пепел Феникса]

все равно принцип почти тот же, вы меняете уже принцип масштабирования.
идет так:
1)делается снимок экрана
2)масштабируется как надо.
в вашем случае(да и не тока) ScanLine лучше,(для исходного и целевого битмапа)

[skilful]

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

Сотни раз уже приводились готовые коды "граббинга" :

Грузин:

var
Desktopcanvas :TCanvas ;
BitMap :TBitMap;
begin
DesktopCanvas:=TCanvas.Create;
DesktopCanvas.Handle:=GetDC(Hwnd_De sktop);
BitMap := TBitMap.Create;
BitMap.Width := Screen.Width;
BitMap.Height:=Screen.Height;
Bitmap.Canvas.CopyRect(Bitmap.Canva s.ClipRect,
DesktopCanvas, DesktopCanvas.ClipRect);
bitmap.SaveToFile('c:\windows\scree n.bmp');
image1.Picture.LoadFromFile('c:\win dows\screen.bmp');
end;

в сохраненном файле вместо видео черная область. В чем проблема?

[Пепел Феникса]

в DirectX.
другой механизм вывода на экран.

[Stilet]

skilful

Ты ведь бота для игры пишешь? Или трейнер для игры?
Это не так просто. Нужно знать механизмы игры.

[veniside]

скорее аналог teamviewer

[asmodey1]

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

в сохраненном файле вместо видео черная область. В чем проблема?

Простите, о каком-таком ВИДЕО идет речь ???
Не знаю, что там у вас за система, у меня все нормально - я попробовал.
А у вас, небось, семерка с кучей "украшалок" типа "аэро" ?
Ну, вот с этой дрянью многие программы не могут работать...

З.Ы. У меня ХР, Дельфи 7.

[veniside]

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