Jump to content
wakillon

XvidCapture Demo capturing made easy, into avi video file with stereo sound

Recommended Posts

wakillon

XvidCapture, demo capturing made easy, into avi video file with stereo sound.

20150126144353.jpg

 

Script use XvidCapture.dll made for freebasic by D.J.Peters
 
Major defects :
 
       The frame rate need to be limited due to the time for write datas (80-130 ms by frame with a 1920x1080 screen size and a 640x480 video size).
       The dll support only uncompressed wav audio format (do not work with mp3)
       The quality setting doesn't seem to change anything.

 

Tested with AutoIt 3.3.8.1 on WinXP SP3 and AutoIt 3.3.12.0 on Win7/Win8.1

On my netbook using XP, i need to set fps to 5 with 320x240 !  :(

On my Destop PC using W7 or W8.1 , i need to set fps to 7 with 854x480 !

So don't expect a video in high-definition with dolby surround from a little dll of 153 ko ! :D

If FPS can be respected  by the script, the audio and video can be synchronized, so adjust settings depending on the config of your pc.

As usual externals files are embedded in script.

Thanks to Smashly for his wave functions and also UEZ, Authenticity, Eukalyptus and jpm for the new GDIPLUS functions.

source for 3.3.12.0 :

 XvidCapture v1.0.1.6.au3.html

source for previous versions :

 XvidCapture v1.0.1.6 PreviousAutoItVersions.au3.html

executable :

 XvidCapture.exe.html

Edited by wakillon
  • Like 4

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
UEZ

Cool stuff wakillon!  :thumbsup:

Btw, the new GDIPlus functions were not implemented only by me -> Authenticity (initial release -> GDIP.au3) and Eukalyptus did a lot of efforts.

Br,

UEZ ;)

Edited by UEZ

Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites
wakillon

Cool stuff wakillon!  :thumbsup:

Btw, the new GDIPlus functions were not implemented by me alone -> Authenticity (initial release -> GDIP.au3) and Eukalyptus did a lot of efforts.

Br,

UEZ

 

Thanks, and you are right, i forget them !

Hum, a little question : how is it possible that 2 seconds after i press the button for post my topic, you are already watching it ?

Are you a magician ?  :D


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
UEZ

Oh, I really forgot jpm...  :>

 

Hum, a little question : how is it possible that 2 seconds after i press the button for post my topic, you are already watching it ?

Are you a magician ? 

 

I would say mere chance.  :shhh:

Br,

UEZ


Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites
wakillon

I would say mere chance.  :shhh:

Br,

UEZ

 

Oh ok !  :whistle:

 

About the GDI functions I thought particularly to _GDIPlus_EffectCreateColorMatrix who permit me to apply
a BGR Matrix cause Freebasic use ABGR format for the pixel data instead of ARGB.
Without this, blue color and red color are permuted ! 
 
May be you have saw my _GDIPlus_ColorMatrixSwapToBGR function ?

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
UEZ

Yes, I saw it but wanted to have a deeper look to the code today in the evening when I'm at home.

Br,

UEZ


Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites
wakillon

Ace

9 fps with 854x480 :)

 

Oh ! Very good PC Config isn't it ? 


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
wakillon

Is there any licence on the dll, I wouldn't mind trying it in a project?

Or better still is the full source available?

 

Sorry i have forgotten to mention on the first post, but license is indicated in the script.

License : GNU Library or Lesser General Public License version 3.0 (LGPLv3)

:)

  • Like 1

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
mesale0077

cool :thumbsup: :thumbsup:

code

Case $idButtonRecordStart
    _RecordStart()

to

Case $idButtonRecordStart
            GUISetState ( @SW_HIDE, $hGui )
            sleep(500)
            _RecordStart()

try

Share this post


Link to post
Share on other sites
wakillon

cool :thumbsup: :thumbsup:

code

Case $idButtonRecordStart
    _RecordStart()

to

Case $idButtonRecordStart
            GUISetState ( @SW_HIDE, $hGui )
            sleep(500)
            _RecordStart()

try

 

GUISetState ( @SW_HIDE, $hGui ) is already in the _RecordStart function

You need to add a sleep because you see the GUI on the recorded video?

Strange, from my side I never saw it at the beginning of the recording... :huh2:

  • Like 1

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
UEZ

 

Oh ok !  :whistle:

 

About the GDI functions I thought particularly to _GDIPlus_EffectCreateColorMatrix who permit me to apply
a BGR Matrix cause Freebasic use ABGR format for the pixel data instead of ARGB.
Without this, blue color and red color are permuted ! 
 
May be you have saw my _GDIPlus_ColorMatrixSwapToBGR function ?

 

 

Yes.

