<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0"
					xmlns:content="http://purl.org/rss/1.0/modules/content/"
					xmlns:wfw="http://wellformedweb.org/CommentAPI/"
					xmlns:atom="http://www.w3.org/2005/Atom"
				  >
<channel>
<atom:link rel="self"  type="application/rss+xml"  href="http://rulinux.net/rss_from_sect_1_subsect_3_thread_7442"  />
<title>rulinux.net - Новости - OpenSource - Imager-Screenshot-0.009</title>
<link>http://rulinux.net/</link>
<description><![CDATA[Портал о GNU/Linux и не только]]></description>
<image><title>rulinux.net - Новости - OpenSource - Imager-Screenshot-0.009</title>
<link>http://rulinux.net/</link>
<url>http://rulinux.net/rss_icon.png</url>
</image>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53462</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53462</guid>
<pubDate>Fri, 02 Jul 2010 08:08:38 +0400</pubDate>
<description><![CDATA[<p>Классно, хотя не знаю чем он удобнее для пользователя (не для других скриптов Perl), если есть команда import (через ImageMagick).</p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53461</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53461</guid>
<pubDate>Wed, 30 Jun 2010 20:53:44 +0400</pubDate>
<description><![CDATA[<p>насчот снести вообще нафиг - не пробовал... нда... </p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53460</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53460</guid>
<pubDate>Wed, 30 Jun 2010 14:06:01 +0400</pubDate>
<description><![CDATA[<p>Гы :) А если просто снести этот патч нахуй? Никакие современные смотрелки v4l не заработают?</p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53459</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53459</guid>
<pubDate>Wed, 30 Jun 2010 14:02:44 +0400</pubDate>
<description><![CDATA[<p>да это я же и написал ( &nbsp;<a href="http://www.linux.org.ru/news/doc/387466">http://www.linux.org.ru/news/doc/387466</a> ) , только тогда было ядро 2.4 и тогда все работало, а ща ядро 2,6 и приходится изголяться</p><p> </p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53458</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53458</guid>
<pubDate>Wed, 30 Jun 2010 13:59:00 +0400</pubDate>
<description><![CDATA[<p>И вот это не нагуглилось: &nbsp;<a href="http://www.opennet.ru/docs/RUS/videostudio">http://www.opennet.ru/docs/RUS/videostudio</a> ?</p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53457</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53457</guid>
<pubDate>Wed, 30 Jun 2010 13:57:50 +0400</pubDate>
<description><![CDATA[<p>нет =(</p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53456</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53456</guid>
<pubDate>Wed, 30 Jun 2010 13:54:52 +0400</pubDate>
<description><![CDATA[<p>Гы, с юбилеем: &nbsp;<a href="http://www.linux.org.ru/forum/linux-hardware/2884743">http://www.linux.org.ru/forum/linux-hardware/2884743</a></p><p>Нешта за два-то года не нагуглилось ничего?</p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53455</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53455</guid>
<pubDate>Wed, 30 Jun 2010 13:33:35 +0400</pubDate>
<description><![CDATA[<p>с этим все нормально, на новом ядре отчегото старый патч bigphysarea не работает. оттого стандартные проги типа streamer -o file.jpg и прочие приблуды не пашут, оно пишет в лог ядра</p><p>videobuffer is too small</p><p>cat /proc/bigphysarea не существует, хотя модуль в дереве ядра включен и собран, короче геморои еще те</p><p>Хотя XSane если ему указать устройство видеозахвата сделает скриншот, вроде делало, но яж не буду каждые 5 секунд нажимать на захватить кадр</p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53454</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53454</guid>
<pubDate>Wed, 30 Jun 2010 13:24:33 +0400</pubDate>
<description><![CDATA[<p>спасибо! попробую через mplayer грабить картинки с устройства видеозахвата</p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53453</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53453</guid>
<pubDate>Wed, 30 Jun 2010 13:18:09 +0400</pubDate>
<description><![CDATA[<p>если будут два баша и они не налезают друг на друга - скриншот оно снимет, надо знать его window id только. </p><p>да, фокус на приложение оно переключать не умеет, можно в принципе покопать на предмет того, может ли оно программно перемещать приложения на рабочем столе одно поверх другого</p><p>команда xwininfo -root -children -all даст window id всех вообще приложений, напрмер я запустил Mines и сделалего скриншот так:</p><p>&nbsp;<a href="http://img97.imageshack.us/img97/5420/screenur.png">http://img97.imageshack.us/img97/5420/screenur.png</a></p><p>а моя прога перловая экзампловая всего лишь выдергивает window id по названию что отображается в верхнем углу каждого window на рабочем столе юзера</p><p><fieldset style="border: 1px dashed black; padding:0px;"><ol style="background-color:#3d3d3d;" start="1"><li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;[vilfred@localhost devel]$ xwininfo -root -children -all | grep Mines<li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;           0x4c00003 "Mines": ("gnomine" "Gnomine")  230x387+0+0  +28+25<li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;[vilfred@localhost devel]$<li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;</ol></fieldset></p><p>А модуль Imager-Screenshot-0.009 позволяет делать снимок используюя средства XWindow. А так как он использует модуль Imager, то картинка скриншота проги там 24-х битная</p><p>Или например можно запустить DosBox или из под wine например CorelDrow и заскриншотить снимок любой проги, но опять таки надо разбираться</p><p>Или можно перейти на нулевую консоль из иксов по команде Ctrl+Alt+F1 и оттуда заскриншотить необходимую программу, висящую на консоли по Alt+F7</p><p>Или вообще зайти на удаленный комп на котором есть иксы и сделать скриншот нужной проги...</p><p>Короче походу это почти полноценная скриншотилка приложений. </p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53452</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53452</guid>
<pubDate>Wed, 30 Jun 2010 12:36:47 +0400</pubDate>
<description><![CDATA[<p><i>> запуск xawtv(в нем оно работает)</i><br> Если через xawtv работат, то и через mplayer должно. Указывай только нужное устройство /dev/videoX. А mplayer сам умеет в картинках сохранять (-vo png|jpeg|...).</p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53451</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53451</guid>
<pubDate>Wed, 30 Jun 2010 12:34:32 +0400</pubDate>
<description><![CDATA[<p>А если будет два баша? Или десятка два xterm-ов? А если окно находится полностью под другими (вроде как Х-ы не должны его прорисовывать)? А если это вывод через xv (у меня скриншоты получались просто синими прямоугольниками)?</p><p>Куча вопросов, одним словом.</p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53450</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53450</guid>
<pubDate>Wed, 30 Jun 2010 12:34:06 +0400</pubDate>
<description><![CDATA[<p>Оно же вроде через video4linux работает, другие толжны уметь.. </p><p>Если у тебя это для мониторинга используется, может лучше использовать что-нить специализированное: &nbsp;<a href="http://www.lavrsen.dk/twiki/bin/view/Motion/WebHome">http://www.lavrsen.dk/twiki/bin/view/Motion/WebHome</a></p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53449</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53449</guid>
<pubDate>Wed, 30 Jun 2010 12:10:30 +0400</pubDate>
<description><![CDATA[<p>угу, именно по этому =)</p><p>у меня в упор не желают дрова для одного устройства видеозахвата ставиться, и потому я его будут так мониторить, через запуск xawtv(в нем оно работает) и снимать картинки... </p><p>а шнягу эту можно использовать для чего угодно, из под вайна запускать любые майкрософтовые проги или из под dosemu или dosbox</p><p></p>]]></description>
</item>
<item>
<title>Re: Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53448</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53448</guid>
<pubDate>Wed, 30 Jun 2010 12:04:56 +0400</pubDate>
<description><![CDATA[<p>Ах вот ты почему спрашивал! Вот это я понимаю подход - протестировал новость, потом запостил. Не то что некоторые.</p>]]></description>
</item>
<item>
<title>Imager-Screenshot-0.009</title>
<link>https://rulinux.net/message.php?newsid=7442&amp;page=1#53447</link>
<guid>https://rulinux.net/message.php?newsid=7442&amp;page=1#53447</guid>
<pubDate>Wed, 30 Jun 2010 12:01:00 +0400</pubDate>
<description><![CDATA[<p>Обновился очередной модуль для снятия скриншотов с экрана. По display name и window id (see man 7 X) выбирает активное (или нет) приложение и делает его снимок. Ниже приведен небольшой perl-script, позволяющий с консоли по названию  приложения, высвечивающегося как правило в левом верхнем углу любого графического приложения, сделать его скриншот.</p><p>\cut{Читать далее}</p><p><fieldset><legend>perl</legend><code><br />
<span style="color: #666666; font-style: italic;">#!/usr/bin/perl -w</span><br />
<br />
<span style="color: #000000; font-weight: bold;">use</span> Imager<span style="color: #339933;">::</span><span style="color: #006600;">Screenshot</span> <span style="color: #ff0000;">'screenshot'</span><span style="color: #339933;">;</span><br />
<span style="color: #000000; font-weight: bold;">use</span> strict<span style="color: #339933;">;</span><br />
<span style="color: #b1b100;">my</span> <span style="color: #0000ff;">$id_by_name</span><span style="color: #339933;">;</span><br />
<span style="color: #0000ff;">&amp;def_id_by_name</span><span style="color: #009900;">&#40;</span><span style="color: #009900;">&#41;</span><span style="color: #339933;">;</span><br />
<span style="color: #b1b100;">my</span> <span style="color: #0000ff;">$img</span> <span style="color: #339933;">=</span> screenshot<span style="color: #009900;">&#40;</span>display <span style="color: #339933;">=&gt;</span> <span style="color: #ff0000;">'0'</span><span style="color: #339933;">,</span> id <span style="color: #339933;">=&gt;</span> <span style="color: #0000ff;">$id_by_name</span> <span style="color: #009900;">&#41;</span> <span style="color: #339933;">||</span> <a href="http://perldoc.perl.org/functions/print.html"><span style="color: #000066;">print</span></a> Imager<span style="color: #339933;">-&gt;</span><span style="color: #006600;">errstr</span><span style="color: #339933;">;</span><br />
<span style="color: #0000ff;">$img</span><span style="color: #339933;">-&gt;</span><span style="color: #006600;">write</span><span style="color: #009900;">&#40;</span>file<span style="color: #339933;">=&gt;</span><span style="color: #ff0000;">&quot;screen.ppm&quot;</span><span style="color: #009900;">&#41;</span> <span style="color: #339933;">||</span> <a href="http://perldoc.perl.org/functions/print.html"><span style="color: #000066;">print</span></a> <span style="color: #0000ff;">$img</span><span style="color: #339933;">-&gt;</span><span style="color: #006600;">errstr</span><span style="color: #339933;">;</span><br />
<br />
<span style="color: #000000; font-weight: bold;">sub</span> def_id_by_name<span style="color: #009900;">&#123;</span><br />
&nbsp; <span style="color: #b1b100;">my</span> <span style="color: #339933;">@</span><a href="http://perldoc.perl.org/functions/m.html"><span style="color: #000066;">m</span></a> <span style="color: #339933;">=</span> <a href="http://perldoc.perl.org/functions/split.html"><span style="color: #000066;">split</span></a> <span style="color: #009966; font-style: italic;">/\n/</span> <span style="color: #339933;">=&gt;</span> <a href="http://perldoc.perl.org/functions/qx.html"><span style="color: #000066;">qx</span></a><span style="color: #009900;">&#91;</span>xwininfo <span style="color: #339933;">-</span>root <span style="color: #339933;">-</span>children <span style="color: #339933;">-</span>all<span style="color: #009900;">&#93;</span><span style="color: #339933;">;</span><br />
&nbsp; <span style="color: #b1b100;">foreach</span><span style="color: #009900;">&#40;</span><span style="color: #339933;">@</span><a href="http://perldoc.perl.org/functions/m.html"><span style="color: #000066;">m</span></a><span style="color: #009900;">&#41;</span><span style="color: #009900;">&#123;</span><br />
&nbsp; &nbsp; <span style="color: #b1b100;">do</span><span style="color: #009900;">&#123;</span><br />
&nbsp; &nbsp; &nbsp; <span style="color: #b1b100;">my</span> <span style="color: #0000ff;">$t1</span> <span style="color: #339933;">=</span> <a href="http://perldoc.perl.org/functions/qx.html"><span style="color: #000066;">qx</span></a><span style="color: #009900;">&#91;</span>xwininfo <span style="color: #339933;">-</span>id <span style="color: #0000ff;">$1</span><span style="color: #009900;">&#93;</span><span style="color: #339933;">;</span><br />
&nbsp; &nbsp; &nbsp; <span style="color: #b1b100;">do</span><span style="color: #009900;">&#123;</span><br />
&nbsp; &nbsp; &nbsp; &nbsp; <span style="color: #0000ff;">$id_by_name</span> <span style="color: #339933;">=</span> <a href="http://perldoc.perl.org/functions/hex.html"><span style="color: #000066;">hex</span></a><span style="color: #009900;">&#40;</span><span style="color: #0000ff;">$1</span><span style="color: #009900;">&#41;</span> <span style="color: #b1b100;">if</span> <span style="color: #0000ff;">$t1</span><span style="color: #339933;">=~</span><a href="http://perldoc.perl.org/functions/m.html"><span style="color: #000066;">m</span></a><span style="color: #339933;">/</span><span style="color: #009900;">&#40;</span><span style="color: #0000ff;">\dx</span><span style="color: #009900;">&#40;</span><span style="color: #009900;">&#91;</span><span style="color: #0000ff;">\d</span><span style="color: #0000ff;">\w</span><span style="color: #009900;">&#93;</span><span style="color: #009900;">&#41;</span><span style="color: #009900;">&#123;</span>4<span style="color: #339933;">,</span><span style="color: #009900;">&#125;</span><span style="color: #009900;">&#41;</span>\<a href="http://perldoc.perl.org/functions/s.html"><span style="color: #000066;">s</span></a><span style="color: #339933;">/;</span><br />
&nbsp; &nbsp; &nbsp; <span style="color: #009900;">&#125;</span><span style="color: #b1b100;">if</span> <span style="color: #0000ff;">$t1</span><span style="color: #339933;">=~</span><a href="http://perldoc.perl.org/functions/m.html"><span style="color: #000066;">m</span></a><span style="color: #339933;">/</span><span style="color: #0000ff;">$ARGV</span><span style="color: #009900;">&#91;</span>0<span style="color: #009900;">&#93;</span><span style="color: #339933;">/</span>is<span style="color: #339933;">;</span><br />
&nbsp; &nbsp; <span style="color: #009900;">&#125;</span> <span style="color: #b1b100;">if</span> <span style="color: #009966; font-style: italic;">m/(\dx([\d\w]){4,})\s/</span><span style="color: #339933;">;</span><br />
&nbsp; <span style="color: #009900;">&#125;</span><br />
<span style="color: #009900;">&#125;</span><br />
&nbsp;</code></fieldset></p><p>Запускать так: <fieldset style="border: 1px dashed black; padding:0px;"><ol style="background-color:#3d3d3d;" start="1"><li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;[vilfred@localhost devel]$ perl x.pl bash<li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;screen.ppm<li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;[vilfred@localhost devel]$ ls screen.ppm<li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;screen.ppm<li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;[vilfred@localhost devel]$<li style="background-color:#000000; padding-left: 5px; color: gray">&nbsp;</ol></fieldset></p><p>и в файле screen.ppm находится скриншот окна, в заголовке которого XWindow написал bash</p><p> </p><br>>>> <a href="http://search.cpan.org/~tonyc/Imager-Screenshot/">Подробнее</a>]]></description>
</item>
</channel>
</rss>