Windows Media Encoder SDK 开发?

lxx8402 2001-12-31 04:27:28
那位大虾能提供 ASP 对 windows Media Encoder SDK 编程资料或源码,一定送分。
谢谢!
...全文
61 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lxx8402 2002-01-05
chx007(乱发吹风) 
很感谢你,有没有更详细的资料阿!
回复
chx007 2001-12-31
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<OBJECT id=MSPropShell1 style="LEFT: 0px; WIDTH: 540px; TOP: 0px; HEIGHT: 306px"
data=data:application/x-oleobject;base64,XquX4rBAvUGeBuQUQITuXwADAADQNwAAoB8AAAsA//8DAAEAAAALAAAAAgAAAA==
classid=clsid:E297AB5E-40B0-41BD-9E06-E4144084EE5F name=PropPageShell VIEWASTEXT></OBJECT>
<script language=vbscript>
dim encoder
dim srcgrpcoll
dim srcgrp
dim audsrc
dim vidsrc
dim file
dim procoll
dim i
dim abc
Dim CHX
Dim Statistics
Set CHX = CreateObject("WMEnc.WMEncMonMainPage")
Set encoder = CreateObject("WMEncEng.WMEncoder")
Set srcgrpcoll = encoder.SourceGroupCollection
Set srcgrp = srcgrpcoll.Add("SG_2")
Set audsrc = srcgrp.AddSource(1)
Set vidsrc = srcgrp.AddSource(2)
Set file = encoder.file
Set procoll = encoder.ProfileCollection
PropPageShell.AddObject encoder
PropPageShell.AddPage CHX
Dim OutputStats

'For i = 0 To procoll.Count - 1
' document.writeln "<INPUT type=checkbox id=checkbox1 name=checkbox1 value="
' document.writeln i&">"
' document.writeln procoll.Item(i).Name&"<br>"
'Next
i=0
sub encode()
file.localfilename=file2.value
audsrc.setinput file1.value
vidsrc.setinput file1.value
srcgrp.profile=procoll.item(24)
encoder.EnableAutoArchive =true
encoder.PrepareToEncode true
'document.wow.wmlength.value =
encoder.Start
i=1
aa()
end sub
sub aa()
Set Statistics = Encoder.Statistics
Set OutputStats = Statistics.StreamOutputStats(2,0,3)
document.wow.AverageBitrate.value=OutputStats.AverageBitrate
document.wow.AverageSampleRate.value=OutputStats.AverageSampleRate
document.wow.ByteCount.value=OutputStats.ByteCount
document.wow.CurrentBitrate.value=OutputStats.CurrentBitrate
document.wow.CurrentSampleRate.value=OutputStats.CurrentSampleRate
document.wow.DroppedByteCount.value=OutputStats.DroppedByteCount
document.wow.DroppedSampleCount.value=OutputStats.DroppedSampleCount
document.wow.ExpectedBitrate.value=OutputStats.ExpectedBitrate
document.wow.ExpectedSampleRate.value=OutputStats.ExpectedSampleRate
document.wow.SampleCount.value=OutputStats.SampleCount
document.wow.EncodingTime.value=cCUR(statistics.EncodingTime)
document.wow.FileDuration.value =Statistics.FileArchiveStats.FileDuration
document.wow.Filesize.value =Statistics.FileArchiveStats.Filesize
if encoder.RunState=2 then
i=i+1
s=""
str="▊"
x=i mod 55
for j=1 to x
s=s+str
next
document.wow.display.value=s
timeID=settimeout("aa()",200,vbscript)
else
document.wow.display.value="完成"
exit sub
end if
end sub
</script>
<P>

</P>
源文件:  <INPUT type="file" id=file1 name=file1><br>
目标文件:<INPUT type="file" id=file2 name=file2><br>
<INPUT type="button" value="转换" id=button1 name=button1 onclick="encode()">
<FORM NAME="wow">
进度:display<font color=mediumblue>
<INPUT NAME="display" SIZE="100" STYLE="COLOR: #006699"><br>
AverageBitrate<font color=mediumblue>
<INPUT NAME="AverageBitrate" SIZE="10" STYLE="COLOR: #006699"><br>
AverageSampleRate<font color=mediumblue>
<INPUT NAME="AverageSampleRate" SIZE="10" STYLE="COLOR: #006699"><br>
ByteCount<font color=mediumblue>
<INPUT NAME="ByteCount" SIZE="10" STYLE="COLOR: #006699"><br>
CurrentBitrate<font color=mediumblue>
<INPUT NAME="CurrentBitrate" SIZE="10" STYLE="COLOR: #006699"><br>
CurrentSampleRate<font color=mediumblue>
<INPUT NAME="CurrentSampleRate" SIZE="10" STYLE="COLOR: #006699"><br>
DroppedByteCount <font color=mediumblue>
<INPUT NAME="DroppedByteCount" SIZE="10" STYLE="COLOR: #006699"><br>
DroppedSampleCount<font color=mediumblue>
<INPUT NAME="DroppedSampleCount" SIZE="10" STYLE="COLOR: #006699"><br>
ExpectedBitrate<font color=mediumblue>
<INPUT NAME="ExpectedBitrate" SIZE="10" STYLE="COLOR: #006699"><br>
ExpectedSampleRate<font color=mediumblue>
<INPUT NAME="ExpectedSampleRate" SIZE="10" STYLE="COLOR: #006699"><br>
SampleCount<font color=mediumblue>
<INPUT NAME="SampleCount" SIZE="10" STYLE="COLOR: #006699"><br>
EncodingTime<font color=mediumblue>
<INPUT NAME="EncodingTime" SIZE="10" STYLE="COLOR: #006699"><br>
FileDuration <font color=mediumblue>
<INPUT NAME="FileDuration" SIZE="10" STYLE="COLOR: #006699"><br>
FileSize <font color=mediumblue>
<INPUT NAME="FileSize" SIZE="10" STYLE="COLOR: #006699"><br>
</font>
</FORM></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT>
</BODY>
</HTML>
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2001-12-31 04:27
社区公告
暂无公告