Модераторы: Rickert
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> вырезатель изображения как Print Screen 
:(
    Опции темы
Makentosh
Дата 26.3.2018, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Помогите сделать программку, которая фотографирует с экрана нужный кусок фотографии, а на самой фотографии то, что она сфотографировала, помечает циферкой (нумерует, что это уже сфотографировано).
 очень нужно



Это сообщение отредактировал(а) Makentosh - 26.3.2018, 22:27
PM MAIL   Вверх
Snowy
Дата 27.3.2018, 13:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484



Сфотографировать - легко.

Код
function PrintScreen(): TImage;
var
  ScreenDC:HDC;
  Canvas:TCanvas;
begin
  ScreenDC := GetDC(0);
  Canvas:=TCanvas.Create();
  Canvas.Handle:=ScreenDC;
  result := TImage.Create(nil);
  result.Width := Screen.Width;
  result.Height := Screen.Height;
  result.Canvas.CopyRect(Rect(0, 0, result.Width, result.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height));
  ReleaseDC(0,ScreenDC);
  Canvas.Free;
  result.Parent := Form1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  img: TImage;
begin
  //Caption := IPAddrToName('128.0.0.1');
  img := PrintScreen();
  with img.Canvas do
  begin
    Brush.Style:=bsClear;
    Font.Color := clRed;
    Font.Size := 72;
    TextOut(100, 100, '47');
  end;
end;

А вот что там тебе нужно, а что не нужно - я без понятия.
PM MAIL   Вверх
Makentosh
Дата 27.3.2018, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Мне нужно, чтобы она помечала на фотографии кружочком или квадратиком, что она уже сфотографировала этот кусок, либо нумеровала
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование игр, графики и искуственного интеллекта"
Rickert

НА ЗЛОБУ ДНЯ: Дорогие посетители, прошу обратить внимание что новые темы касающиеся новых вопросов создаются кнопкой "Новая тема" а не "Ответить"! Любые оффтопиковые вопросы, заданные в текущих тематических темах будут удалены а их авторы, при рецедиве, забанены.

  • Литературу, связанную с программированием графики, обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы связанные с программированием графики и мультимедии на языках С++ и Delphi
  • Вопросы по реализации алгоритмов рассматриваются здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rickert.

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


 




[ Время генерации скрипта: 0.1078 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.