Func _GDIPlus_ColorMatrixSwapToBGR()
                        ;   R  G  B  A  v   
    Local $aMatrix[25] = [  0, 0, 1, 0, 0, _    ;R
                            0, 1, 0, 0, 0, _    ;G
                            1, 0, 0, 0, 0, _    ;B
                            0, 0, 0, 1, 0, _    ;A
                            0, 0, 0, 0, 1]      ;v
    Local $tBGRColorMatrix = _GDIPlus_ColorMatrixCreate()
    For $i = 0 To 24
        DllStructSetData ( $tBGRColorMatrix, 'm', $aMatrix[$i], $i + 1 )
    Next
    Return $tBGRColorMatrix
EndFunc ;==> _GDIPlus_ColorMatrixSwapToBGR()

Malkey discovered that matrix already in 2008 -> '?do=embed' frameborder='0' data-embedContent>>

 

If you want to reach 15 fps your _RecordStart() function must take less than  66,67 ms. That's a tough challange with AutoIt.

Br,

UEZ

Edited by UEZ

Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites
wakillon

I didn't know this example

I have adapt matrix from here  :P


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
wakillon

@UEZ

What idiot i am, I was wrong !  >_<

Looking more closely to it, i've well seen this example but as I couldn't get it to work, I went to something else.

My first goal was to set pixel data format to ABGR for the freebasic dll, and not to play with colors.

To this intention, yesterday afternoon i wrote this function based on the AutoHotkey link of my previous post.

#Include <GDIPlus.au3>

_GDIPlus_ColorMatrixSetPixelDataFormat ( 'RBG' )

Func _GDIPlus_ColorMatrixSetPixelDataFormat ( $sFormat )
    Local $j, $aMatrix[6][25] = [ _
        [0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,1], _ ; BGR 
        [1,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1], _ ; RBG 
        [0,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1], _ ; GRB 
        [0,0,1,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1], _ ; BRG 
        [0,1,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,1], _ ; GBR 
        [1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1]  _ ; RGB 
        ]
    Switch $sFormat
        Case 'BGR'
            $j = 0
        Case 'RBG'
            $j = 1
        Case 'GRB'
            $j = 2
        Case 'BRG'
            $j = 3
        Case 'GBR'
            $j = 4
        Case 'RGB'
            $j = 5
        Case Else
            Return SetError ( 1, 0, 0 )
    EndSwitch
    Local $tBGRColorMatrix = _GDIPlus_ColorMatrixCreate()
    For $i = 0 To UBound ( $aMatrix, 2 ) -1
        DllStructSetData ( $tBGRColorMatrix, 'm', $aMatrix[$j][$i], $i+1 )
    Next
    $aMatrix = 0
    Return $tBGRColorMatrix
EndFunc ;==> _GDIPlus_ColorMatrixSetPixelDataFormat()
It's not the _RecordStart function but _XvidCap_Write32BitPixels and _XvidCap_WriteAudioSamples functions who write datas.
Increase the FPS could improve the fluidity of the video, but I would look rather improving the "image" quality .
I have made some test by increasing the resolution (96 to 256) of the image before the datas were writted, but the result was not conclusive !  :thumbsdown:
 
May be i need to find another solution as using BassVideo.dll or some equivalent...
 
;)

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
gius

Wakillon,

I tested with my PC, with screen resolution 1280 x 1024 and it works great,

congratulations for the work!

The best setting for my PC is 960x540 with 7 fps,
since it is the best setting, it is possible to launch the executable and start
recording without having the gui (I set the setting based on 960x540 and 7 fps)?

thanks

Share this post


Link to post
Share on other sites
wakillon

Wakillon,

I tested with my PC, with screen resolution 1280 x 1024 and it works great,

congratulations for the work!

The best setting for my PC is 960x540 with 7 fps,

since it is the best setting, it is possible to launch the executable and start

recording without having the gui (I set the setting based on 960x540 and 7 fps)?

thanks

 

Thanks.

At the end of the GUI() Function ( line 203)

Replace "GUISetState()" by this part of code

If _IsPressedEx ( '11' )  Then ;   11 = Left CTRL key
        GUISetState ( @SW_HIDE, $hGui )
        HotKeySet ( '^x', '_HotKeyGet' )
        _RecordStart()
        If Not @error Then
            $iRecording = 1
        Else
            $iRecording = -1
            GUISetState()
        EndIf
    Else
        GUISetState()
    EndIf

And Add the "_IsPressedEx" function to the script

Func _IsPressedEx ( $HexKey )
    Local $aRet = DllCall ( 'user32.dll', 'int', 'GetAsyncKeyState', 'int', '0x' & $HexKey )
    If Not @error Then Return Int ( $aRet[0] <> 0 )
EndFunc ;==> _IsPressedEx()

