Text over movie

[cramaboule]

Hi all,

 

I was wondering if it is possible (and how) to put text on video on-the-fly (like VLC displays Title movie at the begining)

and of course doing that in AutoIt

Thanks in advance...

 

C.

[careca]

I think that may be problematic, because a video constantly "repaints" a certain area, at least that's the way i think about it, but there's a possibility that creating a window with certain flags can ensure that it stays over everything else, and unaffected.

See this example:

expandcollapse popup

#include <FileConstants.au3>
#include <WinAPIFiles.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#include <WinAPISysWin.au3>

Opt("GUIOnEventMode", 1) ; Change to OnEvent mode

; #FUNCTION# ====================================================================================================================
; Name ..........: OverlayWindow
; Description ...:  Throws up a child window with transparent background over current window
;
; Parameters :
;   $hwndParent         parent hwnd
;   $rectToHighlight    rect to draw (or if null, skip)
;   $rectForText    rect for textToWrite
;   $textToWrite    the text to write
; ===============================================================================================================================
Func OverlayWindow($hwndParent, $rectToHighlight, $rectForText, $textToWrite)

   $style = BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS)
   $exstyle = BitOR($WS_EX_TOPMOST, $WS_EX_COMPOSITED, $WS_EX_TRANSPARENT)

   $hGUI = GUICreate("transparent overlay", -1, -1, -1, -1, $style, $exstyle)

    GUISetBkColor(0xFFFFFF)
  _WinAPI_SetLayeredWindowAttributes($hGUI, 0xFFFFFF, 0, $LWA_COLORKEY)

   ConsoleWrite("**** $hGUI: " & $hGUI & @CRLF)
   ConsoleWrite("**** @error: " & @error & @CRLF)
   ConsoleWrite("**** @extended: " & @extended & @CRLF)

   GUISetOnEvent($GUI_EVENT_CLOSE, "OverlayWindow_Exit")
   GUISetState(@SW_SHOW, $hGUI)

   $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
   ConsoleWrite("**** $hGraphics : " & $hGraphics & @CRLF)
   _GDIPlus_GraphicsSetSmoothingMode($hGraphics, $GDIP_SMOOTHINGMODE_HIGHQUALITY)

   $hPen = _GDIPlus_PenCreate(0xFFFF0000, 4)    ; Red

   If ($rectToHighlight <> Null) Then
      _GDIPlus_GraphicsDrawRect($hGraphics, $rectToHighlight[0], $rectToHighlight[1], $rectToHighlight[2], $rectToHighlight[3], $hPen)
   EndIf

   _GDIPlus_PenDispose($hPen)

   $hBrush = _GDIPlus_BrushCreateSolid(0xFFFF0000)  ; RED
   $hFormat = _GDIPlus_StringFormatCreate()
   $hFamily = _GDIPlus_FontFamilyCreate("Arial")
   $hFont = _GDIPlus_FontCreate($hFamily, 14, 2)
   $tLayout = _GDIPlus_RectFCreate($rectForText[0], $rectForText[1], $rectForText[2], $rectForText[3])
   $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $textToWrite, $hFont, $tLayout, $hFormat)
   _GDIPlus_GraphicsDrawStringEx($hGraphics, $textToWrite, $hFont, $aInfo[0], $hFormat, $hBrush)

   _GDIPlus_BrushDispose($hBrush)
   _GDIPlus_StringFormatDispose($hFormat)
   _GDIPlus_FontFamilyDispose($hFamily)
   _GDIPlus_FontDispose($hFont)
   _GDIPlus_GraphicsDispose($hGraphics)

   Return $hGUI
EndFunc

Func OverlayWindow_Exit()
   ConsoleWrite("* * * Exit event called" & @CRLF)
EndFunc

Func Handle_Esc()
   $Done = True
EndFunc

;-----------------------------------------------------------------
;Main()

_GDIPlus_Startup()

Global $Done = False
Local $rect = [10, 10, 400, 400]
Local $rectForText = [15, 15, 380, 380]
$hGUI = OverlayWindow(Null, $rect, $rectForText, "This is a test with long text long text and should automatically wrap long text " & @CRLF & "and " & @CRLF & " handle " & @CRLF & "cariage returns and line feeds")

HotKeySet ( "{Esc}", Handle_Esc)

While Not $Done
   Sleep(100)

WEnd

GUIDelete($hGUI)
_GDIPlus_Shutdown ()
Exit 0

 

[cramaboule]

Hi,

 

Thanks, but I get some errors... I can't solve them...

 

C.

[BrewManNH]

"got some errors" doesn't tell us much, what errors?

[cramaboule]

error found... the include file was commented

BUT,... it doesn't get the behaviour I am looking for.

[Jos]

  On 10/23/2018 at 5:22 PM, cramaboule said:

