Execute um vídeo incorporado do YouTube com o ActiveX
Enviado: 07 Dez 2017 14:52
#include "fivewin.ch"
STATIC oWnd
#define HKEY_LOCAL_MACHINE 2147483650
FUNCTION Ejemplo()
local oWndChild, oActiveX
local cFile, cPath, cHtml
cHtml := ''
cHtml += '<html>' + CRLF
cHtml += '<body>' + CRLF
cHtml += '<div id="vid" align="center">' + CRLF
cHtml += '<iframe width="560" height="315" src="https://www.youtube.com/embed/i93Z7zljQ7I" frameborder="0" gesture="media" allow="encrypted-media" allowfullscreen></iframe>' + CRLF
cHtml += '</div>' + CRLF
cHtml += '</body>' + CRLF
cHtml += '</html>' + CRLF
cHtml += CRLF
cPath := cFilePath(GetModuleFileName(GetInstance()))
cFile := cPath + "video.html"
FErase(cFile)
MemoWrit( cFile, cHtml )
/*
http://fivewin.com.br/index.php?/topic/27339-problema-na-busca-do-cnpj-site-da-receita/
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34901
*/
INTER_APP_WEB_CONFIG("VIDEOAC.exe",11001)
DEFINE WINDOW oWnd TITLE "Video"
oActiveX := TActiveX():New( oWnd, "Shell.Explorer.2" )
oActivex:Silent := .T.
oActivex:SetFocus()
oWnd:oClient := oActiveX
oWnd:Resize()
oActiveX:Do( "Navigate2", cFile )
ACTIVATE WINDOW oWnd
RETURN NIL
/*
Parametrize seu programa com a versão do seu navegador atual.
Ex: se seu navegador for iexplorer 11 coloque assim
INTER_APP_WEB_CONFIG("SeuPrograma.exe",11001)
*/
FUNCTION INTER_APP_WEB_CONFIG(f_cNameProg,f_nVersion_IE)
Local oRegKey, cRegProgGet, lDeleteKey := .f.
Default f_nVersion_IE := 11001
if IsWow64()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION" )
oRegKey:Set(f_cNameProg,f_nVersion_IE,4)
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_AJAX_CONNECTIONEVENTS" )
oRegKey:Set(f_cNameProg,0,4) // Padrão 0
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ZONE_ELEVATION" )
oRegKey:Set(f_cNameProg,0,4) // Padrão 1
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_READ_ZONE_STRINGS_FROM_REGISTRY" )
oRegKey:Set(f_cNameProg,1,4) // Padrão 0
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BEHAVIORS" )
oRegKey:Set(f_cNameProg,1,4)
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS" )
oRegKey:Set(f_cNameProg,1,4)
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_SHOW_APP_PROTOCOL_WARN_DIALOG" )
oRegKey:Set(f_cNameProg,1,4) // Padrao 0
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_GPU_RENDERING" )
oRegKey:Set(f_cNameProg,1,4) // Padrao 0
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_NINPUT_LEGACYMODE" )
oRegKey:Set(f_cNameProg,0,4) // Padrao 1
oRegKey:Close()
Else
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION" )
oRegKey:Set(f_cNameProg,f_nVersion_IE,4)
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BEHAVIORS" )
cRegProgGet := oRegKey:GetBinary(f_cNameProg)
//? cRegProgGet
If Empty(cRegProgGet)
oRegKey:Set(f_cNameProg,1,4)
EndIf
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS" )
oRegKey:Set(f_cNameProg,1,4)
oRegKey:Close()
EndIf
RETURN NIL