VPF::мульти съемка - Форум программистов

mvdr

Дата 3.7.2005, 08:49 (ссылка)

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

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

Можно ли сделать printScreen только несколько кадров. Не как есть: один кадр счелкаешь, в Paint вставляешь потом опять счелкаешь. Типа мкльти съемка.

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

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Coder

Дата 3.7.2005, 10:44 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 5
Всего: 11

Вот нашел в DRKB:

Код


// В качестве параметров передаются: 
// AHandle - хэндл окна, скриншот которого мы хочем получить 
// CompressPercent - процент сжатия картинки 
// AImage - картинка, в которую будет помещено изображение 
// в случае успешного скриншота функция вернет True 
function GetScreenShot(const AHandle: THandle; const CompressPercent: Byte; 
  var AImage: TJPEGImage): Boolean; 
var 
  fBitmap: TBitmap; 
  DC: HDC; 
  Rect: TRect; 
begin 
  Result := False; 
  if AImage = nil then Exit; 
  DC := GetDC(AHandle); 
  if DC <> 0 then 
  try 
    fBitmap := TBitmap.Create; 
    try 
      if not GetClientRect(AHandle, Rect) then Exit; 
      fBitmap.Width := Rect.Right - Rect.Left; 
      fBitmap.Height := Rect.Bottom - Rect.Top; 
      fBitmap.PixelFormat := pf32bit; 
      Result := BitBlt(fBitmap.Canvas.Handle, 0, 0, fBitmap.Width, 
        fBitmap.Height, DC, 0, 0, SRCCOPY); 
      if not Result then Exit; 
      AImage.Assign(fBitmap); 
      AImage.CompressionQuality := CompressPercent; 
    finally 
      fBitmap.Free; 
    end; 
  finally 
    ReleaseDC(AHandle, DC); 
  end; 
end; 

// Пример использования... 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  Image: TJPEGImage; 
begin 
  // Скриншот рабочего стола 
  Image := TJPEGImage.Create; 
  try 
    if GetScreenShot(GetDesktopWindow, 150, Image) then 
      Image1.Picture.Assign(Image); 
  finally 
    Image.Free; 
  end; 
  // Скриншот нашей формы 
  Image := TJPEGImage.Create; 
  try 
    if GetScreenShot(Handle, 150, Image) then 
      Image2.Picture.Assign(Image); 
  finally 
    Image.Free; 
  end; 
end;

Остается вместо Image1.Picture.Assign(Image); сделать сохранение картинки в файл или динамически создавать TImage и помещать в него картинку.
Код рабочий - я проверял.

mvdr

Дата 3.7.2005, 10:50 (ссылка)

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

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

значит уже есть такое smile

думал сделать. Ну да ладно

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

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Coder

Дата 3.7.2005, 11:20 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 5
Всего: 11

ну программу то для своего удобства написать можно smile

mvdr

Дата 3.7.2005, 11:43 (ссылка)

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

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

так если уже есть, смысл какой?

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

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Coder

Дата 4.7.2005, 01:30 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 5
Всего: 11

Femida, что еть? есть только основной код. а интерфейс и всякие фичи уже на твоё усмотрение, как тебе нравится

SoWa

Дата 4.7.2005, 05:17 (ссылка)

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

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Главное- заставить этот код работать несколько раз без перегруза памяти.

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

Всем добра smile

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