给250分，求教关于流媒体格式转换的问题？ (47分)

这个问题如果能够帮助解决的话，愿意给予 250 分，虽然 我现在这个帐号中只有 47 分，但我承诺，会用我女朋友的帐号再给 200 分，绝不食言，就当是帮帮忙，如果分数不够，还可以再商量，自己提要求！

我想用 delphi 编写一个程序，来实现 .mpg 到 .asf 文件的转换，如果哪位高手有这方面的代码，能否给一个发到邮箱里。（最好是 delphi 6 的代码）

或者帮我看一下下面的这段代码，要如何修改才能实现将 .mpg 文件转换到 .asf 文件（在使用下面的代码的时候，先要装一下 windows media encoder 即 windows media 编码器，然后在 delphi -> project -> import type library 中安装到 activex 控件条中，然后将 wmencoder 控件放到 form 上）

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, WMEncoderLib_TLB;

type
TForm1 = class(TForm)
Button1: TButton;
WMEncoder1: TWMEncoder;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
srcgrpcoll:iwmencsourcegroupcollection;
srcgrp:iwmencsourcegroup;
srcaud:iwmencaudiosource;
srcvid:iwmencvideosource;
procoll:iwmencprofilecollection;
sfile:iwmencfile;

begin

srcgrpcoll:=wmencoder1.SourceGroupCollection;
srcgrp:=srcgrpcoll.Add('sg_1');
sfile:=wmencoder1.File_;
sfile.LocalFileName:='j:/cctv.asf';
wmencoder1.EnableAutoArchive:=true;
srcgrp.AddSource(wmenc_audio);
//*****
srcgrp.addsource(wmenc_video);
//***** 这一句和上面这一句会不会产生问题（一个是 audio， 一个是 video）
procoll:=wmencoder1.ProfileCollection;
srcgrp.set_Profile(procoll.Item(0));
srcvid.SetInput('j:/cctv.mpg','','');
//编译时通过，但当我按下 button 时，出现错误
srcaud.SetInput('j:/cctv.mpg','','');
//同上
srcvid.Repeat_:=false;
srcaud.Repeat_:=false;
wmencoder1.PrepareToEncode(true);
wmencoder1.Start;
end;


end.