BUT,... it doesn't get the behaviour I am looking for.

Expand  

My suggestion: Keep looking.

[cramaboule]

how do I include my video on the GUI ? (mp4)

[BrewManNH]

  On 10/23/2018 at 5:22 PM, cramaboule said:

BUT,... it doesn't get the behaviour I am looking for.

Expand  

Why not, what is it doing that it's not supposed to be doing, or what is it not doing that it is supposed to be doing? You could try being a whole lot less vague in your error descriptions, otherwise no one has a clue what you are doing wrong.

[cramaboule]

Yes... sorry I must be more acurate:

I got the same behaviour as this post: 

 

and I tried to play a bit with the child and parent window but didn't get trough...

How to put the video underneath and the text above?

[careca]

Try again, untested.

expandcollapse popup

#include <FileConstants.au3>
#include <WinAPIFiles.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPISysWin.au3>

Opt("GUIOnEventMode", 1) ; Change to OnEvent mode

; #FUNCTION# ====================================================================================================================
; Name ..........: OverlayWindow
; Description ...:  Throws up a child window with transparent background over current window
;
; Parameters :
;   $hwndParent         parent hwnd
;   $rectToHighlight    rect to draw (or if null, skip)
;   $rectForText    rect for textToWrite
;   $textToWrite    the text to write
; ===============================================================================================================================
Func OverlayWindow($hwndParent, $rectToHighlight, $rectForText, $textToWrite)

   $style = $WS_POPUP
   $exstyle = BitOR($WS_EX_TOPMOST, $WS_EX_TRANSPARENT, $WS_EX_LAYERED)

   $hGUI = GUICreate("transparent overlay", 420, 420, 0, 0, $style, $exstyle)
   GUISetBkColor(0x112233)
  _WinAPI_SetLayeredWindowAttributes($hGUI, 0x112233, 0, $LWA_COLORKEY)

   ConsoleWrite("**** $hGUI: " & $hGUI & @CRLF)
   ConsoleWrite("**** @error: " & @error & @CRLF)
   ConsoleWrite("**** @extended: " & @extended & @CRLF)

   GUISetOnEvent($GUI_EVENT_CLOSE, "OverlayWindow_Exit")
   GUISetState(@SW_SHOW, $hGUI)

   $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
   ConsoleWrite("**** $hGraphics : " & $hGraphics & @CRLF)
   _GDIPlus_GraphicsSetSmoothingMode($hGraphics, $GDIP_SMOOTHINGMODE_HIGHQUALITY)

   $hPen = _GDIPlus_PenCreate(0xFFFF0000, 4)    ; Red

   If ($rectToHighlight <> Null) Then
      _GDIPlus_GraphicsDrawRect($hGraphics, $rectToHighlight[0], $rectToHighlight[1], $rectToHighlight[2], $rectToHighlight[3], $hPen)
   EndIf

   _GDIPlus_PenDispose($hPen)

   $hBrush = _GDIPlus_BrushCreateSolid(0xFFFF0000)  ; RED
   $hFormat = _GDIPlus_StringFormatCreate()
   $hFamily = _GDIPlus_FontFamilyCreate("Arial")
   $hFont = _GDIPlus_FontCreate($hFamily, 14, 2)
   $tLayout = _GDIPlus_RectFCreate($rectForText[0], $rectForText[1], $rectForText[2], $rectForText[3])
   $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $textToWrite, $hFont, $tLayout, $hFormat)
   _GDIPlus_GraphicsDrawStringEx($hGraphics, $textToWrite, $hFont, $aInfo[0], $hFormat, $hBrush)

   _GDIPlus_BrushDispose($hBrush)
   _GDIPlus_StringFormatDispose($hFormat)
   _GDIPlus_FontFamilyDispose($hFamily)
   _GDIPlus_FontDispose($hFont)
   _GDIPlus_GraphicsDispose($hGraphics)

   Return $hGUI
EndFunc

Func OverlayWindow_Exit()
   ConsoleWrite("* * * Exit event called" & @CRLF)
EndFunc

Func Handle_Esc()
   $Done = True
EndFunc

;-----------------------------------------------------------------
;Main()

_GDIPlus_Startup()

Global $Done = False
Local $rect = [10, 10, 400, 400]
Local $rectForText = [15, 15, 380, 380]
$hGUI = OverlayWindow(Null, $rect, $rectForText, "This is a test with long text long text and should automatically wrap long text " & @CRLF & "and " & @CRLF & " handle " & @CRLF & "cariage returns and line feeds")

HotKeySet ( "{Esc}", Handle_Esc)

While Not $Done
   Sleep(100)

WEnd

GUIDelete($hGUI)
_GDIPlus_Shutdown ()
Exit 0