Автор Тема: Библиотека AVIWriter - Запись видео  (Прочитано 13789 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн CreatoR [?]

  • Администратор
  • *
  • Сообщений: 8082
  • Репутация: 2314
  • Пол: Мужской
  • AutoIt is simple, subtle, elegant
    • CreatoR's Lab
    • Награды
  • Версия AutoIt: 3.3.14.0
AutoIt: 3.2.10.0+
Версия: 1.0

Категория: Графика, Разное

Описание: Библиотека для записи видео с вашего монитора в файл формата AVI.

Код/Пример:
(нажмите для показа/скрытия)

Файл: Библиотека AVIWriter

Источник: http://www.autoitscript.com/forum/index.php?showtopic=86748
Автор(ы): monoceres


Правила, Поиск, Супер тема


AutoIt is simple, subtle, elegant.


«Не оказываю тех. поддержку через ПМ/ICQ, и по электронной почте - для этого есть форум. (C)»
«Законы Мэрфи неоспоримы!»


Мои работы

Русское сообщество AutoIt

Библиотека AVIWriter - Запись видео
« Отправлен: Сентябрь 17, 2010, 19:08:13 »

Оффлайн Zaramot [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 1160
  • Репутация: 656
  • Пол: Мужской
  • I ♥ AutoIt
    • Награды
  • Версия AutoIt: 3.3.8.1
Re: Библиотека AVIWriter - Запись видео
« Ответ #1, Отправлен: Сентябрь 18, 2010, 02:13:30 »
Спасибо что подправил  :)

Оффлайн araneon [?]

  • Новичок
  • *
  • Сообщений: 59
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Библиотека AVIWriter - Запись видео
« Ответ #2, Отправлен: Октябрь 30, 2010, 11:54:19 »
Чёт непойму, скрипт должен писать видео со всего монитора или только какуюто область, просто у меня пишет небольшую область вокруг курсора, то есть передвигаешь курсор и запись идет только курсора с небольшой областью (windows7 x32) скрипт не менял, копи-паст и запуск!!! И размер БОЛЬШООООЙ получается, что тоже неудобно
Нет ничего сложнее того, что выглядит и кажется простым

Русское сообщество AutoIt

Re: Библиотека AVIWriter - Запись видео
« Ответ #2 Отправлен: Октябрь 30, 2010, 11:54:19 »

Оффлайн asa12 [?]

  • Новичок
  • *
  • Сообщений: 66
  • Репутация: 3
    • Награды
Re: Библиотека AVIWriter - Запись видео
« Ответ #3, Отправлен: Октябрь 30, 2010, 22:14:12 »
С размером то всё понятно. 1,5 гига на 10 мин. записи при 1024*
Это размер несжатого avi. Нужно прикрутить модуль компрессии (или не нужно) - минус комп нужен не одноядерный и относительно современный. Там заморочек прилично и проблемы не с кодом.

Оффлайн araneon [?]

  • Новичок
  • *
  • Сообщений: 59
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Библиотека AVIWriter - Запись видео
« Ответ #4, Отправлен: Октябрь 31, 2010, 00:30:19 »
Так как на счёт размера записываемого изображения, у меня почему то только кусочек пишет а не весь экран  :( :( :(

вот такое в место такова


Русское сообщество AutoIt

Re: Библиотека AVIWriter - Запись видео
« Ответ #4 Отправлен: Октябрь 31, 2010, 00:30:19 »

Оффлайн Redline [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 506
  • Репутация: 369
  • Пол: Мужской
    • Награды
Re: Библиотека AVIWriter - Запись видео
« Ответ #5, Отправлен: Октябрь 31, 2010, 06:04:56 »
araneon  [?]
Цитировать
Так как на счёт размера записываемого изображения, у меня почему то только кусочек пишет а не весь экра
В примере кода же написано какой участок пишется:
Код: AutoIt [Выделить]
$hBmp = _ScreenCapture_Capture("", $m[0] - 100, $m[1] - 100, $m[0] + 100, $m[1] + 100, True)

То есть берется квадрат вокруг курсора со стороной 200 пикселей.
Весь экран:
Код: AutoIt [Выделить]
_ScreenCapture_Capture("", 0, 0, -1, -1, True)

Уроки по регулярным выражениям на AutoIt: RegExp

Оффлайн araneon [?]

  • Новичок
  • *
  • Сообщений: 59
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Библиотека AVIWriter - Запись видео
« Ответ #6, Отправлен: Ноябрь 02, 2010, 08:38:36 »
araneon  [?]
Цитировать
Так как на счёт размера записываемого изображения, у меня почему то только кусочек пишет а не весь экра
В примере кода же написано какой участок пишется:
Код: AutoIt [Выделить]
$hBmp = _ScreenCapture_Capture("", $m[0] - 100, $m[1] - 100, $m[0] + 100, $m[1] + 100, True)

То есть берется квадрат вокруг курсора со стороной 200 пикселей.
Весь экран:
Код: AutoIt [Выделить]
_ScreenCapture_Capture("", 0, 0, -1, -1, True)



спасибо за советик, но чёт не получается (((

Оффлайн Redline [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 506
  • Репутация: 369
  • Пол: Мужской
    • Награды
Re: Библиотека AVIWriter - Запись видео
« Ответ #7, Отправлен: Ноябрь 02, 2010, 09:51:59 »
araneon  [?]
Цитировать
спасибо за советик, но чёт не получается (((
Код лень рассмотреть?
Код: AutoIt [Выделить]
$avi = _CreateAvi(@DesktopDir & "\test.avi", 5,200,200)

Здесь тоже нужно указать размер, если весь экран, то пиши так:
Код: AutoIt [Выделить]
$avi = _CreateAvi(@DesktopDir & "\test.avi", 5,@DesktopWidth, @DesktopHeight)


Русское сообщество AutoIt

Re: Библиотека AVIWriter - Запись видео
« Ответ #7 Отправлен: Ноябрь 02, 2010, 09:51:59 »

Оффлайн araneon [?]

  • Новичок
  • *
  • Сообщений: 59
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Библиотека AVIWriter - Запись видео
« Ответ #8, Отправлен: Ноябрь 05, 2010, 11:57:21 »
araneon  [?]
Цитировать
спасибо за советик, но чёт не получается (((
Код лень рассмотреть?
Код: AutoIt [Выделить]
$avi = _CreateAvi(@DesktopDir & "\test.avi", 5,200,200)

Здесь тоже нужно указать размер, если весь экран, то пиши так:
Код: AutoIt [Выделить]
$avi = _CreateAvi(@DesktopDir & "\test.avi", 5,@DesktopWidth, @DesktopHeight)


ООО СПАСИБО !!!

Оффлайн X3.42rus [?]

  • Новичок
  • *
  • Сообщений: 8
  • Репутация: 0
    • Награды
Re: Библиотека AVIWriter - Запись видео
« Ответ #9, Отправлен: Август 11, 2011, 12:20:09 »
Вот немного порылся на источнике и пришил в пример компрессию:

Код: AutoIt [Выделить]
#include <ScreenCapture.au3>
#include "AVIWriter.au3"
#include <Process.au3>

Hotkeyset("{ESC}","close")

Break(0)


FileDelete(@DesktopDir & "\capture.avi")
FileDelete(@DesktopDir & "\Compressed_AVI.avi")
_StartAviLibrary()

$avi = _CreateAvi(@DesktopDir & "\capture.avi", 5,@DesktopWidth, @DesktopHeight)


Do
        $hBmp = _ScreenCapture_Capture("", 0, 0, -1, -1, True)
    _AddHBitmapToAvi($avi, $hBmp)
    _WinAPI_DeleteObject($hBmp)
    Sleep(200)
Until False



Func close()
    _CloseAvi($avi)
    _StopAviLibrary()
     CompressAVI("capture.avi")
     FileDelete(@DesktopDir & "\capture.avi")
    exit
EndFunc;==>close

Func CompressAVI($PATH)
    TrayTip("AVIWritter", "Compressing avi...", 3, 4)
    _RunDOS('ffmpeg -i capture.avi -b 512k -vcodec msmpeg4v2 Compressed_AVI.avi')
    TrayTip("AVIWritter", "Finished !", 3, 4)
    EndFunc  


Получилось что-то типоа фрапса.
т.е. захватывает весь экран, после остановки (Esc) конвертит при помощи FFMpeg (придется качать) и удаляет несжатый оригинал.
« Последнее редактирование: Август 11, 2011, 13:06:26 от X3.42rus »

Оффлайн Kaster [?]

  • Бритва, Бритва Оккама
  • Глобальный модератор
  • *
  • Сообщений: 4020
  • Репутация: 622
  • Пол: Мужской
  • Мой Аватар, он лучший самый
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Библиотека AVIWriter - Запись видео
« Ответ #10, Отправлен: Август 11, 2011, 12:26:28 »
X3.42rus
используй тэги [autoit][/autoit] для AutoIt кодов
Конференция посвященная AutoIt на jabber.ru - [email protected]
Как попасть на конференцию читаем тут


Русское сообщество AutoIt

Re: Библиотека AVIWriter - Запись видео
« Ответ #10 Отправлен: Август 11, 2011, 12:26:28 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
49 Ответов
55891 Просмотров
Последний ответ Ноябрь 08, 2012, 14:07:57
от ynbIpb
5 Ответов
6916 Просмотров
Последний ответ Сентябрь 17, 2010, 19:13:51
от CreatoR
1 Ответов
6370 Просмотров
Последний ответ Сентябрь 18, 2011, 01:10:02
от Zaramot
6 Ответов
6149 Просмотров
Последний ответ Декабрь 21, 2017, 10:33:11
от zbz
28 Ответов
11459 Просмотров
Последний ответ Декабрь 15, 2012, 00:51:42
от tref777
2 Ответов
3110 Просмотров
Последний ответ Октябрь 09, 2013, 19:49:07
от bugmenot
1 Ответов
1141 Просмотров
Последний ответ Июнь 18, 2015, 08:23:16
от Yashied
2 Ответов
1698 Просмотров
Последний ответ Август 23, 2015, 14:24:30
от alex33
10 Ответов
2544 Просмотров
Последний ответ Февраль 09, 2016, 00:08:17
от Aquila
0 Ответов
419 Просмотров
Последний ответ Ноябрь 21, 2018, 11:54:41
от zbz