Jump to content
wakillon

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

Recommended Posts

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

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

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

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

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

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

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

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)

:)


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

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:


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

 

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

@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

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,

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

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

    • 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) drag'n'drop an image to the app for editing 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 (9460 downloads previously): AutoIt Windows Screenshooter v1.84 Build 2019-08-18.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.58mb)
      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 mouse wheel down
      Numpad -: zoom out preview window or mouse wheel 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 (available 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 menus you can press rmb which simulates the lmb. When a menu is opened press shift additionally 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 resize able 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 wish 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:
       


    • By Zombie02
      Hello Guys i am new to Autoit. I am currently writing a GUI which is displaying a avi. My question now is how can i use a avi i added with Autoit3wrapper
      Thanks is advance
      Zombie
    • By UEZ
      Here some graphical examples written completely in FreeBasic just for fun.  
      _WinAPI_SetWindowTitleIcon Check for Numeric Entry in an EditBox using RegEx CreateWindowEx (hGUI) Example FB 3D Starfield Rotating Flight FB File2Bas Code Generator FB Fire Particles FB Fireworks FB GFX Examples FB Image to Trapezoid Transformation FB Layered Parallax Effect FB Plasma FB Puristic Clock FB Rotating Cube FB Rotating Earth FB Rutt Etra Izer Effect FB Simple Recursive Tree Generator FB Snowfall FB Tunnel Flight FB Water Effect FMOD Examples GDI - GDI+ 3D Sinus Wave GDI - GDI+ Animated Pythagoras Tree GDI - GDI+ Bezier Lines GDI - GDI+ Particles - Repulsive Force Sim v2.0 GDI - GDI+ Plasma v5 Booster GDI - GDI+ Random Pattern GDI - GDI+ Space Flight GDI - GDI+ Tunnel Flight - WipeOut Style GDI Classic Raytraced Tunnel GDI Elastic Twister Effect GDI Exploding Pixels GDI Infinite Image Zoom Flight GDI Liquid Pixels GDI Mandelbrot GDI Particle Repulsion Grid GDI Particles Mouse Attraction GDI Starfield GDI The Nautilus Raymarcher GDI Worm Tunnel Flight GDI+ 3D Starfield Scrolling v1 Booster GDI+ 3D Starfield Scrolling v3 Booster GDI+ Convert Bitmap to ASCII GDI+ GIF Anim to ASCII Player GDI+ Image Painting GDI+ Impossible Possible GDI+ Kaleidoscope GDI+ Performance Test - Au3 vs FB GDI+ Polar Clock GDI+ Rotating Earth GDI+ Spiral Text GDI+ Star Wars Scroller GDI+ Streamer GDI+ Swiss Railway Clock GDI+ The MATRIX Ini Read - Write Rutt_Etra_Izer_Booster Stack TitchySID uFMOD  
      Download: FreeBasic Examples build 2019-05-08.rar
       
      I will add new examples from time to time.
       
      FreeBasic source codes are also included.
       
    • By Raywando
      Hello,
      This is my first post. So I’ve worked on a script for a while and I’m planning to publish it but the problem is that it connects to an FTP server at some point, and as you probably know FTP credentials are easily captured by a MITM attack or Wireshark (not sure if Wireshark does). So I thought if i can detect data capturing in the user’s network the script would stop. Any idea?.
      If there’s another workaround I’m happy to hear it. 
    • By Miliardsto
      hello Im wondering if it is possible to process image in autoit like this
      1. firstly there is colorfull wallpaper
      2. Fill all colors (exception rose color) - with white
      3. Fill rose color with black color
      I see Gdi functions have things to manipulate images
      https://imgur.com/a/lFdY26g
×
×
  • Create New...