home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 49 / cda49.iso / Share / Multi / MicrosoftWindowsMediaEncoder7 / wmencoder.exe / crtnewencoder.asp < prev    next >
Encoding:
Text File  |  2000-06-30  |  4.5 KB  |  217 lines
  1. <%@ Language=VBScript CODEPAGE=65001%>
  2.  
  3. <HTML>
  4. <HEAD>
  5. <meta http-equiv="Content-Language" content="en-us">
  6. <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  7. <TITLE>New Encoder</TITLE>
  8. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
  9. <SCRIPT LANGUAGE=javascript>
  10. <!--
  11.     function Error_Display(iNum,sDesc){
  12.     if (iNum!=0){
  13.         alert(sDesc)
  14.         }     
  15.  
  16.     }
  17. //-->
  18. </SCRIPT>
  19.  
  20. </HEAD>
  21. <BODY>
  22. <% 
  23. dim ConfigPath
  24. dim Name 
  25. dim PrfName
  26. dim Port
  27. dim ArchPath
  28. dim InDev
  29. dim InPath
  30. dim AgentLoc
  31. dim MchName
  32. dim EncAgent
  33. dim Bct
  34. dim Broadcast
  35. dim Bdcst
  36. on Error Resume Next
  37. if Request.Form("hOpt")=0 then
  38.  
  39.         Response.Write("You chose To Cancel The Creation Of The New Encoder")
  40.  
  41.         set AgentLoc=Session("AgentLocSess")
  42.         if Err.number <> 0 then
  43.             ErrorNum=1
  44.             ErrorDesc=Err.description
  45.             Err.Clear
  46.         end if
  47.         MchName=Session("MchNameSess")
  48.         
  49.         set EncAgent=AgentLoc.GetAgent(MchName)
  50.         if Err.number <> 0 then
  51.             ErrorNum=1
  52.             ErrorDesc=Err.description
  53.             Err.Clear
  54.         end if
  55.         set Enc=EncAgent.GetEncoder("EncPrf")
  56.         set Enc=nothing
  57.         set Session("EncAppg")=nothing%>
  58.     <BR>
  59.     <BR>
  60.     <A href=RemoteControl.htm>Return To The  Statistics Page</A>    
  61.   
  62.    <%else
  63.         set AgentLoc=Session("AgentLocSess")
  64.         if Err.number <> 0 then
  65.             ErrorNum=1
  66.             ErrorDesc=Err.description
  67.             Err.Clear
  68.         end if
  69.         MchName=Session("MchNameSess")
  70.         
  71.         set EncAgent=AgentLoc.GetAgent(MchName)
  72.         if Err.number <> 0 then
  73.             ErrorNum=1
  74.             ErrorDesc=Err.description
  75.             Err.Clear
  76.         end if
  77.         set Enc=EncAgent.GetEncoder("EncPrf")
  78.         set Enc=nothing
  79.         set Session("EncAppg")=nothing
  80.         EncName=Request.Form("tIdentification")
  81.         set Session(EncName)=EncAgent.CreateEncoder(EncName) 
  82.         if Err.number <> 0 then
  83.             ErrorNum=1
  84.             ErrorDesc=Err.description
  85.             Err.Clear
  86.         end if
  87.         set Encoder=EncAgent.GetEncoder(EncName)
  88.         PrfName=Request.Form("sProfile")
  89.         
  90.         set SrcGrpCol=Encoder.SourceGroupCollection
  91.         if Err.number <> 0 then
  92.             ErrorNum=1
  93.             ErrorDesc=Err.description
  94.             Err.Clear
  95.         end if
  96.         
  97.         Group=Request.Form("Group")
  98.         Video=Request.Form("Video")
  99.         Audio=Request.Form("Audio")
  100.         Archive=Request.Form("Archive")
  101.         Bdcst=Request.Form("cBdcst")
  102.         FStat=Request.Form("cFile")
  103.         Port=Request.Form("tPrt")
  104.         File=Request.Form("tFile")
  105.         
  106.         
  107.         if Bdcst<>0 then
  108.             set Broadcast=Encoder.Broadcast
  109.             Broadcast.PortNumber(1)=Port
  110.         end if            
  111.         if FStat<>0 then
  112.         set    IFile=Encoder.File
  113.             IFile.LocalFileName=File
  114.         end if    
  115.         
  116.         set PrfCol=Encoder.profileCollection
  117.         if Err.number <> 0 then
  118.             ErrorNum=1
  119.             ErrorDesc=Err.description
  120.             Err.Clear
  121.         end if
  122.         for each Prf in PrfCol
  123.             if PrfName=Prf.Name then
  124.                 set PrfAdd=Prf
  125.                 exit for
  126.             end if
  127.             
  128.         next
  129.                 
  130.         
  131.         while Group <>""
  132.             PosGrp=instr(1,Group,";")
  133.             PosGrp=PosGrp-1
  134.             SrcGrp=mid(Group,1,PosGrp)
  135.             PosGrp=instr(1,Group,";")
  136.             PosGrp=PosGrp+1
  137.             Group=mid(Group,PosGrp)
  138.             
  139.             PosVid=instr(1,Video,";")
  140.             PosVid=PosVid-1
  141.             Vid=mid(Video,1,PosVid)
  142.             PosVid=instr(1,Video,";")
  143.             PosVid=PosVid+1
  144.             Video=mid(Video,PosVid)
  145.             
  146.             PosAud=instr(1,Audio,";")
  147.             PosAud=PosAud-1
  148.             Aud=mid(Audio,1,PosAud)
  149.             PosAud=instr(1,Audio,";")
  150.             PosAud=PosAud+1
  151.             Audio=mid(Audio,PosAud)
  152.             
  153.             PosArch=instr(1,Archive,";")
  154.             PosArch=PosArch-1
  155.             Arch=mid(Archive,1,PosArch)
  156.             PosArch=instr(1,Archive,";")
  157.             PosArch=PosArch+1
  158.             Archive=mid(Archive,PosArch)
  159.             
  160.             set SrcGrpAdd=SrcGrpCol.Add(SrcGrp)
  161.             set AudSrc=SrcGrpAdd.AddSource(1)            
  162.             set VidSrc=SrcGrpAdd.AddSource(2)
  163.             
  164.             if instr(UCase(Vid),"DEVICE://")=0 and instr(UCase(Vid),"SCREENCAP:")=0 then
  165.                 Vid="FILE:" & "//" & Vid 
  166.                 VidSrc.SetInput Vid
  167.              
  168.             else
  169.                 VidSrc.SetInput Vid
  170.             end if
  171.                     
  172.             if instr(1,UCase(Aud),"DEVICE://")=0  then
  173.                 Aud="FILE://" & Aud 
  174.                 AudSrc.SetInput Aud
  175.             
  176.             else
  177.                 AudSrc.SetInput Aud
  178.             end if
  179.             
  180.             If Archive="Record" then
  181.                 SrcGrpAdd.AutoArchive(1)=1
  182.             end if
  183.             
  184.             If Archive="Pause" then
  185.                 SrcGrpAdd.AutoArchive(1)=3
  186.             end if    
  187.             
  188.             If Archive="Stop" then
  189.                 SrcGrpAdd.AutoArchive(1)=2
  190.             end if
  191.             
  192.             SrcGrpAdd.Profile=PrfAdd
  193.         wend    
  194.     Encoder.PrepareToEncode(True)
  195.     if Err.number <> 0 then
  196.         ErrorNum=1
  197.         ErrorDesc=Err.description
  198.         Err.Clear
  199.     end if
  200.     if ErrorNum<>0 then%>
  201.         <SCRIPT LANGUAGE=javascript>
  202.         <!--
  203.             Error_Display ("<%=ErrorNum%>","<%=ErrorDesc%>")
  204.         //-->
  205.         </SCRIPT>
  206.  
  207.     <%else
  208.         Response.Write("Encoder Sucessfully Created")
  209.     end if%>
  210.  
  211. <BR>
  212. <BR>
  213. <A href=RemoteControl.htm>Return To The  Statistics Page</A>
  214. <%end if%>
  215. </BODY>
  216. </HTML>
  217.