Точка на экране

[VoidVolker]

Вот так будет лучше и удобнее:

Code: Select all

#( test_screenshot
NoLog
NoActive
WINAPI: CreateEnhMetaFileA gdi32.dll
WINAPI: CloseEnhMetaFile gdi32.dll
WINAPI: DeleteEnhMetaFile gdi32.dll
WINAPI: BitBlt gdi32.dll
WINAPI: GetDeviceCaps gdi32.dll
: SCREENSHOT  ( a u -- )  { \ mdc sdc --}
\ HDC mdc, sdc;
\ sdc = GetWindowDC(GetDesktopWindow());
  GetDesktopWindow GetWindowDC TO sdc
\ mdc = CreateEnhMetaFile(sdc, "c:\\screenshot.emf", NULL, NULL);
  0 0 2SWAP S" .emf" S+ S>ZALLOC sdc CreateEnhMetaFileA TO mdc
\ BitBlt(mdc, 0, 0, GetDeviceCaps(sdc, DESKTOPHORZRES), GetDeviceCaps(sdc, DESKTOPVERTRES), sdc, 0, 0, SRCCOPY);
  13369376 0 0 sdc 10 sdc GetDeviceCaps 8 sdc GetDeviceCaps 0 0 mdc BitBlt DROP
\ ReleaseDC(GetDesktopWindow(), sdc);
  sdc GetDesktopWindow ReleaseDC DROP
\ DeleteEnhMetaFile(CloseEnhMetaFile(mdc));
  mdc CloseEnhMetaFile DeleteEnhMetaFile DROP ;
Action:
S" C:\скриншот" SCREENSHOT
)#

[Yury Zhukov]

Code: Select all

: SCREENSHOT  ( a u -- )  { \ mdc sdc --}


Подскажи, а VALUE-переменные внутри слова не надо объявлять или в фигурных скобках это и есть объявление? Т.е. что означает строка

Code: Select all

{ \ mdc sdc --}

[VoidVolker]

Это т.н. "локалсы", локальные переменные, существующие только внутри используемого слова:

Code: Select all

\ пример простого использования
: test { a b | c d }  \ a b инициализируюся со стека, c и d нулями
  a TO c
  b TO d
  c . d . ;
1 2 test
>1 2
> Ok

Более подробно http://spf.cvs.sourceforge.net/spf/lib/ ... f?view=log

[Yury Zhukov]

Спасибо, понял.
И отвлеченный вопрос: а аналогичного репозитория в SVN нет? Как-то мне Subversion привычнее. Просто я до сих пор считал, что SourceForge ведет параллельно два репозитория, но не нашел ссылки на SPF в SVN-е....

[ascerdfg1]

Теперь при выполнении задачи выскакивает сообщение вида:
"0TASK%[missed]%: Задача294882"

Code: Select all

#( tt 
NoActive
WINAPI: GetPixel gdi32.dll
: GET-PIXEL  ( x y -- RGB )
  GetDesktopWindow DUP >R GetWindowDC DUP >R GetPixel R> R> ReleaseDC DROP ;
Action:
100 100 GET-PIXEL
N>H S>ZALLOC ASCIIZ> MsgBox
)#

Code: Select all

#( tt \ вывод цвета точки с координатами 724 265
NoActive
WINAPI: GetPixel gdi32.dll
: GET-PIXEL  ( x y -- RGB )
  SWAP GetDesktopWindow DUP >R GetWindowDC DUP >R GetPixel R> R> ReleaseDC DROP ;
Action:
4000 PAUSE
724 265 GET-PIXEL
N>H S>ZALLOC ASCIIZ> MsgBox \ BBGGRR
)#

[ascerdfg1]

Ни SCREENSHOT ни GET-PIXEL не видят вот эту программу: R-Matrix 1.7 trial.exe, только PrintScreen и вставка в Paint. Как можно ещё обойти?

[VoidVolker]

Использовать программу для снятия скриншотов с поддержкой командной строки. Напрмиер IrfanView:

Code: Select all

i_view32.exe /capture=0

Захват всего экрана.

Code: Select all

i_view32.exe /capture=6

Захват с настройками из INI-файла.

режимы захвата:
0 = весь экран
1 = текущий монитор (на котором находится мышь)
2 = активное окно
3 = активное окно - только содержимое
4 = выделенный прямоугольник
5 = объект, выбранный мышью
6 = с последними настройками захвата (несовместим с другими ключами)

Дополнительные примеры:

Code: Select all

i_view32.exe /capture=2 /convert=c:\test.jpg

Захват активного окна с сохранением результата в файл.

Code: Select all

i_view32.exe /capture=2 /convert=c:\capture_$U(%d%m%Y_%H%M%S).jpg

Захват активного окна с сохранением результата в файл, в имени которого указано время захвата.

[ascerdfg1]

А аналог GET-PIXEL есть чтоб видет то что не видит GET-PIXEL ?

[VoidVolker]

Может и есть — это надо копать МСДН.

[Евгений По]

Здравствуйте!
Много воды утекло с первых вопросов..
Подскажите плз как справиться с тормозами на Win7 при использовании GET-PIXEL ?
Скорость примерно 1-3 пикселя в секунду.
На XP все работало достаточно шустро. (~1000-2000 pix в секунду)

Вероятно ТУТ (http://www.cyberforum.ru/win-api/thread ... page4.html) кроется правильный ответ, но моих познаний не хватает, чтобы попробовать перевести это в nncron..

[VoidVolker]

Это у вас локальный баг какой-то или просто ПК сам по себе медленный. Кроме того, это слово предназначено для получения цвета одиночного пикселя или нескольких пикселей, а не части изображения. Для анализа изображения следует делать снимок либо части экрана либо всего экрана.

Code: Select all

: PixelBench
    GetTickCount
    100000 0 DO
        300 300 GET-PIXEL DROP
    LOOP
    GetTickCount - ABS ." Time: " . CR
;

Результат:

Code: Select all

PixelBench
Time: 780