Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.14;
Скачать: CL | DM;

Вниз

Мне нужно, чтобы, сервер делал снимок экрана(как клавишей Print   Найти похожие ветки 

 
Delpher-Hacker ©   (2002-08-11 05:57) [0]

Я пишу программу, которая следит за удалённым компьютером.
Есто клиет и сервер. Мне нужно, чтобы, сервер делал снимок экрана(как клавишей Print Screen)
и сразуже отправлял мне,клиенту, чтобы я мог его посмотреть.
Снимок не должен превышать размер в 200Кб.
Как это сделать, приведите пожалуйста пример кода?
Заранее спасибо!!!


 
Vogul   (2002-08-12 16:35) [1]

Для затравки.


void CShowDesktopDlg::CopyDesktop(LPBYTE buffer)
{
CDC dcScreenMem, dcScaled, dcStatic;
CDC dcScreen, *dcOut;
CBitmap Bitmap, BitmapScaled;
CBitmap BitmapFinally;
CRect rect;
DWORD size;

dcScreen.CreateDC("DISPLAY", NULL, NULL, NULL);

dcScreenMem.CreateCompatibleDC(&dcScreen);
dcScaled.CreateCompatibleDC(&dcScreen);

Bitmap.CreateCompatibleBitmap(&dcScreen, 1152, 864);
BitmapScaled.CreateCompatibleBitmap(&dcScreen, 1152, 864);
BitmapFinally.CreateCompatibleBitmap(&dcScreen, 1152, 864);

CBitmap *pOldBitmap = dcScreenMem.SelectObject(&Bitmap);
dcScaled.SelectObject(&BitmapScaled);

CWnd * Display = (CWnd *) GetDlgItem(IDC_DISPLAY);
dcOut = Display->GetDC();

dcStatic.CreateCompatibleDC(dcOut);
BitmapFinally.CreateCompatibleBitmap(dcOut, 290, 200);

Display->GetWindowRect(&rect);

dcScreenMem.BitBlt(0,0,1152,864,&dcScreen,0,0,SRCCOPY);

dcScaled.StretchBlt(0,0,290,200,&dcScreenMem,0,0,1152,864,SRCCOPY);

size = BitmapScaled.GetBitmapBits(1, buffer);
buffer = (LPBYTE) LocalAlloc(LPTR, size*sizeof(BYTE));
BitmapScaled.GetBitmapBits(size, buffer);
BitmapScaled.DeleteObject();
BitmapFinally.SetBitmapBits(size,buffer);
dcOut->BitBlt(0,0,290,200,&dcStatic,0,0,SRCCOPY);

}


Потом жми в jpeg например и отправляй.


 
Ghost. ©   (2002-08-12 17:26) [2]

На лист ру можно найти исходник такой проги



Страницы: 1 вся ветка

Текущий архив: 2002.10.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
14-45504
Darts
2002-09-16 19:14
2002.10.14
Стоимость Delphi


1-45425
CrazyAngel
2002-10-03 13:22
2002.10.14
Недо HotKey :)


3-45168
Alexsys
2002-09-21 06:49
2002.10.14
Есть ли в природе утилиты для FireBird?


14-45561
RV
2002-09-20 14:19
2002.10.14
:)


14-45544
Владик_1
2002-09-17 10:03
2002.10.14
Интернет технологии. PHP,Java,Perl? Что выбрать? С чего начать?