VPF::Скриншот на Winapi - Форум программистов

Alexeis

Дата 2.9.2007, 12:06 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Addmin, только в случае если на рабочем столе не картники. PNG 24 бита сильно уступает jpg 24.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

RinOSpro

Дата 7.9.2007, 08:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

http://forum.vingrad.ru/forum/topic-171341.html - вот здесь примеры как конвертировать в jpg и png

Добавлено через 1 минуту и 35 секунд
Люди а почему в цикле скриншот не снимается там записывается только заголовок 54 байта хотя я и sleep на 2 секунды ставил

Alexeis

Дата 7.9.2007, 10:01 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Все нашел. Там была ошибка в коде. Не указан метод компрессии.

Код


procedure ScreenShot(const Width, Height: LongInt; const Filename: string);
var
  Bih: TBitmapInfoHeader;
  Bfh: TBitmapFileHeader;
  CDC, DC: HDC;
  CBmp: HBitMap;
  Bmp: Pointer;
  BmpInfo: TBitMapInfo;
  F, Size, Written: LongWord;
begin
  DC := GetDC(0);
  CDC := CreateCompatibleDC(DC);
  FillChar(Bih, SizeOf(Bih), 0);
  FillChar(Bfh, SizeOf(Bfh), 0);
  Bih.biSize   := SizeOf(TBitmapInfoHeader);
  Bih.biWidth  := Width;
  Bih.biHeight := Height;
  Bih.biCompression := BI_RGB;
  Bih.biPlanes := 1;
  Bih.biBitCount := GetDeviceCaps(DC, BITSPIXEL) * GetDeviceCaps(DC, PLANES);
  if Bih.biBitCount = 32 then Bih.biBitCount := 24;
  Size       := 3 * Width * Height;
  Bfh.bfType := $4D42;
  Bfh.bfOffBits := SizeOf(TBitmapFileHeader) + SizeOf(TBitmapInfoHeader);
  BmpInfo.bmiHeader := Bih;
  CBmp := CreateDIBSection(DC, BmpInfo, 0, Bmp, 0, 0);
  SelectObject(CDC, CBmp);
  StretchBlt(CDC, 0, 0, Width, Height, DC, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN), SRCCOPY);
  F := CreateFile(PChar(Filename), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
  WriteFile(F, Bfh, SizeOf(TBitmapFileHeader), Written, nil);
  WriteFile(F, Bih, SizeOf(TBitmapInfoHeader), Written, nil);
  WriteFile(F, Bmp^, Size, Written, nil);
  CloseHandle(F);
end;

Это сообщение отредактировал(а) Alexeis - 7.9.2007, 10:02

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »