我想把一个RIDL文件转换为ACTIVEX，该怎么做？在线等待

Question

是VBScript里的一个文件，我想把它转换为ACTIVEX文件，好供我DELPHI引用，怎么做，我刚才用D7可以打开文件，如下所示：// ************************************************************************ //
// WARNING
// -------
// This file is generated by the Type Library importer or Type Libary Editor.
// Barring syntax errors, the Editor will parse modifications made to the file.
// However, when applying changes via the Editor this file will be regenerated
// and comments or formatting changes will be lost.
// ************************************************************************ //
// File generated on 20.07.2011 12:18:12 (- $Rev: 12980 $, 8484987).[
  uuid(A357E802-BA6C-479E-A400-0270ED8A26B9),
  version(1.7),
  helpstring("3dtv.at Stereoscopic Player Automation")]
library StereoPlayer
{  importlib("stdole2.tlb");  interface IAutomation;
  coclass Automation;
  [
    uuid(44C1616D-FBE8-415D-869C-6D113C780C7F),
    version(1.3)
  ]
  enum PlaybackState
  {
    PlaybackState_Play = 0,
    PlaybackState_Pause = 1,
    PlaybackState_Stop = 2,
    PlaybackState_FastForward = 3,
    PlaybackState_FastBackward = 4
  };  [
    uuid(9D79E9CE-E2EC-423D-846C-17B887E6CD3E),
    version(1.3)
  ]
  enum AudioMode
  {
    AudioMode_NoAudio = 0,
    AudioMode_SeparateFile = 1,
    AudioMode_LeftFile = 2,
    AudioMode_RightFile = 3
  };  [
    uuid(36F2BF51-D29E-498C-AFEA-BFCE002AE1AF),
    version(1.3)
  ]
  enum PlaybackMode
  {
    PlaybackMode_File = 1,
    PlaybackMode_LeftRightFiles = 2,
    PlaybackMode_DVD = 3,
    PlaybackMode_URL = 4,
    PlaybackMode_Device = 5,
    PlaybackMode_None = 0
  };  [
    uuid(54150FC5-F6D5-419A-BC0D-E2BE08558934),
    version(1.7),
    helpstring("Dispatch interface for StereoPlayerAutomation Object"),
    dual,
    oleautomation
  ]
  interface IAutomation: IDispatch
  {
    [id(0x000000C9), helpstring("Returns the number of items in the playlist.")]
    HRESULT _stdcall GetPlaylistItemCount([out] VARIANT* Count);
  ..............等待大家的帮助