 VideoEdit Gold ActiveX Control
|
InitSingleServerLicense Method
|
Description
Initialize the single server license if you need use CreateObject to instance the ActiveX or using the ActiveX on server side. You must purchase Single Server license. Without call InitSingleServerLicense method, you cannot using the ActiveX on server side or cannot instance the ActiveX with CreateObject method.
Syntax
Public Function InitSingleServerLicense( _
ByVal strSerialNo as string
)
|
Parameters
strSerialNo
the string of serial no.
No Return Value
Example
[Visual Basic Script Syntax]
Set obj=CreateObject("VIDEOEDIT.VideoEditCtrl.1")
obj.InitSingleServerLicense "demo"
strVideoFile= InputBox("Please input the file path of video e.g. c:\video.mpg")
if obj.IsFileExisting (strVideoFile) = false then
Msgbox "Make sure the video file is existing"
WScript.Quit
end if
iDur=obj.GetFileDuration(strVideoFile)
if iDur=0 then
msgbox "Video File not found, please input correct path"
WScript.Quit
end if
obj.NoUIVideoWndCaption "Converting"
obj.OutputType=0
obj.VideoSampleSize = 24
obj.InitControl
obj.AddVideo strVideoFile, 0, iDur, 0
obj.AddAudio strVideoFile, 0, iDur
result = obj.Save ("c:\mytest1.mpg")
If result= true Then
MsgBox "Save c:\mytest1.mpg completed"
else
MsgBox "Failed"
End If
|