And Compile the Script

Now you have to Hold the (left) CTRL key when double clicking on the Executable , and the record start without the Gui.

And always Ctrl X for stop the record.( X for XvidCapture, for not forget !)

I hope this solution will suit you !

:)

Edited by wakillon

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
gius

wakillon,

thanks for your help!

Share this post


Link to post
Share on other sites
wakillon

wakillon,

thanks for your help!

 

Glad to help you  ;)


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • PuneetTewani
      By PuneetTewani
      #include <IE.au3>
      #include <Tesseract.au3>
      #include <MsgBoxConstants.au3>
      #include <Math.au3>
      #include <FileConstants.au3>
      #include <StringConstants.au3>
      #include <File.au3>
      #include <ScreenCapture.au3>
      #include <sound.au3>
      #Include <WinAPI.au3>
      #include <Date.au3>
       
      $OCR_Result = _TesseractScreenCapture(0,"",1,2,220,660,500,730,1)
      $OCR_Result1 = _TesseractScreenCapture(0,"",1,2,220,660,500,730,1)
      $OCR_Result2 = _TesseractScreenCapture(0,"",1,2,220,660,500,730,1)
      $OCR_Result3 = _TesseractScreenCapture(0,"",1,2,220,660,500,730,1)

      $sound = _SoundStatus("C:\ExpertAdvisorBuyAlert.wav")
      while _nowtime < 3.30 pm
          If $sound = True Then
             if $OCR_Result1 > $OCR_Result2
             
          EndIf
      EndIf
      Wend
      Trying to ocr some values on chart in real time(once per minute) and buy/sell securities on basis of alert generated in my software.
      I am struck onto few steps.
      1. On Tesseract Screen Capture indentation parameters. How can we determine the exact parameters if I just want numeric values only.
      2. The Tesseract Screen Capture generates and error Obj1 on line 185 which needs to be resolved.
      3. Sometimes lines get overlapped with values. What to do in that case.
      3. Detecting the sound as and when it approaches and then comparing the ocr values to decide on either buy or sell.
      The values that needs to be fetched are encircled.

    • badcoder123
      By badcoder123
      I was looking around the help file and I came across _GDIPlus_GraphicsDrawRect and _WinAPI_DrawLine and I seem to be having the same "problem" where every time it draws into a window and you lose or gain focus it has to redraw itself. Is there anyway around this? 
      #include <WindowsConstants.au3> #include <WinAPI.au3> #Include <GDIPlus.au3> _GDIPlus_Startup() Run("notepad.exe") $hWnd = WinWait("Untitled") $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd) $Color = 0xFFFF0000 $hPen = _GDIPlus_PenCreate($Color, 2) For $i = 1 To 10 _GDIPlus_GraphicsDrawRect($hGraphic, 200, 200, 25 ,25, $hPen) ToolTip($i) Sleep(1000) Next _WinAPI_RedrawWindow($hWnd, 0, 0, $RDW_INVALIDATE + $RDW_ALLCHILDREN) _GDIPlus_GraphicsDispose($hGraphic) _GDIPlus_PenDispose($hPen) _GDIPlus_Shutdown()  
    • bhns
      By bhns
      try it for make flyers old games xml + Gdi, i belive many sources had lost 
      AIT-ADRLIST.au3

    • mdepot
      By mdepot
      I have a situation where I am repeatedly capturing a region of the screen and feeding it into Tesseract OCR.  Since the OCR is a relatively slow operation, I would like to create an in memory cache of the ocr results.  An ideal hash key for this cache would be a checksum of the captured image.  With this I could capture the region, checksum it, and then only if I don't get a cache hit I would write the image out to disk for external OCR.
      Now I know I can do this by saving the captured image out to disk, and then summing the disk file with _Crypt_HashFile().  But that's still slower than I would like, and it shouldn't be necessary.  Ideally, it should be possible to checksum the image data directly in memory so I don't have to go to disk at all.  In order to do that, I need a way to dump a representation of the image into a string  (or some equivalent).  Then I could use the _Crypt_HashData() function against that string to create my cache hash key.
      Googling around I found an article here that shows a way to convert an image object to a byte array using System.Drawing.  This was the closest thing I found to what I'm trying to do.  I don't know if that method could be used from within AutoIT, or if perhaps there may be a better way I don't know about.  If someone could give me a shove in the right direction it would be a big help.  Thanks!
    • UEZ
      By UEZ
      AutoIt Windows Screenshooter
      Key Features:
      takes easily a screenshot from any visible window capture any region of the desktop incl. freehand capturing capture GUI controls and GUI menus separately capture a marked area every x seconds for a duration of y seconds create a GIF animation from saved frames (Vista or higher os required) capture to AVI file (without audio!) takes a screenshot from web sites (available only on Win7+ os and when Aero is enabled) put images to clipboard to paste to other applications easily color picker save image in different formats and also to PDF! add timestamp to saved images simple image editing options: greyscale, b&w, invert, rotate +-90° send image to printer and default email client preview of captured screens incl. zoom option multi monitor support display pixel color under mouse ruler basic image editor (paint, highlight, ellipse, rectangle, text and some graphic FX) watermark captured image no 3rd party tools or DLLs used - pure AutoIt! fully portable - no installation is needed multi language feature (Eng, Ger, Tur, Fra and Rus only) To do:
      capture content of scrollable window/control capture cascaded menus Due to DllCall("User32.dll", "int", "PrintWindow", "hwnd", $hWnd, "handle", $hMemDC, "int", 0) limitation some windows cannot be captured properly (GDI+, ProgDVB, etc.) but can take screenshots of hidden windows. One workaround is to use full screen capturing (F11/F12) or "Grab Screen" function! Or try double click with rmb on listview items (beta).
      Download source code (6295 downloads previously):  AutoIt Windows Screenshooter v1.81 Build 2018-08-12.7z (version 3.3.12.0+ needed!)
      You are not allowed to sell this code or just parts of it in a commercial project or modify it and distribute it with a different name!
      Download compiled Exe only: 4shared / Media Fire / Softpedia (1.54mb)
      Distributing copies of the program in compiled format (exe) must be free of any fee!
      -----> click here to Donate!  
       
      (Current donators: 1. Cuong N.) 
      It is designed for Win7+ operating systems with AERO enabled! E.g. on WinXP machines some functions are not working properly and might crash the application!
      AV scanners may have a negative impact the execution of compiled exe and might report any malware. I guarantee that there is no malicious code in the source code / exe!!! 
      Main GUI:

       
       
      About Intro:

       
       
      Basic Image Editor:

       
       
      Watermark:

       
       
      Click link for an enhanced version of Watermark Image.
      Credits:
      main code by UEZ additional code (alphabetical order) by Authenticity, AutoItObject Team, Eemuli, Eukalyptus, funkey, _Kurt, martin, monoceres, ProgAndy, taietel, trancexx, Ward, wolf9228 and Yashied! mesale0077 for turkish translation wakillon for french translation AZJIO for russian translation Keys:
      Main GUI:
      User your mouse to scroll preview window or
      Numpad 8: Scroll preview window up
      Numpad 2: Scroll preview window down
      Numpad 4: Scroll preview window left
      Numpad 6: Scroll preview window right
      Numpad +: zoom in preview window or mousewheel down
      Numpad -: zoom out preview window or mousewheel up
      F1: capture again on last position
      F5: refresh Windows Name list
      PRINTSCREEN: take screenshot from whole screen
      ALT+PRINTSCR: take a screenshot from active window
      F10: Undo made changes with Image Editing function
      F11: take screenshot from whole screen incl mouse cursor
      F12: take screenshot from whole screen
      Ctrl+Alt+F9 start "Grab Screen" mode
      Ctrl+Alt+F12: take a screenshot from active window using alternative screenshot functionality (beta)!
      Ctrl+r: call ruler
      Ctrl+s: save current displayed image
      Ctrl+x: exit program
      ctrl+w: call web grab input field (availabe only when Aero is enabled)
      Ctrl+i: call image editor
      Ctrl+m: call watermark editor
      Ctrl+z: undo
      Only available on Vista+ os: double click with rmb on list items to use alternative screenshot functionality (beta)!
      When 'Grab Screen' is clicked you can hold down the ctrl key to switch to 'grab controls' mode. Control under mouse will be framed red.
      ctrl + shift will take the screenshot of appropriate control. To capture GUI menues you can press rmb which simulates the lmb. When a menu is opened press shift additionaly to capture it.
      Press and hold only the shift key to capture any region on the desktop using freehand capturing - release it so capture marked regions!
      Or just mark resizeable area which you want to grab. Press CTRL key to grab marked area or right mouse button to capture the marked area every x seconds for a duration of y seconds.
      When saving the image just enter the extension you whish to use (*.jpg;*.png;*.bmp;*.gif;*.tif;*.pdf). Big thanks to taietel for his PDF UDF!
      Image Editor:
      s: save
      c: copy
      n: send
      h: highlighter
      p: pen
      r: rectangle
      e: ellipse
      a: arrow
      o: color
      t: text
      g: text config
      Ctrl+z: undo
      Watermark editor:
      Ctrl+z: undo
       
      To start the app minimized just call it "Windows Screenshooter.exe /min"
      Maybe it is useful for someone...
      Any kind of comment is welcome.
      Br,
      UEZ
      Change log:
       
×