Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Screensaver

Автор: BSOD 6.12.2004, 22:16

Как сохранить снимок экрана в буфер? (Кроме Print Screen smile

)

Автор: Alex 6.12.2004, 22:47

На форме у меня стоит TImage (его можно сделать невидимым)

Код


uses JPEG; 
... 
var i: TJPEGImage; 
begin 
  try 
    i := TJPEGImage.create; 
    try 
      i.CompressionQuality := 100; 
      image.Width := screen.width; 
      image.height := screen.height; 
      DWH := GetDesktopWindow; 
      GetWindowRect(DWH, DRect); 
      DescDC := GetDeviceContext(DWH); 
      Canv.Handle := DescDC; 
      DRect.Left := 0; 
      DRect.Top := 0; 
      DRect.Right := screen.Width; 
      DRect.Bottom := screen.Height; 
      Image.Canvas.CopyRect(DRect, Canv, DRect); 
      i.assign(Image.Picture.Bitmap); 
      I.SaveToFile('M:\MyFile.jpg'); 
    finally 
      i.free; 
    end; 
  except 
  end;

Типы использованных переменных:

Код


Dwh : HWND; 
DRect: TRect; 
DescDC : HDC; 
Canv : TCanvas;

Автор ответа: Vit
Взято с Vingrad.ru http://forum.vingrad.ru

Некоторые функции для копирования и вставки Bitmap-объектов через буфер обмена.

Код


function CopyClipToBuf(DC: HDC; Left, Top, Width, Height: Integer;  Rop: LongInt; var CopyDC: HDC; var CopyBitmap: HBitmap): Boolean; 
var 
  TempBitmap: HBitmap; 
begin 
  Result := False; 
  CopyDC := 0; 
  CopyBitmap := 0; 
  if DC <> 0 then 
    begin 
      CopyDC := CreateCompatibleDC(DC); 
      if CopyDC <> 0 then 
        begin 
          CopyBitmap := CreateCompatibleBitmap(DC, Width, Height); 
          if CopyBitmap <> 0 then 
            begin 
              TempBitmap := CopyBitmap; 
              CopyBitmap := SelectObject(CopyDC, CopyBitmap); 
              Result := BitBlt(CopyDC, 0, 0, Width, Height, DC, Left, Top, Rop); 
              CopyBitmap := TempBitmap; 
            end; 
        end; 
    end; 
end; 

function CopyBufToClip(DC: HDC; var CopyDC: HDC; var CopyBitmap: HBitmap;  
           Left, Top, Width, Height: Integer; 
           Rop: LongInt; DeleteObjects: Boolean): Boolean; 
var 
  TempBitmap: HBitmap; 
begin 
  Result := False; 
  if (DC <> 0) and (CopyDC <> 0) and (CopyBitmap <> 0) then 
    begin 
      TempBitmap := CopyBitmap; 
      CopyBitmap := SelectObject(DC, CopyBitmap); 
      Result := BitBlt(DC, Left, Top, Width, Height, CopyDC, 0, 0, Rop); 
      CopyBitmap := TempBitmap; 
      if DeleteObjects then 
        begin 
          DeleteDC(CopyDC); 
          DeleteObject(CopyBitmap); 
        end; 
    end; 
end;

Автор: BSOD 7.12.2004, 15:20

Что-то я из этого всего не сильно понял, как сохранить экран в БУФЕР, и только (не в jpeg)
как его получить, я знаю, мне нужно всего лишь скопировать в буфер........

Автор: dm9 8.12.2004, 04:03

http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988620754&n=15

Только маленькая опечатка в комментарии от Анатолия Подгорецкого.
"Весь экран" и "Активное окно" перепутаны.
Добавлено @ 04:04
Типа, нравоучение: пользуйтесь поиском smile