захват содержимого экрана

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем m4igor, 15 мар 2010.

  1. m4igor

    m4igor Гость

    нужен компонент для Delphi, который позволяет захватывать содержимое экрана и в идеале передать его по локальной сети. Но последнее необязательно, хотя просто захват экрана... есть наверное какие-то бесплатные компоненты... пока не нашел
     
  2. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    а нафиг компонент???
    Код (Text):
    begin
    bmp:=TBitmap.Create;
    bmp.Height:=Screen.Height;
    bmp.Width:=Screen.Width;
    DC:=GetDC(0);
    bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
    DC, 0, 0, SRCCOPY);
    bmp.SaveToFile('c:/Screen.jpg'); //Здесь можешь изменить путь, куда нужно сохранить файл. Так же в этой строчке изменяется название файла.
    ReleaseDC(0, DC);
    bmp.Free;
    end;
    будет создан файл - скриншот экрана с именем Screen.jpg
     
  3. EdgarWine

    EdgarWine Гость

    Вот только почему jpg? Это однако ошибочка, на самом деле оно будет в bmp... ;)
    Для сохранения в jpg нужно добавить в uses модуль JPEG, так же как TBitmap создавать TJPEGImage, копировать битмап в него, задать компрессию, закодировать а уж после сохранять... ;)
     
  4. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Просто так.
    Он появился только в Delphi 2010
     
  5. EdgarWine

    EdgarWine Гость

    Эм... У меня и в Delphi6 и в Delphi7 есть... Прекрасно всё работает...
     
  6. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    У меня в Delphi 2006 тоже есть и нормально работает.

    Может вы путаете с pngimage, хотя его добавили еще в Delphi 2009 версии?
     
  7. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    хм.. может)
     
Загрузка...

Поделиться этой страницей