110,536
社区成员
发帖
与我相关
我的任务
分享
private WMEncoder ConvertEncoder;
private void button2_Click(object sender, EventArgs e)
{
try
{
ConvertEncoder = new WMEncoder();
IWMEncSourceGroupCollection SrcGrpColl = ConvertEncoder.SourceGroupCollection;
IWMEncSourceGroup SrcGrp = SrcGrpColl.Add("SG_1");
IWMEncSource SrcAud = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_AUDIO);
SrcAud.SetInput("D:\\a\\3.avi", "", "");
IWMEncVideoSource2 SrcVid = (IWMEncVideoSource2)SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_VIDEO);
SrcVid.SetInput("D:\\a\\3.avi", "", "");
SrcVid.CroppingBottomMargin = 2;
SrcVid.CroppingTopMargin = 2;
SrcVid.CroppingLeftMargin = 2;
SrcVid.CroppingRightMargin = 2;
IWMEncFile File = ConvertEncoder.File;
File.LocalFileName = "D:\\a\\3.wmv";
WMEncProfile2 Pro2 = new WMEncProfile2();
Pro2.LoadFromFile("D:\\a\\0.prx");
SrcGrp.set_Profile(Pro2);
//IWMEncDisplayInfo Descr = ConvertEncoder.DisplayInfo;
//Descr.Author = Info.AcquisitionUserName;
//Descr.Copyright = Info.OrganizeName + " 版权所有";
//Descr.Description = Info.AcquisitionExplain;
//Descr.Rating = "无";
//Descr.Title = Info.FileName;
//IWMEncAttributes Attr = ConvertEncoder.Attributes;
//Attr.Add("URL", "IP address");
ConvertEncoder.PrepareToEncode(true);
ConvertEncoder.Start();
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
Private Sub Command1_Click()
On Error GoTo ErrorHandler
Dim ConvertEncoder As WMEncoder
Dim SrcGrpColl As IWMEncSourceGroupCollection
Dim SrcGrp As IWMEncSourceGroup
Dim SrcAud As IWMEncSource
Dim SrcVid As IWMEncVideoSource2
Dim File As IWMEncFile
Dim Pro2 As WMEncProfile2
Set ConvertEncoder = New WMEncoder
Set SrcGrpColl = ConvertEncoder.SourceGroupCollection
Set SrcGrp = SrcGrpColl.Add("SG_1")
Set SrcAud = SrcGrp.AddSource(WMENC_AUDIO)
SrcAud.SetInput "D:\\a\\3.avi"
Set SrcVid = SrcGrp.AddSource(WMENC_VIDEO)
SrcVid.SetInput "D:\\a\\3.avi"
SrcVid.CroppingBottomMargin = 2
SrcVid.CroppingTopMargin = 2
SrcVid.CroppingLeftMargin = 2
SrcVid.CroppingRightMargin = 2
Set File = ConvertEncoder.File
File.LocalFileName = "D:\\a\\3.wmv"
Set Pro2 = New WMEncProfile2
Pro2.LoadFromFile "D:\\a\\0.prx"
SrcGrp.Profile = Pro2
ConvertEncoder.PrepareToEncode True
ConvertEncoder.Start
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub