home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2007 May / PCpro_2007_05.ISO / files / vollversionen / visualdataflex / VDF12.0.StudioDownload.exe / %MAINDIR% / Examples / Example Library / AppSrc / cComMediaPlayer.pkg < prev    next >
Encoding:
Text File  |  2007-03-10  |  169.8 KB  |  4,573 lines

  1. // Visual DataFlex COM proxy classes generated from C:\WINDOWS\System32\msdxm.ocx
  2. Use FlexCom20.pkg
  3.  
  4.  
  5. // ActiveMovie Readiness State
  6. Define OLEReadyStateConstants for Integer
  7.     // ActiveMovie is uninitialized
  8.     Define OLEamvUninitialized for 0
  9.     // ActiveMovie is loading
  10.     Define OLEamvLoading for 1
  11.     // ActiveMovie is not fully loaded, but will permit limited user interaction
  12.     Define OLEamvInteractive for 3
  13.     // ActiveMovie is fully loaded, permitting full user interaction
  14.     Define OLEamvComplete for 4
  15.  
  16. // State of playback
  17. Define OLEMPPlayStateConstants for Integer
  18.     // Playback is stopped
  19.     Define OLEmpStopped for 0
  20.     // Playback is paused
  21.     Define OLEmpPaused for 1
  22.     // Stream is playing
  23.     Define OLEmpPlaying for 2
  24.     // Waiting for stream to begin
  25.     Define OLEmpWaiting for 3
  26.     // Stream is Scanning forward
  27.     Define OLEmpScanForward for 4
  28.     // Stream is Scanning in reverse
  29.     Define OLEmpScanReverse for 5
  30.     // Stream has not been opened
  31.     Define OLEmpClosed for 6
  32.  
  33. // Media Information Display Size type
  34. Define OLEMPDisplaySizeConstants for Integer
  35.     // 0 - Default Size
  36.     Define OLEmpDefaultSize for 0
  37.     // 1 - Half Size
  38.     Define OLEmpHalfSize for 1
  39.     // 2 - Double Size
  40.     Define OLEmpDoubleSize for 2
  41.     // 3 - Full Screen
  42.     Define OLEmpFullScreen for 3
  43.     // 4 - Fit to Size
  44.     Define OLEmpFitToSize for 4
  45.     // 5 - One Sixteenth Screen
  46.     Define OLEmpOneSixteenthScreen for 5
  47.     // 6 - One Fourth Screen
  48.     Define OLEmpOneFourthScreen for 6
  49.     // 7 - One Half Screen
  50.     Define OLEmpOneHalfScreen for 7
  51.  
  52. // Readiness State
  53. Define OLEMPReadyStateConstants for Integer
  54.     // 0 - Uninitialized
  55.     Define OLEmpReadyStateUninitialized for 0
  56.     // 1 - Loading
  57.     Define OLEmpReadyStateLoading for 1
  58.     // 3 - Interactive
  59.     Define OLEmpReadyStateInteractive for 3
  60.     // 4 - Complete
  61.     Define OLEmpReadyStateComplete for 4
  62.  
  63. // MediaPlayer Display Mode
  64. Define OLEMPDisplayModeConstants for Integer
  65.     // Time
  66.     Define OLEmpTime for 0
  67.     // Frames
  68.     Define OLEmpFrames for 1
  69.  
  70. // More Information URL type
  71. Define OLEMPMoreInfoType for Integer
  72.     // More Information URL for Show
  73.     Define OLEmpShowURL for 0
  74.     // More Information URL for Clip
  75.     Define OLEmpClipURL for 1
  76.     // More Information URL for Banner
  77.     Define OLEmpBannerURL for 2
  78.  
  79. // Media Information String type
  80. Define OLEMPMediaInfoType for Integer
  81.     // Show filename
  82.     Define OLEmpShowFilename for 0
  83.     // Show Title
  84.     Define OLEmpShowTitle for 1
  85.     // Show Author
  86.     Define OLEmpShowAuthor for 2
  87.     // Show Copyright
  88.     Define OLEmpShowCopyright for 3
  89.     // Show Rating
  90.     Define OLEmpShowRating for 4
  91.     // Show Description
  92.     Define OLEmpShowDescription for 5
  93.     // Show Logo Icon
  94.     Define OLEmpShowLogoIcon for 6
  95.     // Clip filename
  96.     Define OLEmpClipFilename for 7
  97.     // Clip Title
  98.     Define OLEmpClipTitle for 8
  99.     // Clip Author
  100.     Define OLEmpClipAuthor for 9
  101.     // Clip Copyright
  102.     Define OLEmpClipCopyright for 10
  103.     // Clip Rating
  104.     Define OLEmpClipRating for 11
  105.     // Clip Description
  106.     Define OLEmpClipDescription for 12
  107.     // Clip Logo Icon
  108.     Define OLEmpClipLogoIcon for 13
  109.     // Current Banner Image
  110.     Define OLEmpBannerImage for 14
  111.     // Current Banner MoreInfo
  112.     Define OLEmpBannerMoreInfo for 15
  113.     // Current Watermark
  114.     Define OLEmpWatermark for 16
  115.  
  116. // Show Dialog Constants
  117. Define OLEMPShowDialogConstants for Integer
  118.     // 0 - Help
  119.     Define OLEmpShowDialogHelp for 0
  120.     // 1 - Statistics
  121.     Define OLEmpShowDialogStatistics for 1
  122.     // 2 - Options
  123.     Define OLEmpShowDialogOptions for 2
  124.     // 3 - Context Menu
  125.     Define OLEmpShowDialogContextMenu for 3
  126.  
  127. // DVD Menu ID constants
  128. Define OLEDVDMenuIDConstants for Integer
  129.     // title from any VTS in a DVD-Video volume
  130.     Define OLEdvdMenu_Title for 2
  131.     // main menu for a specific VTS
  132.     Define OLEdvdMenu_Root for 3
  133.     // subpicture stream in a VTS
  134.     Define OLEdvdMenu_Subpicture for 4
  135.     // audio stream in a VTS
  136.     Define OLEdvdMenu_Audio for 5
  137.     // angle num in a VTS
  138.     Define OLEdvdMenu_Angle for 6
  139.     // chapter in a VTS
  140.     Define OLEdvdMenu_Chapter for 7
  141.  
  142. Define VB_OLE_COLOR for UInteger
  143.  
  144. // CLSID: {39A2C2A5-4778-11D2-9BDB-204C4F4F5020}
  145. // IDirectControl Interface
  146. Class cComIDirectControl is a Mixin
  147.  
  148.     Procedure ComCreateView String llbszClsid
  149.         Handle hDispatchDriver
  150.         Get phDispatchDriver to hDispatchDriver
  151.         Send PrepareParams to hDispatchDriver 1
  152.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbszClsid
  153.         Send InvokeComMethod to hDispatchDriver 1610743808 OLE_VT_VOID
  154.     End_Procedure
  155.  
  156.     Procedure ComDestroyAllViews
  157.         Handle hDispatchDriver
  158.         Get phDispatchDriver to hDispatchDriver
  159.         Send InvokeComMethod to hDispatchDriver 1610743809 OLE_VT_VOID
  160.     End_Procedure
  161. End_Class
  162.  
  163. // _IDirectControlEvents Interface
  164. Class cCom_IDirectControlEvents is a Mixin
  165.  
  166.     Procedure RegisterComEvents
  167.     End_Procedure
  168. End_Class
  169.  
  170. // CoClass
  171. // ProgID: DirectFrame.DirectControl.1
  172. // CLSID: {39A2C2A6-4778-11D2-9BDB-204C4F4F5020}
  173. // DirectControl Class
  174. Class cComDirectControl is a cComAutomationObject
  175.     Import_Class_Protocol cComIDirectControl
  176.     Import_Class_Protocol cCom_IDirectControlEvents
  177.  
  178.     Procedure Construct_Object
  179.         Forward Send Construct_Object
  180.         Set psProgID to "{39A2C2A6-4778-11D2-9BDB-204C4F4F5020}"
  181.         Set peAutoCreate to acNoAutoCreate
  182.     End_Procedure
  183. End_Class
  184.  
  185. // CLSID: {39A2C2A8-4778-11D2-9BDB-204C4F4F5020}
  186. // IDirectContainer Interface
  187. Class cComIDirectContainer is a Mixin
  188.  
  189.     Function ComCreateControl String llbszClsid UInteger lldwClsContext Variant llppunk UInteger lldwWindowStyle Returns Integer
  190.         Handle hDispatchDriver
  191.         Integer retVal
  192.         Get phDispatchDriver to hDispatchDriver
  193.         Send PrepareParams to hDispatchDriver 4
  194.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbszClsid
  195.         Send DefineParam to hDispatchDriver OLE_VT_UI4 lldwClsContext
  196.         Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llppunk
  197.         Send DefineParam to hDispatchDriver OLE_VT_UI4 lldwWindowStyle
  198.         Get InvokeComMethod of hDispatchDriver 1610678272 OLE_VT_HRESULT to retVal
  199.         Function_Return retVal
  200.     End_Function
  201.  
  202.     Function ComSetServiceProvider Variant llpspSet Returns Integer
  203.         Handle hDispatchDriver
  204.         Integer retVal
  205.         Get phDispatchDriver to hDispatchDriver
  206.         Send PrepareParams to hDispatchDriver 1
  207.         Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llpspSet
  208.         Get InvokeComMethod of hDispatchDriver 1610678273 OLE_VT_HRESULT to retVal
  209.         Function_Return retVal
  210.     End_Function
  211.  
  212.     Function ComSetIInputObjectSite Variant llpios Returns Integer
  213.         Handle hDispatchDriver
  214.         Integer retVal
  215.         Get phDispatchDriver to hDispatchDriver
  216.         Send PrepareParams to hDispatchDriver 1
  217.         Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llpios
  218.         Get InvokeComMethod of hDispatchDriver 1610678274 OLE_VT_HRESULT to retVal
  219.         Function_Return retVal
  220.     End_Function
  221.  
  222.     Function ComShowControl Returns Integer
  223.         Handle hDispatchDriver
  224.         Integer retVal
  225.         Get phDispatchDriver to hDispatchDriver
  226.         Get InvokeComMethod of hDispatchDriver 1610678275 OLE_VT_HRESULT to retVal
  227.         Function_Return retVal
  228.     End_Function
  229.  
  230.     Function ComHideControl Returns Integer
  231.         Handle hDispatchDriver
  232.         Integer retVal
  233.         Get phDispatchDriver to hDispatchDriver
  234.         Get InvokeComMethod of hDispatchDriver 1610678276 OLE_VT_HRESULT to retVal
  235.         Function_Return retVal
  236.     End_Function
  237.  
  238.     Function ComIsControlCreated Returns Integer
  239.         Handle hDispatchDriver
  240.         Integer retVal
  241.         Get phDispatchDriver to hDispatchDriver
  242.         Get InvokeComMethod of hDispatchDriver 1610678277 OLE_VT_HRESULT to retVal
  243.         Function_Return retVal
  244.     End_Function
  245.  
  246.     Function ComDestroyControl Returns Integer
  247.         Handle hDispatchDriver
  248.         Integer retVal
  249.         Get phDispatchDriver to hDispatchDriver
  250.         Get InvokeComMethod of hDispatchDriver 1610678278 OLE_VT_HRESULT to retVal
  251.         Function_Return retVal
  252.     End_Function
  253. End_Class
  254.  
  255. // _IDirectContainerEvents Interface
  256. Class cCom_IDirectContainerEvents is a Mixin
  257.  
  258.     Procedure RegisterComEvents
  259.     End_Procedure
  260. End_Class
  261.  
  262. // CoClass
  263. // ProgID: DirectFrame.DirectContainer.1
  264. // CLSID: {39A2C2A9-4778-11D2-9BDB-204C4F4F5020}
  265. // DirectContainer Class
  266. Class cComDirectContainer is a cComAutomationObject
  267.     Import_Class_Protocol cComIDirectContainer
  268.     Import_Class_Protocol cCom_IDirectContainerEvents
  269.  
  270.     Procedure Construct_Object
  271.         Forward Send Construct_Object
  272.         Set psProgID to "{39A2C2A9-4778-11D2-9BDB-204C4F4F5020}"
  273.         Set peAutoCreate to acNoAutoCreate
  274.     End_Procedure
  275. End_Class
  276.  
  277. // CLSID: {847B4DF4-4B61-11D2-9BDB-204C4F4F5020}
  278. // IRadioView Interface
  279. Class cComIRadioView is a Mixin
  280. End_Class
  281.  
  282. // _IRadioViewEvents Interface
  283. Class cCom_IRadioViewEvents is a Mixin
  284.  
  285.     Procedure RegisterComEvents
  286.     End_Procedure
  287. End_Class
  288.  
  289. // CoClass
  290. // ProgID: DirectFrame.RadioView.1
  291. // CLSID: {847B4DF5-4B61-11D2-9BDB-204C4F4F5020}
  292. // RadioView Class
  293. Class cComRadioView is a cComAutomationObject
  294.     Import_Class_Protocol cComIRadioView
  295.     Import_Class_Protocol cCom_IRadioViewEvents
  296.  
  297.     Procedure Construct_Object
  298.         Forward Send Construct_Object
  299.         Set psProgID to "{847B4DF5-4B61-11D2-9BDB-204C4F4F5020}"
  300.         Set peAutoCreate to acNoAutoCreate
  301.     End_Procedure
  302. End_Class
  303.  
  304. // CLSID: {20D4F5E0-5475-11D2-9774-0000F80855E6}
  305. // IMediaPlayer2 Interface
  306. Class cComIMediaPlayer2 is a Mixin
  307.  
  308.     // Returns or sets the current position in the file
  309.     Function ComCurrentPosition Returns Real
  310.         Handle hDispatchDriver
  311.         Real retVal
  312.         Get phDispatchDriver to hDispatchDriver
  313.         Get InvokeComMethod of hDispatchDriver 1027 OLE_VT_R8 to retVal
  314.         Function_Return retVal
  315.     End_Function
  316.  
  317.     // Returns or sets the current position in the file
  318.     Procedure Set ComCurrentPosition Real value
  319.         Handle hDispatchDriver
  320.         Get phDispatchDriver to hDispatchDriver
  321.         Send PrepareParams to hDispatchDriver 1
  322.         Set ComProperty of hDispatchDriver 1027 OLE_VT_R8 to value
  323.     End_Procedure
  324.  
  325.     // Returns the play duration of the file
  326.     Function ComDuration Returns Real
  327.         Handle hDispatchDriver
  328.         Real retVal
  329.         Get phDispatchDriver to hDispatchDriver
  330.         Get InvokeComMethod of hDispatchDriver 1003 OLE_VT_R8 to retVal
  331.         Function_Return retVal
  332.     End_Function
  333.  
  334.     // Returns the original width of the source images
  335.     Function ComImageSourceWidth Returns Integer
  336.         Handle hDispatchDriver
  337.         Integer retVal
  338.         Get phDispatchDriver to hDispatchDriver
  339.         Get InvokeComMethod of hDispatchDriver 1001 OLE_VT_I4 to retVal
  340.         Function_Return retVal
  341.     End_Function
  342.  
  343.     // Returns the original height of the source images
  344.     Function ComImageSourceHeight Returns Integer
  345.         Handle hDispatchDriver
  346.         Integer retVal
  347.         Get phDispatchDriver to hDispatchDriver
  348.         Get InvokeComMethod of hDispatchDriver 1002 OLE_VT_I4 to retVal
  349.         Function_Return retVal
  350.     End_Function
  351.  
  352.     // Returns the number of markers in the file
  353.     Function ComMarkerCount Returns Integer
  354.         Handle hDispatchDriver
  355.         Integer retVal
  356.         Get phDispatchDriver to hDispatchDriver
  357.         Get InvokeComMethod of hDispatchDriver 1010 OLE_VT_I4 to retVal
  358.         Function_Return retVal
  359.     End_Function
  360.  
  361.     // Returns whether or not the file can be fast forwarded or reversed
  362.     Function ComCanScan Returns Boolean
  363.         Handle hDispatchDriver
  364.         Boolean retVal
  365.         Get phDispatchDriver to hDispatchDriver
  366.         Get InvokeComMethod of hDispatchDriver 1011 OLE_VT_BOOL to retVal
  367.         Function_Return retVal
  368.     End_Function
  369.  
  370.     // Returns whether or not the file can be seeked into
  371.     Function ComCanSeek Returns Boolean
  372.         Handle hDispatchDriver
  373.         Boolean retVal
  374.         Get phDispatchDriver to hDispatchDriver
  375.         Get InvokeComMethod of hDispatchDriver 1012 OLE_VT_BOOL to retVal
  376.         Function_Return retVal
  377.     End_Function
  378.  
  379.     // Returns whether or not the file can be seeked into by markers
  380.     Function ComCanSeekToMarkers Returns Boolean
  381.         Handle hDispatchDriver
  382.         Boolean retVal
  383.         Get phDispatchDriver to hDispatchDriver
  384.         Get InvokeComMethod of hDispatchDriver 1047 OLE_VT_BOOL to retVal
  385.         Function_Return retVal
  386.     End_Function
  387.  
  388.     // Returns or sets the current marker number
  389.     Function ComCurrentMarker Returns Integer
  390.         Handle hDispatchDriver
  391.         Integer retVal
  392.         Get phDispatchDriver to hDispatchDriver
  393.         Get InvokeComMethod of hDispatchDriver 1029 OLE_VT_I4 to retVal
  394.         Function_Return retVal
  395.     End_Function
  396.  
  397.     // Returns or sets the current marker number
  398.     Procedure Set ComCurrentMarker Integer value
  399.         Handle hDispatchDriver
  400.         Get phDispatchDriver to hDispatchDriver
  401.         Send PrepareParams to hDispatchDriver 1
  402.         Set ComProperty of hDispatchDriver 1029 OLE_VT_I4 to value
  403.     End_Procedure
  404.  
  405.     // Returns or sets the current file name and path
  406.     Function ComFileName Returns String
  407.         Handle hDispatchDriver
  408.         String retVal
  409.         Get phDispatchDriver to hDispatchDriver
  410.         Get InvokeComMethod of hDispatchDriver 1026 OLE_VT_BSTR to retVal
  411.         Function_Return retVal
  412.     End_Function
  413.  
  414.     // Returns or sets the current file name and path
  415.     Procedure Set ComFileName String value
  416.         Handle hDispatchDriver
  417.         Get phDispatchDriver to hDispatchDriver
  418.         Send PrepareParams to hDispatchDriver 1
  419.         Set ComProperty of hDispatchDriver 1026 OLE_VT_BSTR to value
  420.     End_Procedure
  421.  
  422.     // Returns the source path of the file
  423.     Function ComSourceLink Returns String
  424.         Handle hDispatchDriver
  425.         String retVal
  426.         Get phDispatchDriver to hDispatchDriver
  427.         Get InvokeComMethod of hDispatchDriver 1009 OLE_VT_BSTR to retVal
  428.         Function_Return retVal
  429.     End_Function
  430.  
  431.     // Returns the creation date of the file
  432.     Function ComCreationDate Returns DateTime
  433.         Handle hDispatchDriver
  434.         DateTime retVal
  435.         Get phDispatchDriver to hDispatchDriver
  436.         Get InvokeComMethod of hDispatchDriver 1036 OLE_VT_DATE to retVal
  437.         Function_Return retVal
  438.     End_Function
  439.  
  440.     // Returns the error correction type of the file
  441.     Function ComErrorCorrection Returns String
  442.         Handle hDispatchDriver
  443.         String retVal
  444.         Get phDispatchDriver to hDispatchDriver
  445.         Get InvokeComMethod of hDispatchDriver 1038 OLE_VT_BSTR to retVal
  446.         Function_Return retVal
  447.     End_Function
  448.  
  449.     // Returns the bandwidth of the file in bits per second
  450.     Function ComBandwidth Returns Integer
  451.         Handle hDispatchDriver
  452.         Integer retVal
  453.         Get phDispatchDriver to hDispatchDriver
  454.         Get InvokeComMethod of hDispatchDriver 1037 OLE_VT_I4 to retVal
  455.         Function_Return retVal
  456.     End_Function
  457.  
  458.     // Returns the protocol used to receive data
  459.     Function ComSourceProtocol Returns Integer
  460.         Handle hDispatchDriver
  461.         Integer retVal
  462.         Get phDispatchDriver to hDispatchDriver
  463.         Get InvokeComMethod of hDispatchDriver 1060 OLE_VT_I4 to retVal
  464.         Function_Return retVal
  465.     End_Function
  466.  
  467.     // Returns the number of packets received
  468.     Function ComReceivedPackets Returns Integer
  469.         Handle hDispatchDriver
  470.         Integer retVal
  471.         Get phDispatchDriver to hDispatchDriver
  472.         Get InvokeComMethod of hDispatchDriver 1039 OLE_VT_I4 to retVal
  473.         Function_Return retVal
  474.     End_Function
  475.  
  476.     // Returns the number of packets recovered
  477.     Function ComRecoveredPackets Returns Integer
  478.         Handle hDispatchDriver
  479.         Integer retVal
  480.         Get phDispatchDriver to hDispatchDriver
  481.         Get InvokeComMethod of hDispatchDriver 1040 OLE_VT_I4 to retVal
  482.         Function_Return retVal
  483.     End_Function
  484.  
  485.     // Returns the number of packets lost
  486.     Function ComLostPackets Returns Integer
  487.         Handle hDispatchDriver
  488.         Integer retVal
  489.         Get phDispatchDriver to hDispatchDriver
  490.         Get InvokeComMethod of hDispatchDriver 1041 OLE_VT_I4 to retVal
  491.         Function_Return retVal
  492.     End_Function
  493.  
  494.     // Returns the percentage of packets received in the last 30 seconds
  495.     Function ComReceptionQuality Returns Integer
  496.         Handle hDispatchDriver
  497.         Integer retVal
  498.         Get phDispatchDriver to hDispatchDriver
  499.         Get InvokeComMethod of hDispatchDriver 1042 OLE_VT_I4 to retVal
  500.         Function_Return retVal
  501.     End_Function
  502.  
  503.     // Returns the number of times buffering occurred during playback
  504.     Function ComBufferingCount Returns Integer
  505.         Handle hDispatchDriver
  506.         Integer retVal
  507.         Get phDispatchDriver to hDispatchDriver
  508.         Get InvokeComMethod of hDispatchDriver 1043 OLE_VT_I4 to retVal
  509.         Function_Return retVal
  510.     End_Function
  511.  
  512.     // Returns whether or not the source is a broadcast
  513.     Function ComIsBroadcast Returns Boolean
  514.         Handle hDispatchDriver
  515.         Boolean retVal
  516.         Get phDispatchDriver to hDispatchDriver
  517.         Get InvokeComMethod of hDispatchDriver 1058 OLE_VT_BOOL to retVal
  518.         Function_Return retVal
  519.     End_Function
  520.  
  521.     // Returns the percentage of buffering completed
  522.     Function ComBufferingProgress Returns Integer
  523.         Handle hDispatchDriver
  524.         Integer retVal
  525.         Get phDispatchDriver to hDispatchDriver
  526.         Get InvokeComMethod of hDispatchDriver 1080 OLE_VT_I4 to retVal
  527.         Function_Return retVal
  528.     End_Function
  529.  
  530.     // Returns the name of the station
  531.     Function ComChannelName Returns String
  532.         Handle hDispatchDriver
  533.         String retVal
  534.         Get phDispatchDriver to hDispatchDriver
  535.         Get InvokeComMethod of hDispatchDriver 1050 OLE_VT_BSTR to retVal
  536.         Function_Return retVal
  537.     End_Function
  538.  
  539.     // Returns the description of the station
  540.     Function ComChannelDescription Returns String
  541.         Handle hDispatchDriver
  542.         String retVal
  543.         Get phDispatchDriver to hDispatchDriver
  544.         Get InvokeComMethod of hDispatchDriver 1051 OLE_VT_BSTR to retVal
  545.         Function_Return retVal
  546.     End_Function
  547.  
  548.     // Returns the location of the station metafile
  549.     Function ComChannelURL Returns String
  550.         Handle hDispatchDriver
  551.         String retVal
  552.         Get phDispatchDriver to hDispatchDriver
  553.         Get InvokeComMethod of hDispatchDriver 1052 OLE_VT_BSTR to retVal
  554.         Function_Return retVal
  555.     End_Function
  556.  
  557.     // Returns the contact address of the station
  558.     Function ComContactAddress Returns String
  559.         Handle hDispatchDriver
  560.         String retVal
  561.         Get phDispatchDriver to hDispatchDriver
  562.         Get InvokeComMethod of hDispatchDriver 1053 OLE_VT_BSTR to retVal
  563.         Function_Return retVal
  564.     End_Function
  565.  
  566.     // Returns the contact phone number of the station
  567.     Function ComContactPhone Returns String
  568.         Handle hDispatchDriver
  569.         String retVal
  570.         Get phDispatchDriver to hDispatchDriver
  571.         Get InvokeComMethod of hDispatchDriver 1054 OLE_VT_BSTR to retVal
  572.         Function_Return retVal
  573.     End_Function
  574.  
  575.     // Returns the contact e-mail address of the station
  576.     Function ComContactEmail Returns String
  577.         Handle hDispatchDriver
  578.         String retVal
  579.         Get phDispatchDriver to hDispatchDriver
  580.         Get InvokeComMethod of hDispatchDriver 1055 OLE_VT_BSTR to retVal
  581.         Function_Return retVal
  582.     End_Function
  583.  
  584.     // Returns the control's buffering time
  585.     Function ComBufferingTime Returns Real
  586.         Handle hDispatchDriver
  587.         Real retVal
  588.         Get phDispatchDriver to hDispatchDriver
  589.         Get InvokeComMethod of hDispatchDriver 1070 OLE_VT_R8 to retVal
  590.         Function_Return retVal
  591.     End_Function
  592.  
  593.     // Returns the control's buffering time
  594.     Procedure Set ComBufferingTime Real value
  595.         Handle hDispatchDriver
  596.         Get phDispatchDriver to hDispatchDriver
  597.         Send PrepareParams to hDispatchDriver 1
  598.         Set ComProperty of hDispatchDriver 1070 OLE_VT_R8 to value
  599.     End_Procedure
  600.  
  601.     // Returns or sets whether or not file playback is automatically started
  602.     Function ComAutoStart Returns Boolean
  603.         Handle hDispatchDriver
  604.         Boolean retVal
  605.         Get phDispatchDriver to hDispatchDriver
  606.         Get InvokeComMethod of hDispatchDriver 1017 OLE_VT_BOOL to retVal
  607.         Function_Return retVal
  608.     End_Function
  609.  
  610.     // Returns or sets whether or not file playback is automatically started
  611.     Procedure Set ComAutoStart Boolean value
  612.         Handle hDispatchDriver
  613.         Get phDispatchDriver to hDispatchDriver
  614.         Send PrepareParams to hDispatchDriver 1
  615.         Set ComProperty of hDispatchDriver 1017 OLE_VT_BOOL to value
  616.     End_Procedure
  617.  
  618.     // Returns or sets whether or not a file is rewound at the end of playback
  619.     Function ComAutoRewind Returns Boolean
  620.         Handle hDispatchDriver
  621.         Boolean retVal
  622.         Get phDispatchDriver to hDispatchDriver
  623.         Get InvokeComMethod of hDispatchDriver 1018 OLE_VT_BOOL to retVal
  624.         Function_Return retVal
  625.     End_Function
  626.  
  627.     // Returns or sets whether or not a file is rewound at the end of playback
  628.     Procedure Set ComAutoRewind Boolean value
  629.         Handle hDispatchDriver
  630.         Get phDispatchDriver to hDispatchDriver
  631.         Send PrepareParams to hDispatchDriver 1
  632.         Set ComProperty of hDispatchDriver 1018 OLE_VT_BOOL to value
  633.     End_Procedure
  634.  
  635.     // Returns or sets the current playback rate
  636.     Function ComRate Returns Real
  637.         Handle hDispatchDriver
  638.         Real retVal
  639.         Get phDispatchDriver to hDispatchDriver
  640.         Get InvokeComMethod of hDispatchDriver 1028 OLE_VT_R8 to retVal
  641.         Function_Return retVal
  642.     End_Function
  643.  
  644.     // Returns or sets the current playback rate
  645.     Procedure Set ComRate Real value
  646.         Handle hDispatchDriver
  647.         Get phDispatchDriver to hDispatchDriver
  648.         Send PrepareParams to hDispatchDriver 1
  649.         Set ComProperty of hDispatchDriver 1028 OLE_VT_R8 to value
  650.     End_Procedure
  651.  
  652.     // Returns or sets whether or not the control sends keyboard events
  653.     Function ComSendKeyboardEvents Returns Boolean
  654.         Handle hDispatchDriver
  655.         Boolean retVal
  656.         Get phDispatchDriver to hDispatchDriver
  657.         Get InvokeComMethod of hDispatchDriver 1013 OLE_VT_BOOL to retVal
  658.         Function_Return retVal
  659.     End_Function
  660.  
  661.     // Returns or sets whether or not the control sends keyboard events
  662.     Procedure Set ComSendKeyboardEvents Boolean value
  663.         Handle hDispatchDriver
  664.         Get phDispatchDriver to hDispatchDriver
  665.         Send PrepareParams to hDispatchDriver 1
  666.         Set ComProperty of hDispatchDriver 1013 OLE_VT_BOOL to value
  667.     End_Procedure
  668.  
  669.     // Returns or sets whether or not the control sends mouse click events
  670.     Function ComSendMouseClickEvents Returns Boolean
  671.         Handle hDispatchDriver
  672.         Boolean retVal
  673.         Get phDispatchDriver to hDispatchDriver
  674.         Get InvokeComMethod of hDispatchDriver 1014 OLE_VT_BOOL to retVal
  675.         Function_Return retVal
  676.     End_Function
  677.  
  678.     // Returns or sets whether or not the control sends mouse click events
  679.     Procedure Set ComSendMouseClickEvents Boolean value
  680.         Handle hDispatchDriver
  681.         Get phDispatchDriver to hDispatchDriver
  682.         Send PrepareParams to hDispatchDriver 1
  683.         Set ComProperty of hDispatchDriver 1014 OLE_VT_BOOL to value
  684.     End_Procedure
  685.  
  686.     // Returns or sets whether or not the control sends mouse move events
  687.     Function ComSendMouseMoveEvents Returns Boolean
  688.         Handle hDispatchDriver
  689.         Boolean retVal
  690.         Get phDispatchDriver to hDispatchDriver
  691.         Get InvokeComMethod of hDispatchDriver 1015 OLE_VT_BOOL to retVal
  692.         Function_Return retVal
  693.     End_Function
  694.  
  695.     // Returns or sets whether or not the control sends mouse move events
  696.     Procedure Set ComSendMouseMoveEvents Boolean value
  697.         Handle hDispatchDriver
  698.         Get phDispatchDriver to hDispatchDriver
  699.         Send PrepareParams to hDispatchDriver 1
  700.         Set ComProperty of hDispatchDriver 1015 OLE_VT_BOOL to value
  701.     End_Procedure
  702.  
  703.     // Returns or sets the number of times a file plays
  704.     Function ComPlayCount Returns Integer
  705.         Handle hDispatchDriver
  706.         Integer retVal
  707.         Get phDispatchDriver to hDispatchDriver
  708.         Get InvokeComMethod of hDispatchDriver 1030 OLE_VT_I4 to retVal
  709.         Function_Return retVal
  710.     End_Function
  711.  
  712.     // Returns or sets the number of times a file plays
  713.     Procedure Set ComPlayCount Integer value
  714.         Handle hDispatchDriver
  715.         Get phDispatchDriver to hDispatchDriver
  716.         Send PrepareParams to hDispatchDriver 1
  717.         Set ComProperty of hDispatchDriver 1030 OLE_VT_I4 to value
  718.     End_Procedure
  719.  
  720.     // Returns or sets whether or not clicking on the control starts file playback
  721.     Function ComClickToPlay Returns Boolean
  722.         Handle hDispatchDriver
  723.         Boolean retVal
  724.         Get phDispatchDriver to hDispatchDriver
  725.         Get InvokeComMethod of hDispatchDriver 1025 OLE_VT_BOOL to retVal
  726.         Function_Return retVal
  727.     End_Function
  728.  
  729.     // Returns or sets whether or not clicking on the control starts file playback
  730.     Procedure Set ComClickToPlay Boolean value
  731.         Handle hDispatchDriver
  732.         Get phDispatchDriver to hDispatchDriver
  733.         Send PrepareParams to hDispatchDriver 1
  734.         Set ComProperty of hDispatchDriver 1025 OLE_VT_BOOL to value
  735.     End_Procedure
  736.  
  737.     // Returns or sets whether or not scanning is enabled on files that support it
  738.     Function ComAllowScan Returns Boolean
  739.         Handle hDispatchDriver
  740.         Boolean retVal
  741.         Get phDispatchDriver to hDispatchDriver
  742.         Get InvokeComMethod of hDispatchDriver 1035 OLE_VT_BOOL to retVal
  743.         Function_Return retVal
  744.     End_Function
  745.  
  746.     // Returns or sets whether or not scanning is enabled on files that support it
  747.     Procedure Set ComAllowScan Boolean value
  748.         Handle hDispatchDriver
  749.         Get phDispatchDriver to hDispatchDriver
  750.         Send PrepareParams to hDispatchDriver 1
  751.         Set ComProperty of hDispatchDriver 1035 OLE_VT_BOOL to value
  752.     End_Procedure
  753.  
  754.     // Returns or sets whether or not a right mouse click invokes a context menu
  755.     Function ComEnableContextMenu Returns Boolean
  756.         Handle hDispatchDriver
  757.         Boolean retVal
  758.         Get phDispatchDriver to hDispatchDriver
  759.         Get InvokeComMethod of hDispatchDriver 1021 OLE_VT_BOOL to retVal
  760.         Function_Return retVal
  761.     End_Function
  762.  
  763.     // Returns or sets whether or not a right mouse click invokes a context menu
  764.     Procedure Set ComEnableContextMenu Boolean value
  765.         Handle hDispatchDriver
  766.         Get phDispatchDriver to hDispatchDriver
  767.         Send PrepareParams to hDispatchDriver 1
  768.         Set ComProperty of hDispatchDriver 1021 OLE_VT_BOOL to value
  769.     End_Procedure
  770.  
  771.     // Returns or sets the cursor type
  772.     Function ComCursorType Returns Integer
  773.         Handle hDispatchDriver
  774.         Integer retVal
  775.         Get phDispatchDriver to hDispatchDriver
  776.         Get InvokeComMethod of hDispatchDriver 1044 OLE_VT_I4 to retVal
  777.         Function_Return retVal
  778.     End_Function
  779.  
  780.     // Returns or sets the cursor type
  781.     Procedure Set ComCursorType Integer value
  782.         Handle hDispatchDriver
  783.         Get phDispatchDriver to hDispatchDriver
  784.         Send PrepareParams to hDispatchDriver 1
  785.         Set ComProperty of hDispatchDriver 1044 OLE_VT_I4 to value
  786.     End_Procedure
  787.  
  788.     // Returns the number of installable codecs used by the file
  789.     Function ComCodecCount Returns Integer
  790.         Handle hDispatchDriver
  791.         Integer retVal
  792.         Get phDispatchDriver to hDispatchDriver
  793.         Get InvokeComMethod of hDispatchDriver 1057 OLE_VT_I4 to retVal
  794.         Function_Return retVal
  795.     End_Function
  796.  
  797.     // Returns or sets whether or not the display size can be set at run time
  798.     Function ComAllowChangeDisplaySize Returns Boolean
  799.         Handle hDispatchDriver
  800.         Boolean retVal
  801.         Get phDispatchDriver to hDispatchDriver
  802.         Get InvokeComMethod of hDispatchDriver 1056 OLE_VT_BOOL to retVal
  803.         Function_Return retVal
  804.     End_Function
  805.  
  806.     // Returns or sets whether or not the display size can be set at run time
  807.     Procedure Set ComAllowChangeDisplaySize Boolean value
  808.         Handle hDispatchDriver
  809.         Get phDispatchDriver to hDispatchDriver
  810.         Send PrepareParams to hDispatchDriver 1
  811.         Set ComProperty of hDispatchDriver 1056 OLE_VT_BOOL to value
  812.     End_Procedure
  813.  
  814.     // Returns whether or not the duration is known
  815.     Function ComIsDurationValid Returns Boolean
  816.         Handle hDispatchDriver
  817.         Boolean retVal
  818.         Get phDispatchDriver to hDispatchDriver
  819.         Get InvokeComMethod of hDispatchDriver 1059 OLE_VT_BOOL to retVal
  820.         Function_Return retVal
  821.     End_Function
  822.  
  823.     // Returns the open state of the control
  824.     Function ComOpenState Returns Integer
  825.         Handle hDispatchDriver
  826.         Integer retVal
  827.         Get phDispatchDriver to hDispatchDriver
  828.         Get InvokeComMethod of hDispatchDriver 1061 OLE_VT_I4 to retVal
  829.         Function_Return retVal
  830.     End_Function
  831.  
  832.     // Returns or sets whether or not the control sends OpenStateChange events
  833.     Function ComSendOpenStateChangeEvents Returns Boolean
  834.         Handle hDispatchDriver
  835.         Boolean retVal
  836.         Get phDispatchDriver to hDispatchDriver
  837.         Get InvokeComMethod of hDispatchDriver 1062 OLE_VT_BOOL to retVal
  838.         Function_Return retVal
  839.     End_Function
  840.  
  841.     // Returns or sets whether or not the control sends OpenStateChange events
  842.     Procedure Set ComSendOpenStateChangeEvents Boolean value
  843.         Handle hDispatchDriver
  844.         Get phDispatchDriver to hDispatchDriver
  845.         Send PrepareParams to hDispatchDriver 1
  846.         Set ComProperty of hDispatchDriver 1062 OLE_VT_BOOL to value
  847.     End_Procedure
  848.  
  849.     // Returns or sets whether or not the control sends Warning events
  850.     Function ComSendWarningEvents Returns Boolean
  851.         Handle hDispatchDriver
  852.         Boolean retVal
  853.         Get phDispatchDriver to hDispatchDriver
  854.         Get InvokeComMethod of hDispatchDriver 1063 OLE_VT_BOOL to retVal
  855.         Function_Return retVal
  856.     End_Function
  857.  
  858.     // Returns or sets whether or not the control sends Warning events
  859.     Procedure Set ComSendWarningEvents Boolean value
  860.         Handle hDispatchDriver
  861.         Get phDispatchDriver to hDispatchDriver
  862.         Send PrepareParams to hDispatchDriver 1
  863.         Set ComProperty of hDispatchDriver 1063 OLE_VT_BOOL to value
  864.     End_Procedure
  865.  
  866.     // Returns or sets whether or not the control sends Error events
  867.     Function ComSendErrorEvents Returns Boolean
  868.         Handle hDispatchDriver
  869.         Boolean retVal
  870.         Get phDispatchDriver to hDispatchDriver
  871.         Get InvokeComMethod of hDispatchDriver 1064 OLE_VT_BOOL to retVal
  872.         Function_Return retVal
  873.     End_Function
  874.  
  875.     // Returns or sets whether or not the control sends Error events
  876.     Procedure Set ComSendErrorEvents Boolean value
  877.         Handle hDispatchDriver
  878.         Get phDispatchDriver to hDispatchDriver
  879.         Send PrepareParams to hDispatchDriver 1
  880.         Set ComProperty of hDispatchDriver 1064 OLE_VT_BOOL to value
  881.     End_Procedure
  882.  
  883.     // Returns the play state of the control
  884.     Function ComPlayState Returns OLEMPPlayStateConstants
  885.         Handle hDispatchDriver
  886.         OLEMPPlayStateConstants retVal
  887.         Get phDispatchDriver to hDispatchDriver
  888.         Get InvokeComMethod of hDispatchDriver 1068 OLE_VT_I4 to retVal
  889.         Function_Return retVal
  890.     End_Function
  891.  
  892.     // Returns or sets whether or not the control sends PlayStateChange events
  893.     Function ComSendPlayStateChangeEvents Returns Boolean
  894.         Handle hDispatchDriver
  895.         Boolean retVal
  896.         Get phDispatchDriver to hDispatchDriver
  897.         Get InvokeComMethod of hDispatchDriver 1069 OLE_VT_BOOL to retVal
  898.         Function_Return retVal
  899.     End_Function
  900.  
  901.     // Returns or sets whether or not the control sends PlayStateChange events
  902.     Procedure Set ComSendPlayStateChangeEvents Boolean value
  903.         Handle hDispatchDriver
  904.         Get phDispatchDriver to hDispatchDriver
  905.         Send PrepareParams to hDispatchDriver 1
  906.         Set ComProperty of hDispatchDriver 1069 OLE_VT_BOOL to value
  907.     End_Procedure
  908.  
  909.     // Returns or sets the display size of images
  910.     Function ComDisplaySize Returns OLEMPDisplaySizeConstants
  911.         Handle hDispatchDriver
  912.         OLEMPDisplaySizeConstants retVal
  913.         Get phDispatchDriver to hDispatchDriver
  914.         Get InvokeComMethod of hDispatchDriver 1032 OLE_VT_I4 to retVal
  915.         Function_Return retVal
  916.     End_Function
  917.  
  918.     // Returns or sets the display size of images
  919.     Procedure Set ComDisplaySize OLEMPDisplaySizeConstants value
  920.         Handle hDispatchDriver
  921.         Get phDispatchDriver to hDispatchDriver
  922.         Send PrepareParams to hDispatchDriver 1
  923.         Set ComProperty of hDispatchDriver 1032 OLE_VT_I4 to value
  924.     End_Procedure
  925.  
  926.     // Returns or sets whether or not received URLs are automatically invoked
  927.     Function ComInvokeURLs Returns Boolean
  928.         Handle hDispatchDriver
  929.         Boolean retVal
  930.         Get phDispatchDriver to hDispatchDriver
  931.         Get InvokeComMethod of hDispatchDriver 1020 OLE_VT_BOOL to retVal
  932.         Function_Return retVal
  933.     End_Function
  934.  
  935.     // Returns or sets whether or not received URLs are automatically invoked
  936.     Procedure Set ComInvokeURLs Boolean value
  937.         Handle hDispatchDriver
  938.         Get phDispatchDriver to hDispatchDriver
  939.         Send PrepareParams to hDispatchDriver 1
  940.         Set ComProperty of hDispatchDriver 1020 OLE_VT_BOOL to value
  941.     End_Procedure
  942.  
  943.     // Returns or sets the control's base HTTP URL
  944.     Function ComBaseURL Returns String
  945.         Handle hDispatchDriver
  946.         String retVal
  947.         Get phDispatchDriver to hDispatchDriver
  948.         Get InvokeComMethod of hDispatchDriver 1082 OLE_VT_BSTR to retVal
  949.         Function_Return retVal
  950.     End_Function
  951.  
  952.     // Returns or sets the control's base HTTP URL
  953.     Procedure Set ComBaseURL String value
  954.         Handle hDispatchDriver
  955.         Get phDispatchDriver to hDispatchDriver
  956.         Send PrepareParams to hDispatchDriver 1
  957.         Set ComProperty of hDispatchDriver 1082 OLE_VT_BSTR to value
  958.     End_Procedure
  959.  
  960.     // Returns or sets the control's default target HTTP frame
  961.     Function ComDefaultFrame Returns String
  962.         Handle hDispatchDriver
  963.         String retVal
  964.         Get phDispatchDriver to hDispatchDriver
  965.         Get InvokeComMethod of hDispatchDriver 1083 OLE_VT_BSTR to retVal
  966.         Function_Return retVal
  967.     End_Function
  968.  
  969.     // Returns or sets the control's default target HTTP frame
  970.     Procedure Set ComDefaultFrame String value
  971.         Handle hDispatchDriver
  972.         Get phDispatchDriver to hDispatchDriver
  973.         Send PrepareParams to hDispatchDriver 1
  974.         Set ComProperty of hDispatchDriver 1083 OLE_VT_BSTR to value
  975.     End_Procedure
  976.  
  977.     // Returns whether or not the control currently has an error
  978.     Function ComHasError Returns Boolean
  979.         Handle hDispatchDriver
  980.         Boolean retVal
  981.         Get phDispatchDriver to hDispatchDriver
  982.         Get InvokeComMethod of hDispatchDriver 1065 OLE_VT_BOOL to retVal
  983.         Function_Return retVal
  984.     End_Function
  985.  
  986.     // Returns the description of the current error state
  987.     Function ComErrorDescription Returns String
  988.         Handle hDispatchDriver
  989.         String retVal
  990.         Get phDispatchDriver to hDispatchDriver
  991.         Get InvokeComMethod of hDispatchDriver 1066 OLE_VT_BSTR to retVal
  992.         Function_Return retVal
  993.     End_Function
  994.  
  995.     // Returns the current error code
  996.     Function ComErrorCode Returns Integer
  997.         Handle hDispatchDriver
  998.         Integer retVal
  999.         Get phDispatchDriver to hDispatchDriver
  1000.         Get InvokeComMethod of hDispatchDriver 1067 OLE_VT_I4 to retVal
  1001.         Function_Return retVal
  1002.     End_Function
  1003.  
  1004.     // Returns or sets whether or not the control shows its animation during initial file buffering
  1005.     Function ComAnimationAtStart Returns Boolean
  1006.         Handle hDispatchDriver
  1007.         Boolean retVal
  1008.         Get phDispatchDriver to hDispatchDriver
  1009.         Get InvokeComMethod of hDispatchDriver 1045 OLE_VT_BOOL to retVal
  1010.         Function_Return retVal
  1011.     End_Function
  1012.  
  1013.     // Returns or sets whether or not the control shows its animation during initial file buffering
  1014.     Procedure Set ComAnimationAtStart Boolean value
  1015.         Handle hDispatchDriver
  1016.         Get phDispatchDriver to hDispatchDriver
  1017.         Send PrepareParams to hDispatchDriver 1
  1018.         Set ComProperty of hDispatchDriver 1045 OLE_VT_BOOL to value
  1019.     End_Procedure
  1020.  
  1021.     // Returns or sets whether or not the control is transparent before playing
  1022.     Function ComTransparentAtStart Returns Boolean
  1023.         Handle hDispatchDriver
  1024.         Boolean retVal
  1025.         Get phDispatchDriver to hDispatchDriver
  1026.         Get InvokeComMethod of hDispatchDriver 1022 OLE_VT_BOOL to retVal
  1027.         Function_Return retVal
  1028.     End_Function
  1029.  
  1030.     // Returns or sets whether or not the control is transparent before playing
  1031.     Procedure Set ComTransparentAtStart Boolean value
  1032.         Handle hDispatchDriver
  1033.         Get phDispatchDriver to hDispatchDriver
  1034.         Send PrepareParams to hDispatchDriver 1
  1035.         Set ComProperty of hDispatchDriver 1022 OLE_VT_BOOL to value
  1036.     End_Procedure
  1037.  
  1038.     // Returns or sets the current volume of the stream
  1039.     Function ComVolume Returns Integer
  1040.         Handle hDispatchDriver
  1041.         Integer retVal
  1042.         Get phDispatchDriver to hDispatchDriver
  1043.         Get InvokeComMethod of hDispatchDriver 19 OLE_VT_I4 to retVal
  1044.         Function_Return retVal
  1045.     End_Function
  1046.  
  1047.     // Returns or sets the current volume of the stream
  1048.     Procedure Set ComVolume Integer value
  1049.         Handle hDispatchDriver
  1050.         Get phDispatchDriver to hDispatchDriver
  1051.         Send PrepareParams to hDispatchDriver 1
  1052.         Set ComProperty of hDispatchDriver 19 OLE_VT_I4 to value
  1053.     End_Procedure
  1054.  
  1055.     // Returns or sets the current balance of the stream
  1056.     Function ComBalance Returns Integer
  1057.         Handle hDispatchDriver
  1058.         Integer retVal
  1059.         Get phDispatchDriver to hDispatchDriver
  1060.         Get InvokeComMethod of hDispatchDriver 20 OLE_VT_I4 to retVal
  1061.         Function_Return retVal
  1062.     End_Function
  1063.  
  1064.     // Returns or sets the current balance of the stream
  1065.     Procedure Set ComBalance Integer value
  1066.         Handle hDispatchDriver
  1067.         Get phDispatchDriver to hDispatchDriver
  1068.         Send PrepareParams to hDispatchDriver 1
  1069.         Set ComProperty of hDispatchDriver 20 OLE_VT_I4 to value
  1070.     End_Procedure
  1071.  
  1072.     // Returns the readiness state of the control
  1073.     Function ComReadyState Returns OLEMPReadyStateConstants
  1074.         Handle hDispatchDriver
  1075.         OLEMPReadyStateConstants retVal
  1076.         Get phDispatchDriver to hDispatchDriver
  1077.         Get InvokeComMethod of hDispatchDriver -525 OLE_VT_I4 to retVal
  1078.         Function_Return retVal
  1079.     End_Function
  1080.  
  1081.     // Returns or sets the position where playback will begin
  1082.     Function ComSelectionStart Returns Real
  1083.         Handle hDispatchDriver
  1084.         Real retVal
  1085.         Get phDispatchDriver to hDispatchDriver
  1086.         Get InvokeComMethod of hDispatchDriver 15 OLE_VT_R8 to retVal
  1087.         Function_Return retVal
  1088.     End_Function
  1089.  
  1090.     // Returns or sets the position where playback will begin
  1091.     Procedure Set ComSelectionStart Real value
  1092.         Handle hDispatchDriver
  1093.         Get phDispatchDriver to hDispatchDriver
  1094.         Send PrepareParams to hDispatchDriver 1
  1095.         Set ComProperty of hDispatchDriver 15 OLE_VT_R8 to value
  1096.     End_Procedure
  1097.  
  1098.     // Returns or sets the position where playback will stop
  1099.     Function ComSelectionEnd Returns Real
  1100.         Handle hDispatchDriver
  1101.         Real retVal
  1102.         Get phDispatchDriver to hDispatchDriver
  1103.         Get InvokeComMethod of hDispatchDriver 16 OLE_VT_R8 to retVal
  1104.         Function_Return retVal
  1105.     End_Function
  1106.  
  1107.     // Returns or sets the position where playback will stop
  1108.     Procedure Set ComSelectionEnd Real value
  1109.         Handle hDispatchDriver
  1110.         Get phDispatchDriver to hDispatchDriver
  1111.         Send PrepareParams to hDispatchDriver 1
  1112.         Set ComProperty of hDispatchDriver 16 OLE_VT_R8 to value
  1113.     End_Procedure
  1114.  
  1115.     // Shows or hides the display panel
  1116.     Function ComShowDisplay Returns Boolean
  1117.         Handle hDispatchDriver
  1118.         Boolean retVal
  1119.         Get phDispatchDriver to hDispatchDriver
  1120.         Get InvokeComMethod of hDispatchDriver 22 OLE_VT_BOOL to retVal
  1121.         Function_Return retVal
  1122.     End_Function
  1123.  
  1124.     // Shows or hides the display panel
  1125.     Procedure Set ComShowDisplay Boolean value
  1126.         Handle hDispatchDriver
  1127.         Get phDispatchDriver to hDispatchDriver
  1128.         Send PrepareParams to hDispatchDriver 1
  1129.         Set ComProperty of hDispatchDriver 22 OLE_VT_BOOL to value
  1130.     End_Procedure
  1131.  
  1132.     // Shows or hides the control panel
  1133.     Function ComShowControls Returns Boolean
  1134.         Handle hDispatchDriver
  1135.         Boolean retVal
  1136.         Get phDispatchDriver to hDispatchDriver
  1137.         Get InvokeComMethod of hDispatchDriver 23 OLE_VT_BOOL to retVal
  1138.         Function_Return retVal
  1139.     End_Function
  1140.  
  1141.     // Shows or hides the control panel
  1142.     Procedure Set ComShowControls Boolean value
  1143.         Handle hDispatchDriver
  1144.         Get phDispatchDriver to hDispatchDriver
  1145.         Send PrepareParams to hDispatchDriver 1
  1146.         Set ComProperty of hDispatchDriver 23 OLE_VT_BOOL to value
  1147.     End_Procedure
  1148.  
  1149.     // Shows or hides the position buttons in the control panel
  1150.     Function ComShowPositionControls Returns Boolean
  1151.         Handle hDispatchDriver
  1152.         Boolean retVal
  1153.         Get phDispatchDriver to hDispatchDriver
  1154.         Get InvokeComMethod of hDispatchDriver 24 OLE_VT_BOOL to retVal
  1155.         Function_Return retVal
  1156.     End_Function
  1157.  
  1158.     // Shows or hides the position buttons in the control panel
  1159.     Procedure Set ComShowPositionControls Boolean value
  1160.         Handle hDispatchDriver
  1161.         Get phDispatchDriver to hDispatchDriver
  1162.         Send PrepareParams to hDispatchDriver 1
  1163.         Set ComProperty of hDispatchDriver 24 OLE_VT_BOOL to value
  1164.     End_Procedure
  1165.  
  1166.     // Shows or hides the tracker bar in the control panel
  1167.     Function ComShowTracker Returns Boolean
  1168.         Handle hDispatchDriver
  1169.         Boolean retVal
  1170.         Get phDispatchDriver to hDispatchDriver
  1171.         Get InvokeComMethod of hDispatchDriver 26 OLE_VT_BOOL to retVal
  1172.         Function_Return retVal
  1173.     End_Function
  1174.  
  1175.     // Shows or hides the tracker bar in the control panel
  1176.     Procedure Set ComShowTracker Boolean value
  1177.         Handle hDispatchDriver
  1178.         Get phDispatchDriver to hDispatchDriver
  1179.         Send PrepareParams to hDispatchDriver 1
  1180.         Set ComProperty of hDispatchDriver 26 OLE_VT_BOOL to value
  1181.     End_Procedure
  1182.  
  1183.     // Enables or disables the position buttons in the control panel
  1184.     Function ComEnablePositionControls Returns Boolean
  1185.         Handle hDispatchDriver
  1186.         Boolean retVal
  1187.         Get phDispatchDriver to hDispatchDriver
  1188.         Get InvokeComMethod of hDispatchDriver 27 OLE_VT_BOOL to retVal
  1189.         Function_Return retVal
  1190.     End_Function
  1191.  
  1192.     // Enables or disables the position buttons in the control panel
  1193.     Procedure Set ComEnablePositionControls Boolean value
  1194.         Handle hDispatchDriver
  1195.         Get phDispatchDriver to hDispatchDriver
  1196.         Send PrepareParams to hDispatchDriver 1
  1197.         Set ComProperty of hDispatchDriver 27 OLE_VT_BOOL to value
  1198.     End_Procedure
  1199.  
  1200.     // Enables or disables the tracker bar in the control panel
  1201.     Function ComEnableTracker Returns Boolean
  1202.         Handle hDispatchDriver
  1203.         Boolean retVal
  1204.         Get phDispatchDriver to hDispatchDriver
  1205.         Get InvokeComMethod of hDispatchDriver 29 OLE_VT_BOOL to retVal
  1206.         Function_Return retVal
  1207.     End_Function
  1208.  
  1209.     // Enables or disables the tracker bar in the control panel
  1210.     Procedure Set ComEnableTracker Boolean value
  1211.         Handle hDispatchDriver
  1212.         Get phDispatchDriver to hDispatchDriver
  1213.         Send PrepareParams to hDispatchDriver 1
  1214.         Set ComProperty of hDispatchDriver 29 OLE_VT_BOOL to value
  1215.     End_Procedure
  1216.  
  1217.     // Enables or disables the control
  1218.     Function ComEnabled Returns Boolean
  1219.         Handle hDispatchDriver
  1220.         Boolean retVal
  1221.         Get phDispatchDriver to hDispatchDriver
  1222.         Get InvokeComMethod of hDispatchDriver -514 OLE_VT_BOOL to retVal
  1223.         Function_Return retVal
  1224.     End_Function
  1225.  
  1226.     // Enables or disables the control
  1227.     Procedure Set ComEnabled Boolean value
  1228.         Handle hDispatchDriver
  1229.         Get phDispatchDriver to hDispatchDriver
  1230.         Send PrepareParams to hDispatchDriver 1
  1231.         Set ComProperty of hDispatchDriver -514 OLE_VT_BOOL to value
  1232.     End_Procedure
  1233.  
  1234.     // Returns or sets the foreground color of the display panel
  1235.     Function ComDisplayForeColor Returns VB_OLE_COLOR
  1236.         Handle hDispatchDriver
  1237.         VB_OLE_COLOR retVal
  1238.         Get phDispatchDriver to hDispatchDriver
  1239.         Get InvokeComMethod of hDispatchDriver 36 OLE_VT_UI4 to retVal
  1240.         Function_Return retVal
  1241.     End_Function
  1242.  
  1243.     // Returns or sets the foreground color of the display panel
  1244.     Procedure Set ComDisplayForeColor VB_OLE_COLOR value
  1245.         Handle hDispatchDriver
  1246.         Get phDispatchDriver to hDispatchDriver
  1247.         Send PrepareParams to hDispatchDriver 1
  1248.         Set ComProperty of hDispatchDriver 36 OLE_VT_UI4 to value
  1249.     End_Procedure
  1250.  
  1251.     // Returns or sets the background color of the display panel
  1252.     Function ComDisplayBackColor Returns VB_OLE_COLOR
  1253.         Handle hDispatchDriver
  1254.         VB_OLE_COLOR retVal
  1255.         Get phDispatchDriver to hDispatchDriver
  1256.         Get InvokeComMethod of hDispatchDriver 37 OLE_VT_UI4 to retVal
  1257.         Function_Return retVal
  1258.     End_Function
  1259.  
  1260.     // Returns or sets the background color of the display panel
  1261.     Procedure Set ComDisplayBackColor VB_OLE_COLOR value
  1262.         Handle hDispatchDriver
  1263.         Get phDispatchDriver to hDispatchDriver
  1264.         Send PrepareParams to hDispatchDriver 1
  1265.         Set ComProperty of hDispatchDriver 37 OLE_VT_UI4 to value
  1266.     End_Procedure
  1267.  
  1268.     // Returns or sets the display mode (time or frames)
  1269.     Function ComDisplayMode Returns OLEMPDisplayModeConstants
  1270.         Handle hDispatchDriver
  1271.         OLEMPDisplayModeConstants retVal
  1272.         Get phDispatchDriver to hDispatchDriver
  1273.         Get InvokeComMethod of hDispatchDriver 32 OLE_VT_I4 to retVal
  1274.         Function_Return retVal
  1275.     End_Function
  1276.  
  1277.     // Returns or sets the display mode (time or frames)
  1278.     Procedure Set ComDisplayMode OLEMPDisplayModeConstants value
  1279.         Handle hDispatchDriver
  1280.         Get phDispatchDriver to hDispatchDriver
  1281.         Send PrepareParams to hDispatchDriver 1
  1282.         Set ComProperty of hDispatchDriver 32 OLE_VT_I4 to value
  1283.     End_Procedure
  1284.  
  1285.     // Returns or sets the video border 3D effect
  1286.     Function ComVideoBorder3D Returns Boolean
  1287.         Handle hDispatchDriver
  1288.         Boolean retVal
  1289.         Get phDispatchDriver to hDispatchDriver
  1290.         Get InvokeComMethod of hDispatchDriver 1103 OLE_VT_BOOL to retVal
  1291.         Function_Return retVal
  1292.     End_Function
  1293.  
  1294.     // Returns or sets the video border 3D effect
  1295.     Procedure Set ComVideoBorder3D Boolean value
  1296.         Handle hDispatchDriver
  1297.         Get phDispatchDriver to hDispatchDriver
  1298.         Send PrepareParams to hDispatchDriver 1
  1299.         Set ComProperty of hDispatchDriver 1103 OLE_VT_BOOL to value
  1300.     End_Procedure
  1301.  
  1302.     // Returns or sets the video border width
  1303.     Function ComVideoBorderWidth Returns Integer
  1304.         Handle hDispatchDriver
  1305.         Integer retVal
  1306.         Get phDispatchDriver to hDispatchDriver
  1307.         Get InvokeComMethod of hDispatchDriver 1101 OLE_VT_I4 to retVal
  1308.         Function_Return retVal
  1309.     End_Function
  1310.  
  1311.     // Returns or sets the video border width
  1312.     Procedure Set ComVideoBorderWidth Integer value
  1313.         Handle hDispatchDriver
  1314.         Get phDispatchDriver to hDispatchDriver
  1315.         Send PrepareParams to hDispatchDriver 1
  1316.         Set ComProperty of hDispatchDriver 1101 OLE_VT_I4 to value
  1317.     End_Procedure
  1318.  
  1319.     // Returns or sets the video border color
  1320.     Function ComVideoBorderColor Returns VB_OLE_COLOR
  1321.         Handle hDispatchDriver
  1322.         VB_OLE_COLOR retVal
  1323.         Get phDispatchDriver to hDispatchDriver
  1324.         Get InvokeComMethod of hDispatchDriver 1102 OLE_VT_UI4 to retVal
  1325.         Function_Return retVal
  1326.     End_Function
  1327.  
  1328.     // Returns or sets the video border color
  1329.     Procedure Set ComVideoBorderColor VB_OLE_COLOR value
  1330.         Handle hDispatchDriver
  1331.         Get phDispatchDriver to hDispatchDriver
  1332.         Send PrepareParams to hDispatchDriver 1
  1333.         Set ComProperty of hDispatchDriver 1102 OLE_VT_UI4 to value
  1334.     End_Procedure
  1335.  
  1336.     // Show Gotobar
  1337.     Function ComShowGotoBar Returns Boolean
  1338.         Handle hDispatchDriver
  1339.         Boolean retVal
  1340.         Get phDispatchDriver to hDispatchDriver
  1341.         Get InvokeComMethod of hDispatchDriver 1088 OLE_VT_BOOL to retVal
  1342.         Function_Return retVal
  1343.     End_Function
  1344.  
  1345.     // Show Gotobar
  1346.     Procedure Set ComShowGotoBar Boolean value
  1347.         Handle hDispatchDriver
  1348.         Get phDispatchDriver to hDispatchDriver
  1349.         Send PrepareParams to hDispatchDriver 1
  1350.         Set ComProperty of hDispatchDriver 1088 OLE_VT_BOOL to value
  1351.     End_Procedure
  1352.  
  1353.     // Show status bar
  1354.     Function ComShowStatusBar Returns Boolean
  1355.         Handle hDispatchDriver
  1356.         Boolean retVal
  1357.         Get phDispatchDriver to hDispatchDriver
  1358.         Get InvokeComMethod of hDispatchDriver 1086 OLE_VT_BOOL to retVal
  1359.         Function_Return retVal
  1360.     End_Function
  1361.  
  1362.     // Show status bar
  1363.     Procedure Set ComShowStatusBar Boolean value
  1364.         Handle hDispatchDriver
  1365.         Get phDispatchDriver to hDispatchDriver
  1366.         Send PrepareParams to hDispatchDriver 1
  1367.         Set ComProperty of hDispatchDriver 1086 OLE_VT_BOOL to value
  1368.     End_Procedure
  1369.  
  1370.     // Show captioning text
  1371.     Function ComShowCaptioning Returns Boolean
  1372.         Handle hDispatchDriver
  1373.         Boolean retVal
  1374.         Get phDispatchDriver to hDispatchDriver
  1375.         Get InvokeComMethod of hDispatchDriver 1084 OLE_VT_BOOL to retVal
  1376.         Function_Return retVal
  1377.     End_Function
  1378.  
  1379.     // Show captioning text
  1380.     Procedure Set ComShowCaptioning Boolean value
  1381.         Handle hDispatchDriver
  1382.         Get phDispatchDriver to hDispatchDriver
  1383.         Send PrepareParams to hDispatchDriver 1
  1384.         Set ComProperty of hDispatchDriver 1084 OLE_VT_BOOL to value
  1385.     End_Procedure
  1386.  
  1387.     // Show audio controls
  1388.     Function ComShowAudioControls Returns Boolean
  1389.         Handle hDispatchDriver
  1390.         Boolean retVal
  1391.         Get phDispatchDriver to hDispatchDriver
  1392.         Get InvokeComMethod of hDispatchDriver 1107 OLE_VT_BOOL to retVal
  1393.         Function_Return retVal
  1394.     End_Function
  1395.  
  1396.     // Show audio controls
  1397.     Procedure Set ComShowAudioControls Boolean value
  1398.         Handle hDispatchDriver
  1399.         Get phDispatchDriver to hDispatchDriver
  1400.         Send PrepareParams to hDispatchDriver 1
  1401.         Set ComProperty of hDispatchDriver 1107 OLE_VT_BOOL to value
  1402.     End_Procedure
  1403.  
  1404.     // Returns or sets the captioning information
  1405.     Function ComCaptioningID Returns String
  1406.         Handle hDispatchDriver
  1407.         String retVal
  1408.         Get phDispatchDriver to hDispatchDriver
  1409.         Get InvokeComMethod of hDispatchDriver 1085 OLE_VT_BSTR to retVal
  1410.         Function_Return retVal
  1411.     End_Function
  1412.  
  1413.     // Returns or sets the captioning information
  1414.     Procedure Set ComCaptioningID String value
  1415.         Handle hDispatchDriver
  1416.         Get phDispatchDriver to hDispatchDriver
  1417.         Send PrepareParams to hDispatchDriver 1
  1418.         Set ComProperty of hDispatchDriver 1085 OLE_VT_BSTR to value
  1419.     End_Procedure
  1420.  
  1421.     // Returns or sets the current mute state of the stream
  1422.     Function ComMute Returns Boolean
  1423.         Handle hDispatchDriver
  1424.         Boolean retVal
  1425.         Get phDispatchDriver to hDispatchDriver
  1426.         Get InvokeComMethod of hDispatchDriver 1089 OLE_VT_BOOL to retVal
  1427.         Function_Return retVal
  1428.     End_Function
  1429.  
  1430.     // Returns or sets the current mute state of the stream
  1431.     Procedure Set ComMute Boolean value
  1432.         Handle hDispatchDriver
  1433.         Get phDispatchDriver to hDispatchDriver
  1434.         Send PrepareParams to hDispatchDriver 1
  1435.         Set ComProperty of hDispatchDriver 1089 OLE_VT_BOOL to value
  1436.     End_Procedure
  1437.  
  1438.     // Returns whether the control currently has something that can be previewed
  1439.     Function ComCanPreview Returns Boolean
  1440.         Handle hDispatchDriver
  1441.         Boolean retVal
  1442.         Get phDispatchDriver to hDispatchDriver
  1443.         Get InvokeComMethod of hDispatchDriver 1093 OLE_VT_BOOL to retVal
  1444.         Function_Return retVal
  1445.     End_Function
  1446.  
  1447.     // Returns or sets whether the control is in preview mode
  1448.     Function ComPreviewMode Returns Boolean
  1449.         Handle hDispatchDriver
  1450.         Boolean retVal
  1451.         Get phDispatchDriver to hDispatchDriver
  1452.         Get InvokeComMethod of hDispatchDriver 1091 OLE_VT_BOOL to retVal
  1453.         Function_Return retVal
  1454.     End_Function
  1455.  
  1456.     // Returns or sets whether the control is in preview mode
  1457.     Procedure Set ComPreviewMode Boolean value
  1458.         Handle hDispatchDriver
  1459.         Get phDispatchDriver to hDispatchDriver
  1460.         Send PrepareParams to hDispatchDriver 1
  1461.         Set ComProperty of hDispatchDriver 1091 OLE_VT_BOOL to value
  1462.     End_Procedure
  1463.  
  1464.     // Returns whether the control currently has something that contains multiple items
  1465.     Function ComHasMultipleItems Returns Boolean
  1466.         Handle hDispatchDriver
  1467.         Boolean retVal
  1468.         Get phDispatchDriver to hDispatchDriver
  1469.         Get InvokeComMethod of hDispatchDriver 1094 OLE_VT_BOOL to retVal
  1470.         Function_Return retVal
  1471.     End_Function
  1472.  
  1473.     // Returns or sets the current language, using windows LCIDs
  1474.     Function ComLanguage Returns Integer
  1475.         Handle hDispatchDriver
  1476.         Integer retVal
  1477.         Get phDispatchDriver to hDispatchDriver
  1478.         Get InvokeComMethod of hDispatchDriver 1095 OLE_VT_I4 to retVal
  1479.         Function_Return retVal
  1480.     End_Function
  1481.  
  1482.     // Returns or sets the current language, using windows LCIDs
  1483.     Procedure Set ComLanguage Integer value
  1484.         Handle hDispatchDriver
  1485.         Get phDispatchDriver to hDispatchDriver
  1486.         Send PrepareParams to hDispatchDriver 1
  1487.         Set ComProperty of hDispatchDriver 1095 OLE_VT_I4 to value
  1488.     End_Procedure
  1489.  
  1490.     // Returns or sets the current audio stream
  1491.     Function ComAudioStream Returns Integer
  1492.         Handle hDispatchDriver
  1493.         Integer retVal
  1494.         Get phDispatchDriver to hDispatchDriver
  1495.         Get InvokeComMethod of hDispatchDriver 1096 OLE_VT_I4 to retVal
  1496.         Function_Return retVal
  1497.     End_Function
  1498.  
  1499.     // Returns or sets the current audio stream
  1500.     Procedure Set ComAudioStream Integer value
  1501.         Handle hDispatchDriver
  1502.         Get phDispatchDriver to hDispatchDriver
  1503.         Send PrepareParams to hDispatchDriver 1
  1504.         Set ComProperty of hDispatchDriver 1096 OLE_VT_I4 to value
  1505.     End_Procedure
  1506.  
  1507.     // Returns or sets the closed-captioning style
  1508.     Function ComSAMIStyle Returns String
  1509.         Handle hDispatchDriver
  1510.         String retVal
  1511.         Get phDispatchDriver to hDispatchDriver
  1512.         Get InvokeComMethod of hDispatchDriver 1097 OLE_VT_BSTR to retVal
  1513.         Function_Return retVal
  1514.     End_Function
  1515.  
  1516.     // Returns or sets the closed-captioning style
  1517.     Procedure Set ComSAMIStyle String value
  1518.         Handle hDispatchDriver
  1519.         Get phDispatchDriver to hDispatchDriver
  1520.         Send PrepareParams to hDispatchDriver 1
  1521.         Set ComProperty of hDispatchDriver 1097 OLE_VT_BSTR to value
  1522.     End_Procedure
  1523.  
  1524.     // Returns or sets the closed-captioning language
  1525.     Function ComSAMILang Returns String
  1526.         Handle hDispatchDriver
  1527.         String retVal
  1528.         Get phDispatchDriver to hDispatchDriver
  1529.         Get InvokeComMethod of hDispatchDriver 1098 OLE_VT_BSTR to retVal
  1530.         Function_Return retVal
  1531.     End_Function
  1532.  
  1533.     // Returns or sets the closed-captioning language
  1534.     Procedure Set ComSAMILang String value
  1535.         Handle hDispatchDriver
  1536.         Get phDispatchDriver to hDispatchDriver
  1537.         Send PrepareParams to hDispatchDriver 1
  1538.         Set ComProperty of hDispatchDriver 1098 OLE_VT_BSTR to value
  1539.     End_Procedure
  1540.  
  1541.     // Returns or sets the closed-captioning filename
  1542.     Function ComSAMIFileName Returns String
  1543.         Handle hDispatchDriver
  1544.         String retVal
  1545.         Get phDispatchDriver to hDispatchDriver
  1546.         Get InvokeComMethod of hDispatchDriver 1099 OLE_VT_BSTR to retVal
  1547.         Function_Return retVal
  1548.     End_Function
  1549.  
  1550.     // Returns or sets the closed-captioning filename
  1551.     Procedure Set ComSAMIFileName String value
  1552.         Handle hDispatchDriver
  1553.         Get phDispatchDriver to hDispatchDriver
  1554.         Send PrepareParams to hDispatchDriver 1
  1555.         Set ComProperty of hDispatchDriver 1099 OLE_VT_BSTR to value
  1556.     End_Procedure
  1557.  
  1558.     // Returns the number of media streams
  1559.     Function ComStreamCount Returns Integer
  1560.         Handle hDispatchDriver
  1561.         Integer retVal
  1562.         Get phDispatchDriver to hDispatchDriver
  1563.         Get InvokeComMethod of hDispatchDriver 1100 OLE_VT_I4 to retVal
  1564.         Function_Return retVal
  1565.     End_Function
  1566.  
  1567.     // Returns a unique id for the player
  1568.     Function ComClientId Returns String
  1569.         Handle hDispatchDriver
  1570.         String retVal
  1571.         Get phDispatchDriver to hDispatchDriver
  1572.         Get InvokeComMethod of hDispatchDriver 1106 OLE_VT_BSTR to retVal
  1573.         Function_Return retVal
  1574.     End_Function
  1575.  
  1576.     // Returns the network connection speed of the player
  1577.     Function ComConnectionSpeed Returns Integer
  1578.         Handle hDispatchDriver
  1579.         Integer retVal
  1580.         Get phDispatchDriver to hDispatchDriver
  1581.         Get InvokeComMethod of hDispatchDriver 1113 OLE_VT_I4 to retVal
  1582.         Function_Return retVal
  1583.     End_Function
  1584.  
  1585.     // Size the control automatically to the loaded media
  1586.     Function ComAutoSize Returns Boolean
  1587.         Handle hDispatchDriver
  1588.         Boolean retVal
  1589.         Get phDispatchDriver to hDispatchDriver
  1590.         Get InvokeComMethod of hDispatchDriver -500 OLE_VT_BOOL to retVal
  1591.         Function_Return retVal
  1592.     End_Function
  1593.  
  1594.     // Size the control automatically to the loaded media
  1595.     Procedure Set ComAutoSize Boolean value
  1596.         Handle hDispatchDriver
  1597.         Get phDispatchDriver to hDispatchDriver
  1598.         Send PrepareParams to hDispatchDriver 1
  1599.         Set ComProperty of hDispatchDriver -500 OLE_VT_BOOL to value
  1600.     End_Procedure
  1601.  
  1602.     // Enables controls during full screen
  1603.     Function ComEnableFullScreenControls Returns Boolean
  1604.         Handle hDispatchDriver
  1605.         Boolean retVal
  1606.         Get phDispatchDriver to hDispatchDriver
  1607.         Get InvokeComMethod of hDispatchDriver 1108 OLE_VT_BOOL to retVal
  1608.         Function_Return retVal
  1609.     End_Function
  1610.  
  1611.     // Enables controls during full screen
  1612.     Procedure Set ComEnableFullScreenControls Boolean value
  1613.         Handle hDispatchDriver
  1614.         Get phDispatchDriver to hDispatchDriver
  1615.         Send PrepareParams to hDispatchDriver 1
  1616.         Set ComProperty of hDispatchDriver 1108 OLE_VT_BOOL to value
  1617.     End_Procedure
  1618.  
  1619.     // Returns the ActiveMovie player object
  1620.     Function ComActiveMovie Returns Variant
  1621.         Handle hDispatchDriver
  1622.         Variant retVal
  1623.         Get phDispatchDriver to hDispatchDriver
  1624.         Get InvokeComMethod of hDispatchDriver 1109 OLE_VT_DISPATCH to retVal
  1625.         Function_Return retVal
  1626.     End_Function
  1627.  
  1628.     // Returns the NetShow player object
  1629.     Function ComNSPlay Returns Variant
  1630.         Handle hDispatchDriver
  1631.         Variant retVal
  1632.         Get phDispatchDriver to hDispatchDriver
  1633.         Get InvokeComMethod of hDispatchDriver 1110 OLE_VT_DISPATCH to retVal
  1634.         Function_Return retVal
  1635.     End_Function
  1636.  
  1637.     // Render video without a window
  1638.     Function ComWindowlessVideo Returns Boolean
  1639.         Handle hDispatchDriver
  1640.         Boolean retVal
  1641.         Get phDispatchDriver to hDispatchDriver
  1642.         Get InvokeComMethod of hDispatchDriver 1112 OLE_VT_BOOL to retVal
  1643.         Function_Return retVal
  1644.     End_Function
  1645.  
  1646.     // Render video without a window
  1647.     Procedure Set ComWindowlessVideo Boolean value
  1648.         Handle hDispatchDriver
  1649.         Get phDispatchDriver to hDispatchDriver
  1650.         Send PrepareParams to hDispatchDriver 1
  1651.         Set ComProperty of hDispatchDriver 1112 OLE_VT_BOOL to value
  1652.     End_Procedure
  1653.  
  1654.     // Begins playing from the current position or marker
  1655.     Procedure ComPlay
  1656.         Handle hDispatchDriver
  1657.         Get phDispatchDriver to hDispatchDriver
  1658.         Send InvokeComMethod to hDispatchDriver 2001 OLE_VT_VOID
  1659.     End_Procedure
  1660.  
  1661.     // Stops file playback at the current position
  1662.     Procedure ComStop
  1663.         Handle hDispatchDriver
  1664.         Get phDispatchDriver to hDispatchDriver
  1665.         Send InvokeComMethod to hDispatchDriver 2003 OLE_VT_VOID
  1666.     End_Procedure
  1667.  
  1668.     // Pauses file playback at the current position
  1669.     Procedure ComPause
  1670.         Handle hDispatchDriver
  1671.         Get phDispatchDriver to hDispatchDriver
  1672.         Send InvokeComMethod to hDispatchDriver 2002 OLE_VT_VOID
  1673.     End_Procedure
  1674.  
  1675.     // Returns the time of a marker
  1676.     Function ComGetMarkerTime Integer llMarkerNum Returns Real
  1677.         Handle hDispatchDriver
  1678.         Real retVal
  1679.         Get phDispatchDriver to hDispatchDriver
  1680.         Send PrepareParams to hDispatchDriver 1
  1681.         Send DefineParam to hDispatchDriver OLE_VT_I4 llMarkerNum
  1682.         Get InvokeComMethod of hDispatchDriver 2004 OLE_VT_R8 to retVal
  1683.         Function_Return retVal
  1684.     End_Function
  1685.  
  1686.     // Returns the name of a marker
  1687.     Function ComGetMarkerName Integer llMarkerNum Returns String
  1688.         Handle hDispatchDriver
  1689.         String retVal
  1690.         Get phDispatchDriver to hDispatchDriver
  1691.         Send PrepareParams to hDispatchDriver 1
  1692.         Send DefineParam to hDispatchDriver OLE_VT_I4 llMarkerNum
  1693.         Get InvokeComMethod of hDispatchDriver 2005 OLE_VT_BSTR to retVal
  1694.         Function_Return retVal
  1695.     End_Function
  1696.  
  1697.     // Displays version information dialog box
  1698.     Procedure ComAboutBox
  1699.         Handle hDispatchDriver
  1700.         Get phDispatchDriver to hDispatchDriver
  1701.         Send InvokeComMethod to hDispatchDriver -552 OLE_VT_VOID
  1702.     End_Procedure
  1703.  
  1704.     // Returns whether or not a codec is installed
  1705.     Function ComGetCodecInstalled Integer llCodecNum Returns Boolean
  1706.         Handle hDispatchDriver
  1707.         Boolean retVal
  1708.         Get phDispatchDriver to hDispatchDriver
  1709.         Send PrepareParams to hDispatchDriver 1
  1710.         Send DefineParam to hDispatchDriver OLE_VT_I4 llCodecNum
  1711.         Get InvokeComMethod of hDispatchDriver 2007 OLE_VT_BOOL to retVal
  1712.         Function_Return retVal
  1713.     End_Function
  1714.  
  1715.     // Returns the descriptive name of a codec
  1716.     Function ComGetCodecDescription Integer llCodecNum Returns String
  1717.         Handle hDispatchDriver
  1718.         String retVal
  1719.         Get phDispatchDriver to hDispatchDriver
  1720.         Send PrepareParams to hDispatchDriver 1
  1721.         Send DefineParam to hDispatchDriver OLE_VT_I4 llCodecNum
  1722.         Get InvokeComMethod of hDispatchDriver 2008 OLE_VT_BSTR to retVal
  1723.         Function_Return retVal
  1724.     End_Function
  1725.  
  1726.     // Returns the URL for a codec
  1727.     Function ComGetCodecURL Integer llCodecNum Returns String
  1728.         Handle hDispatchDriver
  1729.         String retVal
  1730.         Get phDispatchDriver to hDispatchDriver
  1731.         Send PrepareParams to hDispatchDriver 1
  1732.         Send DefineParam to hDispatchDriver OLE_VT_I4 llCodecNum
  1733.         Get InvokeComMethod of hDispatchDriver 2009 OLE_VT_BSTR to retVal
  1734.         Function_Return retVal
  1735.     End_Function
  1736.  
  1737.     // Returns a More Information URL
  1738.     Function ComGetMoreInfoURL OLEMPMoreInfoType llMoreInfoType Returns String
  1739.         Handle hDispatchDriver
  1740.         String retVal
  1741.         Get phDispatchDriver to hDispatchDriver
  1742.         Send PrepareParams to hDispatchDriver 1
  1743.         Send DefineParam to hDispatchDriver OLE_VT_I4 llMoreInfoType
  1744.         Get InvokeComMethod of hDispatchDriver 2011 OLE_VT_BSTR to retVal
  1745.         Function_Return retVal
  1746.     End_Function
  1747.  
  1748.     // Returns an Information String for the Media
  1749.     Function ComGetMediaInfoString OLEMPMediaInfoType llMediaInfoType Returns String
  1750.         Handle hDispatchDriver
  1751.         String retVal
  1752.         Get phDispatchDriver to hDispatchDriver
  1753.         Send PrepareParams to hDispatchDriver 1
  1754.         Send DefineParam to hDispatchDriver OLE_VT_I4 llMediaInfoType
  1755.         Get InvokeComMethod of hDispatchDriver 2016 OLE_VT_BSTR to retVal
  1756.         Function_Return retVal
  1757.     End_Function
  1758.  
  1759.     // Cancels the current operation
  1760.     Procedure ComCancel
  1761.         Handle hDispatchDriver
  1762.         Get phDispatchDriver to hDispatchDriver
  1763.         Send InvokeComMethod to hDispatchDriver 2006 OLE_VT_VOID
  1764.     End_Procedure
  1765.  
  1766.     // Opens the given filename asynchronously
  1767.     Procedure ComOpen String llbstrFileName
  1768.         Handle hDispatchDriver
  1769.         Get phDispatchDriver to hDispatchDriver
  1770.         Send PrepareParams to hDispatchDriver 1
  1771.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbstrFileName
  1772.         Send InvokeComMethod to hDispatchDriver 2010 OLE_VT_VOID
  1773.     End_Procedure
  1774.  
  1775.     // Determines whether the sound card is enabled on the machine
  1776.     Function ComIsSoundCardEnabled Returns Boolean
  1777.         Handle hDispatchDriver
  1778.         Boolean retVal
  1779.         Get phDispatchDriver to hDispatchDriver
  1780.         Get InvokeComMethod of hDispatchDriver 53 OLE_VT_BOOL to retVal
  1781.         Function_Return retVal
  1782.     End_Function
  1783.  
  1784.     // Jumps to the next item
  1785.     Procedure ComNext
  1786.         Handle hDispatchDriver
  1787.         Get phDispatchDriver to hDispatchDriver
  1788.         Send InvokeComMethod to hDispatchDriver 2023 OLE_VT_VOID
  1789.     End_Procedure
  1790.  
  1791.     // Jumps to the previous item
  1792.     Procedure ComPrevious
  1793.         Handle hDispatchDriver
  1794.         Get phDispatchDriver to hDispatchDriver
  1795.         Send InvokeComMethod to hDispatchDriver 2022 OLE_VT_VOID
  1796.     End_Procedure
  1797.  
  1798.     // Selects a media stream
  1799.     Procedure ComStreamSelect Integer llStreamNum
  1800.         Handle hDispatchDriver
  1801.         Get phDispatchDriver to hDispatchDriver
  1802.         Send PrepareParams to hDispatchDriver 1
  1803.         Send DefineParam to hDispatchDriver OLE_VT_I4 llStreamNum
  1804.         Send InvokeComMethod to hDispatchDriver 2015 OLE_VT_VOID
  1805.     End_Procedure
  1806.  
  1807.     // Fast Forwards the playback
  1808.     Procedure ComFastForward
  1809.         Handle hDispatchDriver
  1810.         Get phDispatchDriver to hDispatchDriver
  1811.         Send InvokeComMethod to hDispatchDriver 2024 OLE_VT_VOID
  1812.     End_Procedure
  1813.  
  1814.     // Fast Reverses the playback
  1815.     Procedure ComFastReverse
  1816.         Handle hDispatchDriver
  1817.         Get phDispatchDriver to hDispatchDriver
  1818.         Send InvokeComMethod to hDispatchDriver 2025 OLE_VT_VOID
  1819.     End_Procedure
  1820.  
  1821.     // Returns the name of a media stream
  1822.     Function ComGetStreamName Integer llStreamNum Returns String
  1823.         Handle hDispatchDriver
  1824.         String retVal
  1825.         Get phDispatchDriver to hDispatchDriver
  1826.         Send PrepareParams to hDispatchDriver 1
  1827.         Send DefineParam to hDispatchDriver OLE_VT_I4 llStreamNum
  1828.         Get InvokeComMethod of hDispatchDriver 2019 OLE_VT_BSTR to retVal
  1829.         Function_Return retVal
  1830.     End_Function
  1831.  
  1832.     // Returns the group of a media stream
  1833.     Function ComGetStreamGroup Integer llStreamNum Returns Integer
  1834.         Handle hDispatchDriver
  1835.         Integer retVal
  1836.         Get phDispatchDriver to hDispatchDriver
  1837.         Send PrepareParams to hDispatchDriver 1
  1838.         Send DefineParam to hDispatchDriver OLE_VT_I4 llStreamNum
  1839.         Get InvokeComMethod of hDispatchDriver 2020 OLE_VT_I4 to retVal
  1840.         Function_Return retVal
  1841.     End_Function
  1842.  
  1843.     // Returns whether a media stream is selected
  1844.     Function ComGetStreamSelected Integer llStreamNum Returns Boolean
  1845.         Handle hDispatchDriver
  1846.         Boolean retVal
  1847.         Get phDispatchDriver to hDispatchDriver
  1848.         Send PrepareParams to hDispatchDriver 1
  1849.         Send DefineParam to hDispatchDriver OLE_VT_I4 llStreamNum
  1850.         Get InvokeComMethod of hDispatchDriver 2021 OLE_VT_BOOL to retVal
  1851.         Function_Return retVal
  1852.     End_Function
  1853.  
  1854.     // Returns the MediaPlayer DVD interface
  1855.     Function ComDVD Returns Variant
  1856.         Handle hDispatchDriver
  1857.         Variant retVal
  1858.         Get phDispatchDriver to hDispatchDriver
  1859.         Get InvokeComMethod of hDispatchDriver 1500 OLE_VT_DISPATCH to retVal
  1860.         Function_Return retVal
  1861.     End_Function
  1862.  
  1863.     // Returns the value for a given parameter name and entry number
  1864.     Function ComGetMediaParameter Integer llEntryNum String llbstrParameterName Returns String
  1865.         Handle hDispatchDriver
  1866.         String retVal
  1867.         Get phDispatchDriver to hDispatchDriver
  1868.         Send PrepareParams to hDispatchDriver 2
  1869.         Send DefineParam to hDispatchDriver OLE_VT_I4 llEntryNum
  1870.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbstrParameterName
  1871.         Get InvokeComMethod of hDispatchDriver 2028 OLE_VT_BSTR to retVal
  1872.         Function_Return retVal
  1873.     End_Function
  1874.  
  1875.     // Returns the name for a given parameter index and entry number
  1876.     Function ComGetMediaParameterName Integer llEntryNum Integer llIndex Returns String
  1877.         Handle hDispatchDriver
  1878.         String retVal
  1879.         Get phDispatchDriver to hDispatchDriver
  1880.         Send PrepareParams to hDispatchDriver 2
  1881.         Send DefineParam to hDispatchDriver OLE_VT_I4 llEntryNum
  1882.         Send DefineParam to hDispatchDriver OLE_VT_I4 llIndex
  1883.         Get InvokeComMethod of hDispatchDriver 2029 OLE_VT_BSTR to retVal
  1884.         Function_Return retVal
  1885.     End_Function
  1886.  
  1887.     // Returns the number of playlist entries
  1888.     Function ComEntryCount Returns Integer
  1889.         Handle hDispatchDriver
  1890.         Integer retVal
  1891.         Get phDispatchDriver to hDispatchDriver
  1892.         Get InvokeComMethod of hDispatchDriver 2030 OLE_VT_I4 to retVal
  1893.         Function_Return retVal
  1894.     End_Function
  1895.  
  1896.     // Returns the current playlist item's entry number
  1897.     Function ComGetCurrentEntry Returns Integer
  1898.         Handle hDispatchDriver
  1899.         Integer retVal
  1900.         Get phDispatchDriver to hDispatchDriver
  1901.         Get InvokeComMethod of hDispatchDriver 2031 OLE_VT_I4 to retVal
  1902.         Function_Return retVal
  1903.     End_Function
  1904.  
  1905.     // Sets the current playlist entry
  1906.     Procedure ComSetCurrentEntry Integer llEntryNumber
  1907.         Handle hDispatchDriver
  1908.         Get phDispatchDriver to hDispatchDriver
  1909.         Send PrepareParams to hDispatchDriver 1
  1910.         Send DefineParam to hDispatchDriver OLE_VT_I4 llEntryNumber
  1911.         Send InvokeComMethod to hDispatchDriver 2032 OLE_VT_VOID
  1912.     End_Procedure
  1913.  
  1914.     // Displays modal dialog box containing WMP options
  1915.     Procedure ComShowDialog OLEMPShowDialogConstants llmpDialogIndex
  1916.         Handle hDispatchDriver
  1917.         Get phDispatchDriver to hDispatchDriver
  1918.         Send PrepareParams to hDispatchDriver 1
  1919.         Send DefineParam to hDispatchDriver OLE_VT_I4 llmpDialogIndex
  1920.         Send InvokeComMethod to hDispatchDriver 2033 OLE_VT_VOID
  1921.     End_Procedure
  1922. End_Class
  1923.  
  1924. // Event interface for Windows Media Player control
  1925. Class cCom_MediaPlayerEvents is a Mixin
  1926.  
  1927.     // DVD related notifications
  1928.     Procedure OnComDVDNotify Integer llEventCode Integer llEventParam1 Integer llEventParam2
  1929.     End_Procedure
  1930.  
  1931.     // Sent when the end of file is reached
  1932.     Procedure OnComEndOfStream Integer llResult
  1933.     End_Procedure
  1934.  
  1935.     // Sent when a key is pressed
  1936.     Procedure OnComKeyDown Short llKeyCode Short llShiftState
  1937.     End_Procedure
  1938.  
  1939.     // Sent when a key is released
  1940.     Procedure OnComKeyUp Short llKeyCode Short llShiftState
  1941.     End_Procedure
  1942.  
  1943.     // Sent when a character is entered
  1944.     Procedure OnComKeyPress Short llCharacterCode
  1945.     End_Procedure
  1946.  
  1947.     // Sent when the mouse is moved
  1948.     Procedure OnComMouseMove Short llButton Short llShiftState OLE_XPOS_PIXELS llx OLE_YPOS_PIXELS lly
  1949.     End_Procedure
  1950.  
  1951.     // Sent when a mouse button is pressed
  1952.     Procedure OnComMouseDown Short llButton Short llShiftState OLE_XPOS_PIXELS llx OLE_YPOS_PIXELS lly
  1953.     End_Procedure
  1954.  
  1955.     // Sent when a mouse button is released
  1956.     Procedure OnComMouseUp Short llButton Short llShiftState OLE_XPOS_PIXELS llx OLE_YPOS_PIXELS lly
  1957.     End_Procedure
  1958.  
  1959.     // Sent when a mouse button is clicked
  1960.     Procedure OnComClick Short llButton Short llShiftState OLE_XPOS_PIXELS llx OLE_YPOS_PIXELS lly
  1961.     End_Procedure
  1962.  
  1963.     // Sent when a mouse button is double clicked
  1964.     Procedure OnComDblClick Short llButton Short llShiftState OLE_XPOS_PIXELS llx OLE_YPOS_PIXELS lly
  1965.     End_Procedure
  1966.  
  1967.     // Sent when the control changes OpenState
  1968.     Procedure OnComOpenStateChange Integer llOldState Integer llNewState
  1969.     End_Procedure
  1970.  
  1971.     // Sent when the control changes PlayState
  1972.     Procedure OnComPlayStateChange Integer llOldState Integer llNewState
  1973.     End_Procedure
  1974.  
  1975.     // Sent when a synchronized command or URL is received
  1976.     Procedure OnComScriptCommand String llscType String llParam
  1977.     End_Procedure
  1978.  
  1979.     // Sent when the control begins or ends buffering
  1980.     Procedure OnComBuffering Boolean llStart
  1981.     End_Procedure
  1982.  
  1983.     // Sent when the control has an error condition
  1984.     Procedure OnComError
  1985.     End_Procedure
  1986.  
  1987.     // Sent when a marker is reached
  1988.     Procedure OnComMarkerHit Integer llMarkerNum
  1989.     End_Procedure
  1990.  
  1991.     // Sent when the control encounters a problem
  1992.     Procedure OnComWarning Integer llWarningType Integer llParam String llDescription
  1993.     End_Procedure
  1994.  
  1995.     // Sent when a new stream is started in a channel
  1996.     Procedure OnComNewStream
  1997.     End_Procedure
  1998.  
  1999.     // Sent when the control is disconnected from the server
  2000.     Procedure OnComDisconnect Integer llResult
  2001.     End_Procedure
  2002.  
  2003.     // Indicates that the current position of the movie has changed
  2004.     Procedure OnComPositionChange Real lloldPosition Real llnewPosition
  2005.     End_Procedure
  2006.  
  2007.     // Indicates that the display mode of the movie has changed
  2008.     Procedure OnComDisplayModeChange
  2009.     End_Procedure
  2010.  
  2011.     // Reports that the ReadyState property of the ActiveMovie Control has changed
  2012.     Procedure OnComReadyStateChange OLEReadyStateConstants llReadyState
  2013.     End_Procedure
  2014.  
  2015.     Procedure RegisterComEvents
  2016.         Send RegisterComEvent 1505 msg_OnComDVDNotify
  2017.         Send RegisterComEvent 3002 msg_OnComEndOfStream
  2018.         Send RegisterComEvent -602 msg_OnComKeyDown
  2019.         Send RegisterComEvent -604 msg_OnComKeyUp
  2020.         Send RegisterComEvent -603 msg_OnComKeyPress
  2021.         Send RegisterComEvent -606 msg_OnComMouseMove
  2022.         Send RegisterComEvent -605 msg_OnComMouseDown
  2023.         Send RegisterComEvent -607 msg_OnComMouseUp
  2024.         Send RegisterComEvent -600 msg_OnComClick
  2025.         Send RegisterComEvent -601 msg_OnComDblClick
  2026.         Send RegisterComEvent 3011 msg_OnComOpenStateChange
  2027.         Send RegisterComEvent 3012 msg_OnComPlayStateChange
  2028.         Send RegisterComEvent 3001 msg_OnComScriptCommand
  2029.         Send RegisterComEvent 3003 msg_OnComBuffering
  2030.         Send RegisterComEvent 3010 msg_OnComError
  2031.         Send RegisterComEvent 3006 msg_OnComMarkerHit
  2032.         Send RegisterComEvent 3009 msg_OnComWarning
  2033.         Send RegisterComEvent 3008 msg_OnComNewStream
  2034.         Send RegisterComEvent 3004 msg_OnComDisconnect
  2035.         Send RegisterComEvent 2 msg_OnComPositionChange
  2036.         Send RegisterComEvent 51 msg_OnComDisplayModeChange
  2037.         Send RegisterComEvent -609 msg_OnComReadyStateChange
  2038.     End_Procedure
  2039. End_Class
  2040.  
  2041. // CoClass
  2042. // ProgID: MediaPlayer.MediaPlayer.1
  2043. // CLSID: {22D6F312-B0F6-11D0-94AB-0080C74C7E95}
  2044. // Windows Media Player
  2045. // Visual DataFlex 12.0 Migration Utility, added July 18, 2006: 14:08:16
  2046. #IF (!@ >= 120)
  2047. { OverrideProperty=Size InitialValue=70,70 }
  2048. { OverrideProperty=peAutoCreate InitialValue=acDeferredAutoCreate }
  2049. { OverrideProperty=peAutoCreate EnumList="acNoAutoCreate, acAutoCreate, acDeferredAutoCreate" }
  2050. #ENDIF
  2051. // Visual DataFlex 12.0 Migration Utility, added July 18, 2006: 14:08:17
  2052. #IF (!@ >= 120)
  2053. { CLSID="{22D6F312-B0F6-11D0-94AB-0080C74C7E95}" }
  2054. #ENDIF
  2055. Class cComMediaPlayer is a cComActiveXControl
  2056.     Import_Class_Protocol cComIMediaPlayer2
  2057.     Import_Class_Protocol cCom_MediaPlayerEvents
  2058.  
  2059.     Procedure Construct_Object
  2060.         Forward Send Construct_Object
  2061.         Set psProgID to "{22D6F312-B0F6-11D0-94AB-0080C74C7E95}"
  2062.         Set peAutoCreate to acDeferredAutoCreate
  2063.     End_Procedure
  2064. End_Class
  2065.  
  2066. // CLSID: {00000000-0000-0000-C000-000000000046}
  2067. Class cComIUnknown is a Mixin
  2068. End_Class
  2069.  
  2070. // CoClass
  2071. // CLSID: {5C85DCB0-F967-11D0-81ED-00C04FC99D4C}
  2072. // Windows Media Player Network Property Page
  2073. Class cComppDShowNet is a cComAutomationObject
  2074.     Import_Class_Protocol cComIUnknown
  2075.  
  2076.     Procedure Construct_Object
  2077.         Forward Send Construct_Object
  2078.         Set psProgID to "{5C85DCB0-F967-11D0-81ED-00C04FC99D4C}"
  2079.         Set peAutoCreate to acNoAutoCreate
  2080.     End_Procedure
  2081. End_Class
  2082.  
  2083. // CoClass
  2084. // CLSID: {C0CD59AE-020D-11D1-81F2-00C04FC99D4C}
  2085. // Windows Media Player Playback Property Page
  2086. Class cComppDShowPlay is a cComAutomationObject
  2087.     Import_Class_Protocol cComIUnknown
  2088.  
  2089.     Procedure Construct_Object
  2090.         Forward Send Construct_Object
  2091.         Set psProgID to "{C0CD59AE-020D-11D1-81F2-00C04FC99D4C}"
  2092.         Set peAutoCreate to acNoAutoCreate
  2093.     End_Procedure
  2094. End_Class
  2095.  
  2096. // CoClass
  2097. // CLSID: {2FEB9591-50CF-11D1-A6DF-006097C4E476}
  2098. // ppDSMeta Class
  2099. Class cComppDSMeta is a cComAutomationObject
  2100.     Import_Class_Protocol cComIUnknown
  2101.  
  2102.     Procedure Construct_Object
  2103.         Forward Send Construct_Object
  2104.         Set psProgID to "{2FEB9591-50CF-11D1-A6DF-006097C4E476}"
  2105.         Set peAutoCreate to acNoAutoCreate
  2106.     End_Procedure
  2107. End_Class
  2108.  
  2109. // CoClass
  2110. // CLSID: {BB314F91-A010-11D1-A75A-006097C4E476}
  2111. // ppDSCnnl Class
  2112. Class cComppDSCnnl is a cComAutomationObject
  2113.     Import_Class_Protocol cComIUnknown
  2114.  
  2115.     Procedure Construct_Object
  2116.         Forward Send Construct_Object
  2117.         Set psProgID to "{BB314F91-A010-11D1-A75A-006097C4E476}"
  2118.         Set peAutoCreate to acNoAutoCreate
  2119.     End_Procedure
  2120. End_Class
  2121.  
  2122. // CoClass
  2123. // CLSID: {31C48C31-70B0-11D1-A708-006097C4E476}
  2124. // ppDSClip Class
  2125. Class cComppDSClip is a cComAutomationObject
  2126.     Import_Class_Protocol cComIUnknown
  2127.  
  2128.     Procedure Construct_Object
  2129.         Forward Send Construct_Object
  2130.         Set psProgID to "{31C48C31-70B0-11D1-A708-006097C4E476}"
  2131.         Set peAutoCreate to acNoAutoCreate
  2132.     End_Procedure
  2133. End_Class
  2134.  
  2135. // CoClass
  2136. // CLSID: {31C48C32-70B0-11D1-A708-006097C4E476}
  2137. // ppDSDetl Class
  2138. Class cComppDSDetl is a cComAutomationObject
  2139.     Import_Class_Protocol cComIUnknown
  2140.  
  2141.     Procedure Construct_Object
  2142.         Forward Send Construct_Object
  2143.         Set psProgID to "{31C48C32-70B0-11D1-A708-006097C4E476}"
  2144.         Set peAutoCreate to acNoAutoCreate
  2145.     End_Procedure
  2146. End_Class
  2147.  
  2148. // CoClass
  2149. // CLSID: {2AFA62E2-5548-11D1-A6E1-006097C4E476}
  2150. // ppDSApp Class
  2151. Class cComppDSApp is a cComAutomationObject
  2152.     Import_Class_Protocol cComIUnknown
  2153.  
  2154.     Procedure Construct_Object
  2155.         Forward Send Construct_Object
  2156.         Set psProgID to "{2AFA62E2-5548-11D1-A6E1-006097C4E476}"
  2157.         Set peAutoCreate to acNoAutoCreate
  2158.     End_Procedure
  2159. End_Class
  2160.  
  2161. // CoClass
  2162. // CLSID: {8C4EB103-516F-11D1-A6DF-006097C4E476}
  2163. // ppDSPropAdv Class
  2164. Class cComppDSPropAdv is a cComAutomationObject
  2165.     Import_Class_Protocol cComIUnknown
  2166.  
  2167.     Procedure Construct_Object
  2168.         Forward Send Construct_Object
  2169.         Set psProgID to "{8C4EB103-516F-11D1-A6DF-006097C4E476}"
  2170.         Set peAutoCreate to acNoAutoCreate
  2171.     End_Procedure
  2172. End_Class
  2173.  
  2174. // CoClass
  2175. // CLSID: {AE1A5812-5230-11D1-A6E0-006097C4E476}
  2176. // ppDSView Class
  2177. Class cComppDSView is a cComAutomationObject
  2178.     Import_Class_Protocol cComIUnknown
  2179.  
  2180.     Procedure Construct_Object
  2181.         Forward Send Construct_Object
  2182.         Set psProgID to "{AE1A5812-5230-11D1-A6E0-006097C4E476}"
  2183.         Set peAutoCreate to acNoAutoCreate
  2184.     End_Procedure
  2185. End_Class
  2186.  
  2187. // CoClass
  2188. // CLSID: {AE1A5813-5230-11D1-A6E0-006097C4E476}
  2189. // ppDSOAdv Class
  2190. Class cComppDSOAdv is a cComAutomationObject
  2191.     Import_Class_Protocol cComIUnknown
  2192.  
  2193.     Procedure Construct_Object
  2194.         Forward Send Construct_Object
  2195.         Set psProgID to "{AE1A5813-5230-11D1-A6E0-006097C4E476}"
  2196.         Set peAutoCreate to acNoAutoCreate
  2197.     End_Procedure
  2198. End_Class
  2199.  
  2200. // CLSID: {3DA2AA3A-3D96-11D2-9BD2-204C4F4F5020}
  2201. // IAsyncPProt Interface
  2202. Class cComIAsyncPProt is a Mixin
  2203. End_Class
  2204.  
  2205. // _IAsyncPProtEvents Interface
  2206. Class cCom_IAsyncPProtEvents is a Mixin
  2207.  
  2208.     Procedure RegisterComEvents
  2209.     End_Procedure
  2210. End_Class
  2211.  
  2212. // CoClass
  2213. // ProgID: Mmedia.AsyncPProt.1
  2214. // CLSID: {3DA2AA3B-3D96-11D2-9BD2-204C4F4F5020}
  2215. // AsyncPProt Class
  2216. Class cComAsyncPProt is a cComAutomationObject
  2217.     Import_Class_Protocol cComIAsyncPProt
  2218.     Import_Class_Protocol cCom_IAsyncPProtEvents
  2219.  
  2220.     Procedure Construct_Object
  2221.         Forward Send Construct_Object
  2222.         Set psProgID to "{3DA2AA3B-3D96-11D2-9BD2-204C4F4F5020}"
  2223.         Set peAutoCreate to acNoAutoCreate
  2224.     End_Procedure
  2225. End_Class
  2226.  
  2227. // CLSID: {3DA2AA3D-3D96-11D2-9BD2-204C4F4F5020}
  2228. // IAsyncMHandler Interface
  2229. Class cComIAsyncMHandler is a Mixin
  2230. End_Class
  2231.  
  2232. // CoClass
  2233. // ProgID: Mmedia.AsyncMHandler.1
  2234. // CLSID: {3DA2AA3E-3D96-11D2-9BD2-204C4F4F5020}
  2235. // AsyncMHandler Class
  2236. Class cComAsyncMHandler is a cComAutomationObject
  2237.     Import_Class_Protocol cComIAsyncMHandler
  2238.  
  2239.     Procedure Construct_Object
  2240.         Forward Send Construct_Object
  2241.         Set psProgID to "{3DA2AA3E-3D96-11D2-9BD2-204C4F4F5020}"
  2242.         Set peAutoCreate to acNoAutoCreate
  2243.     End_Procedure
  2244. End_Class
  2245.  
  2246. // CLSID: {9C2263AF-3E3C-11D2-9BD3-204C4F4F5020}
  2247. // IRadioPlayer Interface
  2248. Class cComIRadioPlayer is a Mixin
  2249.  
  2250.     Procedure ComBindRadioMemory
  2251.         Handle hDispatchDriver
  2252.         Get phDispatchDriver to hDispatchDriver
  2253.         Send InvokeComMethod to hDispatchDriver 17 OLE_VT_VOID
  2254.     End_Procedure
  2255.  
  2256.     Procedure ComReleaseRadio
  2257.         Handle hDispatchDriver
  2258.         Get phDispatchDriver to hDispatchDriver
  2259.         Send InvokeComMethod to hDispatchDriver 18 OLE_VT_VOID
  2260.     End_Procedure
  2261.  
  2262.     Function ComRegisterEvent String llbszEvent Returns Integer
  2263.         Handle hDispatchDriver
  2264.         Integer retVal
  2265.         Get phDispatchDriver to hDispatchDriver
  2266.         Send PrepareParams to hDispatchDriver 1
  2267.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbszEvent
  2268.         Get InvokeComMethod of hDispatchDriver 5 OLE_VT_I4 to retVal
  2269.         Function_Return retVal
  2270.     End_Function
  2271.  
  2272.     Function ComRegisterWindow Integer ll__MIDL_0012 UInteger lldwMessage UInteger lldwCodeSet Returns Integer
  2273.         Handle hDispatchDriver
  2274.         Integer retVal
  2275.         Get phDispatchDriver to hDispatchDriver
  2276.         Send PrepareParams to hDispatchDriver 3
  2277.         Send DefineParam to hDispatchDriver OLE_VT_I4 ll__MIDL_0012
  2278.         Send DefineParam to hDispatchDriver OLE_VT_UI4 lldwMessage
  2279.         Send DefineParam to hDispatchDriver OLE_VT_UI4 lldwCodeSet
  2280.         Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
  2281.         Function_Return retVal
  2282.     End_Function
  2283.  
  2284.     Function ComGetSection Returns String
  2285.         Handle hDispatchDriver
  2286.         String retVal
  2287.         Get phDispatchDriver to hDispatchDriver
  2288.         Get InvokeComMethod of hDispatchDriver 9 OLE_VT_BSTR to retVal
  2289.         Function_Return retVal
  2290.     End_Function
  2291.  
  2292.     Procedure ComUnregister Integer lllRegister
  2293.         Handle hDispatchDriver
  2294.         Get phDispatchDriver to hDispatchDriver
  2295.         Send PrepareParams to hDispatchDriver 1
  2296.         Send DefineParam to hDispatchDriver OLE_VT_I4 lllRegister
  2297.         Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
  2298.     End_Procedure
  2299.  
  2300.     Function ComGetInstanceCount Returns Integer
  2301.         Handle hDispatchDriver
  2302.         Integer retVal
  2303.         Get phDispatchDriver to hDispatchDriver
  2304.         Get InvokeComMethod of hDispatchDriver 20 OLE_VT_I4 to retVal
  2305.         Function_Return retVal
  2306.     End_Function
  2307.  
  2308.     Procedure ComPlay
  2309.         Handle hDispatchDriver
  2310.         Get phDispatchDriver to hDispatchDriver
  2311.         Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
  2312.     End_Procedure
  2313.  
  2314.     Procedure ComStop
  2315.         Handle hDispatchDriver
  2316.         Get phDispatchDriver to hDispatchDriver
  2317.         Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
  2318.     End_Procedure
  2319.  
  2320.     Procedure Set ComUrl String value
  2321.         Handle hDispatchDriver
  2322.         Get phDispatchDriver to hDispatchDriver
  2323.         Send PrepareParams to hDispatchDriver 1
  2324.         Set ComProperty of hDispatchDriver 1 OLE_VT_BSTR to value
  2325.     End_Procedure
  2326.  
  2327.     Procedure Set ComVolume Integer value
  2328.         Handle hDispatchDriver
  2329.         Get phDispatchDriver to hDispatchDriver
  2330.         Send PrepareParams to hDispatchDriver 1
  2331.         Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
  2332.     End_Procedure
  2333.  
  2334.     Procedure Set ComMute Boolean value
  2335.         Handle hDispatchDriver
  2336.         Get phDispatchDriver to hDispatchDriver
  2337.         Send PrepareParams to hDispatchDriver 1
  2338.         Set ComProperty of hDispatchDriver 3 OLE_VT_BOOL to value
  2339.     End_Procedure
  2340.  
  2341.     Procedure ComGetStatus Variant llplVolume Variant llpfMute Variant llpfPlay Variant ll__MIDL_0013 Variant ll__MIDL_0014 Variant ll__MIDL_0015 Variant ll__MIDL_0016 Variant ll__MIDL_0017 Variant ll__MIDL_0018 Variant ll__MIDL_0019
  2342.         Handle hDispatchDriver
  2343.         Get phDispatchDriver to hDispatchDriver
  2344.         Send PrepareParams to hDispatchDriver 10
  2345.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llplVolume
  2346.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llpfMute
  2347.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llpfPlay
  2348.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) ll__MIDL_0013
  2349.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) ll__MIDL_0014
  2350.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) ll__MIDL_0015
  2351.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) ll__MIDL_0016
  2352.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) ll__MIDL_0017
  2353.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) ll__MIDL_0018
  2354.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) ll__MIDL_0019
  2355.         Send InvokeComMethod to hDispatchDriver 11 OLE_VT_VOID
  2356.     End_Procedure
  2357.  
  2358.     Procedure ComGetState Variant llplOpenState Variant llpfBuffering Variant llplBufferingPercent Variant llplQuality
  2359.         Handle hDispatchDriver
  2360.         Get phDispatchDriver to hDispatchDriver
  2361.         Send PrepareParams to hDispatchDriver 4
  2362.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llplOpenState
  2363.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llpfBuffering
  2364.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llplBufferingPercent
  2365.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llplQuality
  2366.         Send InvokeComMethod to hDispatchDriver 19 OLE_VT_VOID
  2367.     End_Procedure
  2368. End_Class
  2369.  
  2370. // _IRadioPlayerEvents Interface
  2371. Class cCom_IRadioPlayerEvents is a Mixin
  2372.  
  2373.     Procedure OnComStateChange String llbszUrl Boolean llfPlay Integer lllVolume Boolean llfMute
  2374.     End_Procedure
  2375.  
  2376.     Procedure RegisterComEvents
  2377.         Send RegisterComEvent 12 msg_OnComStateChange
  2378.     End_Procedure
  2379. End_Class
  2380.  
  2381. // CoClass
  2382. // ProgID: Mmedia.RadioPlayer.1
  2383. // CLSID: {9C2263B0-3E3C-11D2-9BD3-204C4F4F5020}
  2384. // RadioPlayer Class
  2385. Class cComRadioPlayer is a cComAutomationObject
  2386.     Import_Class_Protocol cComIRadioPlayer
  2387.     Import_Class_Protocol cCom_IRadioPlayerEvents
  2388.  
  2389.     Procedure Construct_Object
  2390.         Forward Send Construct_Object
  2391.         Set psProgID to "{9C2263B0-3E3C-11D2-9BD3-204C4F4F5020}"
  2392.         Set peAutoCreate to acNoAutoCreate
  2393.     End_Procedure
  2394. End_Class
  2395.  
  2396. // CoClass
  2397. // ProgID: Mmedia.RadioServer.1
  2398. // CLSID: {8E71888A-423F-11D2-876E-00A0C9082467}
  2399. // RadioServer Class
  2400. Class cComRadioServer is a cComAutomationObject
  2401.     Import_Class_Protocol cComIRadioPlayer
  2402.     Import_Class_Protocol cCom_IRadioPlayerEvents
  2403.  
  2404.     Procedure Construct_Object
  2405.         Forward Send Construct_Object
  2406.         Set psProgID to "{8E71888A-423F-11D2-876E-00A0C9082467}"
  2407.         Set peAutoCreate to acNoAutoCreate
  2408.     End_Procedure
  2409. End_Class
  2410.  
  2411. // CLSID: {8E718881-423F-11D2-876E-00A0C9082467}
  2412. // IRadioBand Interface
  2413. Class cComIRadioBand is a Mixin
  2414.  
  2415.     Procedure ComCreate Variant llphwnd Integer llhwndParent
  2416.         Handle hDispatchDriver
  2417.         Get phDispatchDriver to hDispatchDriver
  2418.         Send PrepareParams to hDispatchDriver 2
  2419.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llphwnd
  2420.         Send DefineParam to hDispatchDriver OLE_VT_I4 llhwndParent
  2421.         Send InvokeComMethod to hDispatchDriver 1610743808 OLE_VT_VOID
  2422.     End_Procedure
  2423. End_Class
  2424.  
  2425. // CoClass
  2426. // ProgID: Mmedia.RadioBand.1
  2427. // CLSID: {8E718888-423F-11D2-876E-00A0C9082467}
  2428. // RadioBand Class
  2429. Class cComRadioBand is a cComAutomationObject
  2430.     Import_Class_Protocol cComIRadioBand
  2431.  
  2432.     Procedure Construct_Object
  2433.         Forward Send Construct_Object
  2434.         Set psProgID to "{8E718888-423F-11D2-876E-00A0C9082467}"
  2435.         Set peAutoCreate to acNoAutoCreate
  2436.     End_Procedure
  2437. End_Class
  2438.  
  2439. // CoClass
  2440. // CLSID: {1D1237A0-6CD6-11D2-96BA-00104B242E64}
  2441. // ppDSFile Class
  2442. Class cComppDSFile is a cComAutomationObject
  2443.     Import_Class_Protocol cComIUnknown
  2444.  
  2445.     Procedure Construct_Object
  2446.         Forward Send Construct_Object
  2447.         Set psProgID to "{1D1237A0-6CD6-11D2-96BA-00104B242E64}"
  2448.         Set peAutoCreate to acNoAutoCreate
  2449.     End_Procedure
  2450. End_Class
  2451.  
  2452. // CLSID: {22D6F311-B0F6-11D0-94AB-0080C74C7E95}
  2453. // IMediaPlayer Interface
  2454. Class cComIMediaPlayer is a cComAutomationObject
  2455.  
  2456.     // Returns or sets the current position in the file
  2457.     Function ComCurrentPosition Returns Real
  2458.         Handle hDispatchDriver
  2459.         Real retVal
  2460.         Get phDispatchDriver to hDispatchDriver
  2461.         Get InvokeComMethod of hDispatchDriver 1027 OLE_VT_R8 to retVal
  2462.         Function_Return retVal
  2463.     End_Function
  2464.  
  2465.     // Returns or sets the current position in the file
  2466.     Procedure Set ComCurrentPosition Real value
  2467.         Handle hDispatchDriver
  2468.         Get phDispatchDriver to hDispatchDriver
  2469.         Send PrepareParams to hDispatchDriver 1
  2470.         Set ComProperty of hDispatchDriver 1027 OLE_VT_R8 to value
  2471.     End_Procedure
  2472.  
  2473.     // Returns the play duration of the file
  2474.     Function ComDuration Returns Real
  2475.         Handle hDispatchDriver
  2476.         Real retVal
  2477.         Get phDispatchDriver to hDispatchDriver
  2478.         Get InvokeComMethod of hDispatchDriver 1003 OLE_VT_R8 to retVal
  2479.         Function_Return retVal
  2480.     End_Function
  2481.  
  2482.     // Returns the original width of the source images
  2483.     Function ComImageSourceWidth Returns Integer
  2484.         Handle hDispatchDriver
  2485.         Integer retVal
  2486.         Get phDispatchDriver to hDispatchDriver
  2487.         Get InvokeComMethod of hDispatchDriver 1001 OLE_VT_I4 to retVal
  2488.         Function_Return retVal
  2489.     End_Function
  2490.  
  2491.     // Returns the original height of the source images
  2492.     Function ComImageSourceHeight Returns Integer
  2493.         Handle hDispatchDriver
  2494.         Integer retVal
  2495.         Get phDispatchDriver to hDispatchDriver
  2496.         Get InvokeComMethod of hDispatchDriver 1002 OLE_VT_I4 to retVal
  2497.         Function_Return retVal
  2498.     End_Function
  2499.  
  2500.     // Returns the number of markers in the file
  2501.     Function ComMarkerCount Returns Integer
  2502.         Handle hDispatchDriver
  2503.         Integer retVal
  2504.         Get phDispatchDriver to hDispatchDriver
  2505.         Get InvokeComMethod of hDispatchDriver 1010 OLE_VT_I4 to retVal
  2506.         Function_Return retVal
  2507.     End_Function
  2508.  
  2509.     // Returns whether or not the file can be fast forwarded or reversed
  2510.     Function ComCanScan Returns Boolean
  2511.         Handle hDispatchDriver
  2512.         Boolean retVal
  2513.         Get phDispatchDriver to hDispatchDriver
  2514.         Get InvokeComMethod of hDispatchDriver 1011 OLE_VT_BOOL to retVal
  2515.         Function_Return retVal
  2516.     End_Function
  2517.  
  2518.     // Returns whether or not the file can be seeked into
  2519.     Function ComCanSeek Returns Boolean
  2520.         Handle hDispatchDriver
  2521.         Boolean retVal
  2522.         Get phDispatchDriver to hDispatchDriver
  2523.         Get InvokeComMethod of hDispatchDriver 1012 OLE_VT_BOOL to retVal
  2524.         Function_Return retVal
  2525.     End_Function
  2526.  
  2527.     // Returns whether or not the file can be seeked into by markers
  2528.     Function ComCanSeekToMarkers Returns Boolean
  2529.         Handle hDispatchDriver
  2530.         Boolean retVal
  2531.         Get phDispatchDriver to hDispatchDriver
  2532.         Get InvokeComMethod of hDispatchDriver 1047 OLE_VT_BOOL to retVal
  2533.         Function_Return retVal
  2534.     End_Function
  2535.  
  2536.     // Returns or sets the current marker number
  2537.     Function ComCurrentMarker Returns Integer
  2538.         Handle hDispatchDriver
  2539.         Integer retVal
  2540.         Get phDispatchDriver to hDispatchDriver
  2541.         Get InvokeComMethod of hDispatchDriver 1029 OLE_VT_I4 to retVal
  2542.         Function_Return retVal
  2543.     End_Function
  2544.  
  2545.     // Returns or sets the current marker number
  2546.     Procedure Set ComCurrentMarker Integer value
  2547.         Handle hDispatchDriver
  2548.         Get phDispatchDriver to hDispatchDriver
  2549.         Send PrepareParams to hDispatchDriver 1
  2550.         Set ComProperty of hDispatchDriver 1029 OLE_VT_I4 to value
  2551.     End_Procedure
  2552.  
  2553.     // Returns or sets the current file name and path
  2554.     Function ComFileName Returns String
  2555.         Handle hDispatchDriver
  2556.         String retVal
  2557.         Get phDispatchDriver to hDispatchDriver
  2558.         Get InvokeComMethod of hDispatchDriver 1026 OLE_VT_BSTR to retVal
  2559.         Function_Return retVal
  2560.     End_Function
  2561.  
  2562.     // Returns or sets the current file name and path
  2563.     Procedure Set ComFileName String value
  2564.         Handle hDispatchDriver
  2565.         Get phDispatchDriver to hDispatchDriver
  2566.         Send PrepareParams to hDispatchDriver 1
  2567.         Set ComProperty of hDispatchDriver 1026 OLE_VT_BSTR to value
  2568.     End_Procedure
  2569.  
  2570.     // Returns the source path of the file
  2571.     Function ComSourceLink Returns String
  2572.         Handle hDispatchDriver
  2573.         String retVal
  2574.         Get phDispatchDriver to hDispatchDriver
  2575.         Get InvokeComMethod of hDispatchDriver 1009 OLE_VT_BSTR to retVal
  2576.         Function_Return retVal
  2577.     End_Function
  2578.  
  2579.     // Returns the creation date of the file
  2580.     Function ComCreationDate Returns DateTime
  2581.         Handle hDispatchDriver
  2582.         DateTime retVal
  2583.         Get phDispatchDriver to hDispatchDriver
  2584.         Get InvokeComMethod of hDispatchDriver 1036 OLE_VT_DATE to retVal
  2585.         Function_Return retVal
  2586.     End_Function
  2587.  
  2588.     // Returns the error correction type of the file
  2589.     Function ComErrorCorrection Returns String
  2590.         Handle hDispatchDriver
  2591.         String retVal
  2592.         Get phDispatchDriver to hDispatchDriver
  2593.         Get InvokeComMethod of hDispatchDriver 1038 OLE_VT_BSTR to retVal
  2594.         Function_Return retVal
  2595.     End_Function
  2596.  
  2597.     // Returns the bandwidth of the file in bits per second
  2598.     Function ComBandwidth Returns Integer
  2599.         Handle hDispatchDriver
  2600.         Integer retVal
  2601.         Get phDispatchDriver to hDispatchDriver
  2602.         Get InvokeComMethod of hDispatchDriver 1037 OLE_VT_I4 to retVal
  2603.         Function_Return retVal
  2604.     End_Function
  2605.  
  2606.     // Returns the protocol used to receive data
  2607.     Function ComSourceProtocol Returns Integer
  2608.         Handle hDispatchDriver
  2609.         Integer retVal
  2610.         Get phDispatchDriver to hDispatchDriver
  2611.         Get InvokeComMethod of hDispatchDriver 1060 OLE_VT_I4 to retVal
  2612.         Function_Return retVal
  2613.     End_Function
  2614.  
  2615.     // Returns the number of packets received
  2616.     Function ComReceivedPackets Returns Integer
  2617.         Handle hDispatchDriver
  2618.         Integer retVal
  2619.         Get phDispatchDriver to hDispatchDriver
  2620.         Get InvokeComMethod of hDispatchDriver 1039 OLE_VT_I4 to retVal
  2621.         Function_Return retVal
  2622.     End_Function
  2623.  
  2624.     // Returns the number of packets recovered
  2625.     Function ComRecoveredPackets Returns Integer
  2626.         Handle hDispatchDriver
  2627.         Integer retVal
  2628.         Get phDispatchDriver to hDispatchDriver
  2629.         Get InvokeComMethod of hDispatchDriver 1040 OLE_VT_I4 to retVal
  2630.         Function_Return retVal
  2631.     End_Function
  2632.  
  2633.     // Returns the number of packets lost
  2634.     Function ComLostPackets Returns Integer
  2635.         Handle hDispatchDriver
  2636.         Integer retVal
  2637.         Get phDispatchDriver to hDispatchDriver
  2638.         Get InvokeComMethod of hDispatchDriver 1041 OLE_VT_I4 to retVal
  2639.         Function_Return retVal
  2640.     End_Function
  2641.  
  2642.     // Returns the percentage of packets received in the last 30 seconds
  2643.     Function ComReceptionQuality Returns Integer
  2644.         Handle hDispatchDriver
  2645.         Integer retVal
  2646.         Get phDispatchDriver to hDispatchDriver
  2647.         Get InvokeComMethod of hDispatchDriver 1042 OLE_VT_I4 to retVal
  2648.         Function_Return retVal
  2649.     End_Function
  2650.  
  2651.     // Returns the number of times buffering occurred during playback
  2652.     Function ComBufferingCount Returns Integer
  2653.         Handle hDispatchDriver
  2654.         Integer retVal
  2655.         Get phDispatchDriver to hDispatchDriver
  2656.         Get InvokeComMethod of hDispatchDriver 1043 OLE_VT_I4 to retVal
  2657.         Function_Return retVal
  2658.     End_Function
  2659.  
  2660.     // Returns whether or not the source is a broadcast
  2661.     Function ComIsBroadcast Returns Boolean
  2662.         Handle hDispatchDriver
  2663.         Boolean retVal
  2664.         Get phDispatchDriver to hDispatchDriver
  2665.         Get InvokeComMethod of hDispatchDriver 1058 OLE_VT_BOOL to retVal
  2666.         Function_Return retVal
  2667.     End_Function
  2668.  
  2669.     // Returns the percentage of buffering completed
  2670.     Function ComBufferingProgress Returns Integer
  2671.         Handle hDispatchDriver
  2672.         Integer retVal
  2673.         Get phDispatchDriver to hDispatchDriver
  2674.         Get InvokeComMethod of hDispatchDriver 1080 OLE_VT_I4 to retVal
  2675.         Function_Return retVal
  2676.     End_Function
  2677.  
  2678.     // Returns the name of the station
  2679.     Function ComChannelName Returns String
  2680.         Handle hDispatchDriver
  2681.         String retVal
  2682.         Get phDispatchDriver to hDispatchDriver
  2683.         Get InvokeComMethod of hDispatchDriver 1050 OLE_VT_BSTR to retVal
  2684.         Function_Return retVal
  2685.     End_Function
  2686.  
  2687.     // Returns the description of the station
  2688.     Function ComChannelDescription Returns String
  2689.         Handle hDispatchDriver
  2690.         String retVal
  2691.         Get phDispatchDriver to hDispatchDriver
  2692.         Get InvokeComMethod of hDispatchDriver 1051 OLE_VT_BSTR to retVal
  2693.         Function_Return retVal
  2694.     End_Function
  2695.  
  2696.     // Returns the location of the station metafile
  2697.     Function ComChannelURL Returns String
  2698.         Handle hDispatchDriver
  2699.         String retVal
  2700.         Get phDispatchDriver to hDispatchDriver
  2701.         Get InvokeComMethod of hDispatchDriver 1052 OLE_VT_BSTR to retVal
  2702.         Function_Return retVal
  2703.     End_Function
  2704.  
  2705.     // Returns the contact address of the station
  2706.     Function ComContactAddress Returns String
  2707.         Handle hDispatchDriver
  2708.         String retVal
  2709.         Get phDispatchDriver to hDispatchDriver
  2710.         Get InvokeComMethod of hDispatchDriver 1053 OLE_VT_BSTR to retVal
  2711.         Function_Return retVal
  2712.     End_Function
  2713.  
  2714.     // Returns the contact phone number of the station
  2715.     Function ComContactPhone Returns String
  2716.         Handle hDispatchDriver
  2717.         String retVal
  2718.         Get phDispatchDriver to hDispatchDriver
  2719.         Get InvokeComMethod of hDispatchDriver 1054 OLE_VT_BSTR to retVal
  2720.         Function_Return retVal
  2721.     End_Function
  2722.  
  2723.     // Returns the contact e-mail address of the station
  2724.     Function ComContactEmail Returns String
  2725.         Handle hDispatchDriver
  2726.         String retVal
  2727.         Get phDispatchDriver to hDispatchDriver
  2728.         Get InvokeComMethod of hDispatchDriver 1055 OLE_VT_BSTR to retVal
  2729.         Function_Return retVal
  2730.     End_Function
  2731.  
  2732.     // Returns the control's buffering time
  2733.     Function ComBufferingTime Returns Real
  2734.         Handle hDispatchDriver
  2735.         Real retVal
  2736.         Get phDispatchDriver to hDispatchDriver
  2737.         Get InvokeComMethod of hDispatchDriver 1070 OLE_VT_R8 to retVal
  2738.         Function_Return retVal
  2739.     End_Function
  2740.  
  2741.     // Returns the control's buffering time
  2742.     Procedure Set ComBufferingTime Real value
  2743.         Handle hDispatchDriver
  2744.         Get phDispatchDriver to hDispatchDriver
  2745.         Send PrepareParams to hDispatchDriver 1
  2746.         Set ComProperty of hDispatchDriver 1070 OLE_VT_R8 to value
  2747.     End_Procedure
  2748.  
  2749.     // Returns or sets whether or not file playback is automatically started
  2750.     Function ComAutoStart Returns Boolean
  2751.         Handle hDispatchDriver
  2752.         Boolean retVal
  2753.         Get phDispatchDriver to hDispatchDriver
  2754.         Get InvokeComMethod of hDispatchDriver 1017 OLE_VT_BOOL to retVal
  2755.         Function_Return retVal
  2756.     End_Function
  2757.  
  2758.     // Returns or sets whether or not file playback is automatically started
  2759.     Procedure Set ComAutoStart Boolean value
  2760.         Handle hDispatchDriver
  2761.         Get phDispatchDriver to hDispatchDriver
  2762.         Send PrepareParams to hDispatchDriver 1
  2763.         Set ComProperty of hDispatchDriver 1017 OLE_VT_BOOL to value
  2764.     End_Procedure
  2765.  
  2766.     // Returns or sets whether or not a file is rewound at the end of playback
  2767.     Function ComAutoRewind Returns Boolean
  2768.         Handle hDispatchDriver
  2769.         Boolean retVal
  2770.         Get phDispatchDriver to hDispatchDriver
  2771.         Get InvokeComMethod of hDispatchDriver 1018 OLE_VT_BOOL to retVal
  2772.         Function_Return retVal
  2773.     End_Function
  2774.  
  2775.     // Returns or sets whether or not a file is rewound at the end of playback
  2776.     Procedure Set ComAutoRewind Boolean value
  2777.         Handle hDispatchDriver
  2778.         Get phDispatchDriver to hDispatchDriver
  2779.         Send PrepareParams to hDispatchDriver 1
  2780.         Set ComProperty of hDispatchDriver 1018 OLE_VT_BOOL to value
  2781.     End_Procedure
  2782.  
  2783.     // Returns or sets the current playback rate
  2784.     Function ComRate Returns Real
  2785.         Handle hDispatchDriver
  2786.         Real retVal
  2787.         Get phDispatchDriver to hDispatchDriver
  2788.         Get InvokeComMethod of hDispatchDriver 1028 OLE_VT_R8 to retVal
  2789.         Function_Return retVal
  2790.     End_Function
  2791.  
  2792.     // Returns or sets the current playback rate
  2793.     Procedure Set ComRate Real value
  2794.         Handle hDispatchDriver
  2795.         Get phDispatchDriver to hDispatchDriver
  2796.         Send PrepareParams to hDispatchDriver 1
  2797.         Set ComProperty of hDispatchDriver 1028 OLE_VT_R8 to value
  2798.     End_Procedure
  2799.  
  2800.     // Returns or sets whether or not the control sends keyboard events
  2801.     Function ComSendKeyboardEvents Returns Boolean
  2802.         Handle hDispatchDriver
  2803.         Boolean retVal
  2804.         Get phDispatchDriver to hDispatchDriver
  2805.         Get InvokeComMethod of hDispatchDriver 1013 OLE_VT_BOOL to retVal
  2806.         Function_Return retVal
  2807.     End_Function
  2808.  
  2809.     // Returns or sets whether or not the control sends keyboard events
  2810.     Procedure Set ComSendKeyboardEvents Boolean value
  2811.         Handle hDispatchDriver
  2812.         Get phDispatchDriver to hDispatchDriver
  2813.         Send PrepareParams to hDispatchDriver 1
  2814.         Set ComProperty of hDispatchDriver 1013 OLE_VT_BOOL to value
  2815.     End_Procedure
  2816.  
  2817.     // Returns or sets whether or not the control sends mouse click events
  2818.     Function ComSendMouseClickEvents Returns Boolean
  2819.         Handle hDispatchDriver
  2820.         Boolean retVal
  2821.         Get phDispatchDriver to hDispatchDriver
  2822.         Get InvokeComMethod of hDispatchDriver 1014 OLE_VT_BOOL to retVal
  2823.         Function_Return retVal
  2824.     End_Function
  2825.  
  2826.     // Returns or sets whether or not the control sends mouse click events
  2827.     Procedure Set ComSendMouseClickEvents Boolean value
  2828.         Handle hDispatchDriver
  2829.         Get phDispatchDriver to hDispatchDriver
  2830.         Send PrepareParams to hDispatchDriver 1
  2831.         Set ComProperty of hDispatchDriver 1014 OLE_VT_BOOL to value
  2832.     End_Procedure
  2833.  
  2834.     // Returns or sets whether or not the control sends mouse move events
  2835.     Function ComSendMouseMoveEvents Returns Boolean
  2836.         Handle hDispatchDriver
  2837.         Boolean retVal
  2838.         Get phDispatchDriver to hDispatchDriver
  2839.         Get InvokeComMethod of hDispatchDriver 1015 OLE_VT_BOOL to retVal
  2840.         Function_Return retVal
  2841.     End_Function
  2842.  
  2843.     // Returns or sets whether or not the control sends mouse move events
  2844.     Procedure Set ComSendMouseMoveEvents Boolean value
  2845.         Handle hDispatchDriver
  2846.         Get phDispatchDriver to hDispatchDriver
  2847.         Send PrepareParams to hDispatchDriver 1
  2848.         Set ComProperty of hDispatchDriver 1015 OLE_VT_BOOL to value
  2849.     End_Procedure
  2850.  
  2851.     // Returns or sets the number of times a file plays
  2852.     Function ComPlayCount Returns Integer
  2853.         Handle hDispatchDriver
  2854.         Integer retVal
  2855.         Get phDispatchDriver to hDispatchDriver
  2856.         Get InvokeComMethod of hDispatchDriver 1030 OLE_VT_I4 to retVal
  2857.         Function_Return retVal
  2858.     End_Function
  2859.  
  2860.     // Returns or sets the number of times a file plays
  2861.     Procedure Set ComPlayCount Integer value
  2862.         Handle hDispatchDriver
  2863.         Get phDispatchDriver to hDispatchDriver
  2864.         Send PrepareParams to hDispatchDriver 1
  2865.         Set ComProperty of hDispatchDriver 1030 OLE_VT_I4 to value
  2866.     End_Procedure
  2867.  
  2868.     // Returns or sets whether or not clicking on the control starts file playback
  2869.     Function ComClickToPlay Returns Boolean
  2870.         Handle hDispatchDriver
  2871.         Boolean retVal
  2872.         Get phDispatchDriver to hDispatchDriver
  2873.         Get InvokeComMethod of hDispatchDriver 1025 OLE_VT_BOOL to retVal
  2874.         Function_Return retVal
  2875.     End_Function
  2876.  
  2877.     // Returns or sets whether or not clicking on the control starts file playback
  2878.     Procedure Set ComClickToPlay Boolean value
  2879.         Handle hDispatchDriver
  2880.         Get phDispatchDriver to hDispatchDriver
  2881.         Send PrepareParams to hDispatchDriver 1
  2882.         Set ComProperty of hDispatchDriver 1025 OLE_VT_BOOL to value
  2883.     End_Procedure
  2884.  
  2885.     // Returns or sets whether or not scanning is enabled on files that support it
  2886.     Function ComAllowScan Returns Boolean
  2887.         Handle hDispatchDriver
  2888.         Boolean retVal
  2889.         Get phDispatchDriver to hDispatchDriver
  2890.         Get InvokeComMethod of hDispatchDriver 1035 OLE_VT_BOOL to retVal
  2891.         Function_Return retVal
  2892.     End_Function
  2893.  
  2894.     // Returns or sets whether or not scanning is enabled on files that support it
  2895.     Procedure Set ComAllowScan Boolean value
  2896.         Handle hDispatchDriver
  2897.         Get phDispatchDriver to hDispatchDriver
  2898.         Send PrepareParams to hDispatchDriver 1
  2899.         Set ComProperty of hDispatchDriver 1035 OLE_VT_BOOL to value
  2900.     End_Procedure
  2901.  
  2902.     // Returns or sets whether or not a right mouse click invokes a context menu
  2903.     Function ComEnableContextMenu Returns Boolean
  2904.         Handle hDispatchDriver
  2905.         Boolean retVal
  2906.         Get phDispatchDriver to hDispatchDriver
  2907.         Get InvokeComMethod of hDispatchDriver 1021 OLE_VT_BOOL to retVal
  2908.         Function_Return retVal
  2909.     End_Function
  2910.  
  2911.     // Returns or sets whether or not a right mouse click invokes a context menu
  2912.     Procedure Set ComEnableContextMenu Boolean value
  2913.         Handle hDispatchDriver
  2914.         Get phDispatchDriver to hDispatchDriver
  2915.         Send PrepareParams to hDispatchDriver 1
  2916.         Set ComProperty of hDispatchDriver 1021 OLE_VT_BOOL to value
  2917.     End_Procedure
  2918.  
  2919.     // Returns or sets the cursor type
  2920.     Function ComCursorType Returns Integer
  2921.         Handle hDispatchDriver
  2922.         Integer retVal
  2923.         Get phDispatchDriver to hDispatchDriver
  2924.         Get InvokeComMethod of hDispatchDriver 1044 OLE_VT_I4 to retVal
  2925.         Function_Return retVal
  2926.     End_Function
  2927.  
  2928.     // Returns or sets the cursor type
  2929.     Procedure Set ComCursorType Integer value
  2930.         Handle hDispatchDriver
  2931.         Get phDispatchDriver to hDispatchDriver
  2932.         Send PrepareParams to hDispatchDriver 1
  2933.         Set ComProperty of hDispatchDriver 1044 OLE_VT_I4 to value
  2934.     End_Procedure
  2935.  
  2936.     // Returns the number of installable codecs used by the file
  2937.     Function ComCodecCount Returns Integer
  2938.         Handle hDispatchDriver
  2939.         Integer retVal
  2940.         Get phDispatchDriver to hDispatchDriver
  2941.         Get InvokeComMethod of hDispatchDriver 1057 OLE_VT_I4 to retVal
  2942.         Function_Return retVal
  2943.     End_Function
  2944.  
  2945.     // Returns or sets whether or not the display size can be set at run time
  2946.     Function ComAllowChangeDisplaySize Returns Boolean
  2947.         Handle hDispatchDriver
  2948.         Boolean retVal
  2949.         Get phDispatchDriver to hDispatchDriver
  2950.         Get InvokeComMethod of hDispatchDriver 1056 OLE_VT_BOOL to retVal
  2951.         Function_Return retVal
  2952.     End_Function
  2953.  
  2954.     // Returns or sets whether or not the display size can be set at run time
  2955.     Procedure Set ComAllowChangeDisplaySize Boolean value
  2956.         Handle hDispatchDriver
  2957.         Get phDispatchDriver to hDispatchDriver
  2958.         Send PrepareParams to hDispatchDriver 1
  2959.         Set ComProperty of hDispatchDriver 1056 OLE_VT_BOOL to value
  2960.     End_Procedure
  2961.  
  2962.     // Returns whether or not the duration is known
  2963.     Function ComIsDurationValid Returns Boolean
  2964.         Handle hDispatchDriver
  2965.         Boolean retVal
  2966.         Get phDispatchDriver to hDispatchDriver
  2967.         Get InvokeComMethod of hDispatchDriver 1059 OLE_VT_BOOL to retVal
  2968.         Function_Return retVal
  2969.     End_Function
  2970.  
  2971.     // Returns the open state of the control
  2972.     Function ComOpenState Returns Integer
  2973.         Handle hDispatchDriver
  2974.         Integer retVal
  2975.         Get phDispatchDriver to hDispatchDriver
  2976.         Get InvokeComMethod of hDispatchDriver 1061 OLE_VT_I4 to retVal
  2977.         Function_Return retVal
  2978.     End_Function
  2979.  
  2980.     // Returns or sets whether or not the control sends OpenStateChange events
  2981.     Function ComSendOpenStateChangeEvents Returns Boolean
  2982.         Handle hDispatchDriver
  2983.         Boolean retVal
  2984.         Get phDispatchDriver to hDispatchDriver
  2985.         Get InvokeComMethod of hDispatchDriver 1062 OLE_VT_BOOL to retVal
  2986.         Function_Return retVal
  2987.     End_Function
  2988.  
  2989.     // Returns or sets whether or not the control sends OpenStateChange events
  2990.     Procedure Set ComSendOpenStateChangeEvents Boolean value
  2991.         Handle hDispatchDriver
  2992.         Get phDispatchDriver to hDispatchDriver
  2993.         Send PrepareParams to hDispatchDriver 1
  2994.         Set ComProperty of hDispatchDriver 1062 OLE_VT_BOOL to value
  2995.     End_Procedure
  2996.  
  2997.     // Returns or sets whether or not the control sends Warning events
  2998.     Function ComSendWarningEvents Returns Boolean
  2999.         Handle hDispatchDriver
  3000.         Boolean retVal
  3001.         Get phDispatchDriver to hDispatchDriver
  3002.         Get InvokeComMethod of hDispatchDriver 1063 OLE_VT_BOOL to retVal
  3003.         Function_Return retVal
  3004.     End_Function
  3005.  
  3006.     // Returns or sets whether or not the control sends Warning events
  3007.     Procedure Set ComSendWarningEvents Boolean value
  3008.         Handle hDispatchDriver
  3009.         Get phDispatchDriver to hDispatchDriver
  3010.         Send PrepareParams to hDispatchDriver 1
  3011.         Set ComProperty of hDispatchDriver 1063 OLE_VT_BOOL to value
  3012.     End_Procedure
  3013.  
  3014.     // Returns or sets whether or not the control sends Error events
  3015.     Function ComSendErrorEvents Returns Boolean
  3016.         Handle hDispatchDriver
  3017.         Boolean retVal
  3018.         Get phDispatchDriver to hDispatchDriver
  3019.         Get InvokeComMethod of hDispatchDriver 1064 OLE_VT_BOOL to retVal
  3020.         Function_Return retVal
  3021.     End_Function
  3022.  
  3023.     // Returns or sets whether or not the control sends Error events
  3024.     Procedure Set ComSendErrorEvents Boolean value
  3025.         Handle hDispatchDriver
  3026.         Get phDispatchDriver to hDispatchDriver
  3027.         Send PrepareParams to hDispatchDriver 1
  3028.         Set ComProperty of hDispatchDriver 1064 OLE_VT_BOOL to value
  3029.     End_Procedure
  3030.  
  3031.     // Returns the play state of the control
  3032.     Function ComPlayState Returns OLEMPPlayStateConstants
  3033.         Handle hDispatchDriver
  3034.         OLEMPPlayStateConstants retVal
  3035.         Get phDispatchDriver to hDispatchDriver
  3036.         Get InvokeComMethod of hDispatchDriver 1068 OLE_VT_I4 to retVal
  3037.         Function_Return retVal
  3038.     End_Function
  3039.  
  3040.     // Returns or sets whether or not the control sends PlayStateChange events
  3041.     Function ComSendPlayStateChangeEvents Returns Boolean
  3042.         Handle hDispatchDriver
  3043.         Boolean retVal
  3044.         Get phDispatchDriver to hDispatchDriver
  3045.         Get InvokeComMethod of hDispatchDriver 1069 OLE_VT_BOOL to retVal
  3046.         Function_Return retVal
  3047.     End_Function
  3048.  
  3049.     // Returns or sets whether or not the control sends PlayStateChange events
  3050.     Procedure Set ComSendPlayStateChangeEvents Boolean value
  3051.         Handle hDispatchDriver
  3052.         Get phDispatchDriver to hDispatchDriver
  3053.         Send PrepareParams to hDispatchDriver 1
  3054.         Set ComProperty of hDispatchDriver 1069 OLE_VT_BOOL to value
  3055.     End_Procedure
  3056.  
  3057.     // Returns or sets the display size of images
  3058.     Function ComDisplaySize Returns OLEMPDisplaySizeConstants
  3059.         Handle hDispatchDriver
  3060.         OLEMPDisplaySizeConstants retVal
  3061.         Get phDispatchDriver to hDispatchDriver
  3062.         Get InvokeComMethod of hDispatchDriver 1032 OLE_VT_I4 to retVal
  3063.         Function_Return retVal
  3064.     End_Function
  3065.  
  3066.     // Returns or sets the display size of images
  3067.     Procedure Set ComDisplaySize OLEMPDisplaySizeConstants value
  3068.         Handle hDispatchDriver
  3069.         Get phDispatchDriver to hDispatchDriver
  3070.         Send PrepareParams to hDispatchDriver 1
  3071.         Set ComProperty of hDispatchDriver 1032 OLE_VT_I4 to value
  3072.     End_Procedure
  3073.  
  3074.     // Returns or sets whether or not received URLs are automatically invoked
  3075.     Function ComInvokeURLs Returns Boolean
  3076.         Handle hDispatchDriver
  3077.         Boolean retVal
  3078.         Get phDispatchDriver to hDispatchDriver
  3079.         Get InvokeComMethod of hDispatchDriver 1020 OLE_VT_BOOL to retVal
  3080.         Function_Return retVal
  3081.     End_Function
  3082.  
  3083.     // Returns or sets whether or not received URLs are automatically invoked
  3084.     Procedure Set ComInvokeURLs Boolean value
  3085.         Handle hDispatchDriver
  3086.         Get phDispatchDriver to hDispatchDriver
  3087.         Send PrepareParams to hDispatchDriver 1
  3088.         Set ComProperty of hDispatchDriver 1020 OLE_VT_BOOL to value
  3089.     End_Procedure
  3090.  
  3091.     // Returns or sets the control's base HTTP URL
  3092.     Function ComBaseURL Returns String
  3093.         Handle hDispatchDriver
  3094.         String retVal
  3095.         Get phDispatchDriver to hDispatchDriver
  3096.         Get InvokeComMethod of hDispatchDriver 1082 OLE_VT_BSTR to retVal
  3097.         Function_Return retVal
  3098.     End_Function
  3099.  
  3100.     // Returns or sets the control's base HTTP URL
  3101.     Procedure Set ComBaseURL String value
  3102.         Handle hDispatchDriver
  3103.         Get phDispatchDriver to hDispatchDriver
  3104.         Send PrepareParams to hDispatchDriver 1
  3105.         Set ComProperty of hDispatchDriver 1082 OLE_VT_BSTR to value
  3106.     End_Procedure
  3107.  
  3108.     // Returns or sets the control's default target HTTP frame
  3109.     Function ComDefaultFrame Returns String
  3110.         Handle hDispatchDriver
  3111.         String retVal
  3112.         Get phDispatchDriver to hDispatchDriver
  3113.         Get InvokeComMethod of hDispatchDriver 1083 OLE_VT_BSTR to retVal
  3114.         Function_Return retVal
  3115.     End_Function
  3116.  
  3117.     // Returns or sets the control's default target HTTP frame
  3118.     Procedure Set ComDefaultFrame String value
  3119.         Handle hDispatchDriver
  3120.         Get phDispatchDriver to hDispatchDriver
  3121.         Send PrepareParams to hDispatchDriver 1
  3122.         Set ComProperty of hDispatchDriver 1083 OLE_VT_BSTR to value
  3123.     End_Procedure
  3124.  
  3125.     // Returns whether or not the control currently has an error
  3126.     Function ComHasError Returns Boolean
  3127.         Handle hDispatchDriver
  3128.         Boolean retVal
  3129.         Get phDispatchDriver to hDispatchDriver
  3130.         Get InvokeComMethod of hDispatchDriver 1065 OLE_VT_BOOL to retVal
  3131.         Function_Return retVal
  3132.     End_Function
  3133.  
  3134.     // Returns the description of the current error state
  3135.     Function ComErrorDescription Returns String
  3136.         Handle hDispatchDriver
  3137.         String retVal
  3138.         Get phDispatchDriver to hDispatchDriver
  3139.         Get InvokeComMethod of hDispatchDriver 1066 OLE_VT_BSTR to retVal
  3140.         Function_Return retVal
  3141.     End_Function
  3142.  
  3143.     // Returns the current error code
  3144.     Function ComErrorCode Returns Integer
  3145.         Handle hDispatchDriver
  3146.         Integer retVal
  3147.         Get phDispatchDriver to hDispatchDriver
  3148.         Get InvokeComMethod of hDispatchDriver 1067 OLE_VT_I4 to retVal
  3149.         Function_Return retVal
  3150.     End_Function
  3151.  
  3152.     // Returns or sets whether or not the control shows its animation during initial file buffering
  3153.     Function ComAnimationAtStart Returns Boolean
  3154.         Handle hDispatchDriver
  3155.         Boolean retVal
  3156.         Get phDispatchDriver to hDispatchDriver
  3157.         Get InvokeComMethod of hDispatchDriver 1045 OLE_VT_BOOL to retVal
  3158.         Function_Return retVal
  3159.     End_Function
  3160.  
  3161.     // Returns or sets whether or not the control shows its animation during initial file buffering
  3162.     Procedure Set ComAnimationAtStart Boolean value
  3163.         Handle hDispatchDriver
  3164.         Get phDispatchDriver to hDispatchDriver
  3165.         Send PrepareParams to hDispatchDriver 1
  3166.         Set ComProperty of hDispatchDriver 1045 OLE_VT_BOOL to value
  3167.     End_Procedure
  3168.  
  3169.     // Returns or sets whether or not the control is transparent before playing
  3170.     Function ComTransparentAtStart Returns Boolean
  3171.         Handle hDispatchDriver
  3172.         Boolean retVal
  3173.         Get phDispatchDriver to hDispatchDriver
  3174.         Get InvokeComMethod of hDispatchDriver 1022 OLE_VT_BOOL to retVal
  3175.         Function_Return retVal
  3176.     End_Function
  3177.  
  3178.     // Returns or sets whether or not the control is transparent before playing
  3179.     Procedure Set ComTransparentAtStart Boolean value
  3180.         Handle hDispatchDriver
  3181.         Get phDispatchDriver to hDispatchDriver
  3182.         Send PrepareParams to hDispatchDriver 1
  3183.         Set ComProperty of hDispatchDriver 1022 OLE_VT_BOOL to value
  3184.     End_Procedure
  3185.  
  3186.     // Returns or sets the current volume of the stream
  3187.     Function ComVolume Returns Integer
  3188.         Handle hDispatchDriver
  3189.         Integer retVal
  3190.         Get phDispatchDriver to hDispatchDriver
  3191.         Get InvokeComMethod of hDispatchDriver 19 OLE_VT_I4 to retVal
  3192.         Function_Return retVal
  3193.     End_Function
  3194.  
  3195.     // Returns or sets the current volume of the stream
  3196.     Procedure Set ComVolume Integer value
  3197.         Handle hDispatchDriver
  3198.         Get phDispatchDriver to hDispatchDriver
  3199.         Send PrepareParams to hDispatchDriver 1
  3200.         Set ComProperty of hDispatchDriver 19 OLE_VT_I4 to value
  3201.     End_Procedure
  3202.  
  3203.     // Returns or sets the current balance of the stream
  3204.     Function ComBalance Returns Integer
  3205.         Handle hDispatchDriver
  3206.         Integer retVal
  3207.         Get phDispatchDriver to hDispatchDriver
  3208.         Get InvokeComMethod of hDispatchDriver 20 OLE_VT_I4 to retVal
  3209.         Function_Return retVal
  3210.     End_Function
  3211.  
  3212.     // Returns or sets the current balance of the stream
  3213.     Procedure Set ComBalance Integer value
  3214.         Handle hDispatchDriver
  3215.         Get phDispatchDriver to hDispatchDriver
  3216.         Send PrepareParams to hDispatchDriver 1
  3217.         Set ComProperty of hDispatchDriver 20 OLE_VT_I4 to value
  3218.     End_Procedure
  3219.  
  3220.     // Returns the readiness state of the control
  3221.     Function ComReadyState Returns OLEMPReadyStateConstants
  3222.         Handle hDispatchDriver
  3223.         OLEMPReadyStateConstants retVal
  3224.         Get phDispatchDriver to hDispatchDriver
  3225.         Get InvokeComMethod of hDispatchDriver -525 OLE_VT_I4 to retVal
  3226.         Function_Return retVal
  3227.     End_Function
  3228.  
  3229.     // Returns or sets the position where playback will begin
  3230.     Function ComSelectionStart Returns Real
  3231.         Handle hDispatchDriver
  3232.         Real retVal
  3233.         Get phDispatchDriver to hDispatchDriver
  3234.         Get InvokeComMethod of hDispatchDriver 15 OLE_VT_R8 to retVal
  3235.         Function_Return retVal
  3236.     End_Function
  3237.  
  3238.     // Returns or sets the position where playback will begin
  3239.     Procedure Set ComSelectionStart Real value
  3240.         Handle hDispatchDriver
  3241.         Get phDispatchDriver to hDispatchDriver
  3242.         Send PrepareParams to hDispatchDriver 1
  3243.         Set ComProperty of hDispatchDriver 15 OLE_VT_R8 to value
  3244.     End_Procedure
  3245.  
  3246.     // Returns or sets the position where playback will stop
  3247.     Function ComSelectionEnd Returns Real
  3248.         Handle hDispatchDriver
  3249.         Real retVal
  3250.         Get phDispatchDriver to hDispatchDriver
  3251.         Get InvokeComMethod of hDispatchDriver 16 OLE_VT_R8 to retVal
  3252.         Function_Return retVal
  3253.     End_Function
  3254.  
  3255.     // Returns or sets the position where playback will stop
  3256.     Procedure Set ComSelectionEnd Real value
  3257.         Handle hDispatchDriver
  3258.         Get phDispatchDriver to hDispatchDriver
  3259.         Send PrepareParams to hDispatchDriver 1
  3260.         Set ComProperty of hDispatchDriver 16 OLE_VT_R8 to value
  3261.     End_Procedure
  3262.  
  3263.     // Shows or hides the display panel
  3264.     Function ComShowDisplay Returns Boolean
  3265.         Handle hDispatchDriver
  3266.         Boolean retVal
  3267.         Get phDispatchDriver to hDispatchDriver
  3268.         Get InvokeComMethod of hDispatchDriver 22 OLE_VT_BOOL to retVal
  3269.         Function_Return retVal
  3270.     End_Function
  3271.  
  3272.     // Shows or hides the display panel
  3273.     Procedure Set ComShowDisplay Boolean value
  3274.         Handle hDispatchDriver
  3275.         Get phDispatchDriver to hDispatchDriver
  3276.         Send PrepareParams to hDispatchDriver 1
  3277.         Set ComProperty of hDispatchDriver 22 OLE_VT_BOOL to value
  3278.     End_Procedure
  3279.  
  3280.     // Shows or hides the control panel
  3281.     Function ComShowControls Returns Boolean
  3282.         Handle hDispatchDriver
  3283.         Boolean retVal
  3284.         Get phDispatchDriver to hDispatchDriver
  3285.         Get InvokeComMethod of hDispatchDriver 23 OLE_VT_BOOL to retVal
  3286.         Function_Return retVal
  3287.     End_Function
  3288.  
  3289.     // Shows or hides the control panel
  3290.     Procedure Set ComShowControls Boolean value
  3291.         Handle hDispatchDriver
  3292.         Get phDispatchDriver to hDispatchDriver
  3293.         Send PrepareParams to hDispatchDriver 1
  3294.         Set ComProperty of hDispatchDriver 23 OLE_VT_BOOL to value
  3295.     End_Procedure
  3296.  
  3297.     // Shows or hides the position buttons in the control panel
  3298.     Function ComShowPositionControls Returns Boolean
  3299.         Handle hDispatchDriver
  3300.         Boolean retVal
  3301.         Get phDispatchDriver to hDispatchDriver
  3302.         Get InvokeComMethod of hDispatchDriver 24 OLE_VT_BOOL to retVal
  3303.         Function_Return retVal
  3304.     End_Function
  3305.  
  3306.     // Shows or hides the position buttons in the control panel
  3307.     Procedure Set ComShowPositionControls Boolean value
  3308.         Handle hDispatchDriver
  3309.         Get phDispatchDriver to hDispatchDriver
  3310.         Send PrepareParams to hDispatchDriver 1
  3311.         Set ComProperty of hDispatchDriver 24 OLE_VT_BOOL to value
  3312.     End_Procedure
  3313.  
  3314.     // Shows or hides the tracker bar in the control panel
  3315.     Function ComShowTracker Returns Boolean
  3316.         Handle hDispatchDriver
  3317.         Boolean retVal
  3318.         Get phDispatchDriver to hDispatchDriver
  3319.         Get InvokeComMethod of hDispatchDriver 26 OLE_VT_BOOL to retVal
  3320.         Function_Return retVal
  3321.     End_Function
  3322.  
  3323.     // Shows or hides the tracker bar in the control panel
  3324.     Procedure Set ComShowTracker Boolean value
  3325.         Handle hDispatchDriver
  3326.         Get phDispatchDriver to hDispatchDriver
  3327.         Send PrepareParams to hDispatchDriver 1
  3328.         Set ComProperty of hDispatchDriver 26 OLE_VT_BOOL to value
  3329.     End_Procedure
  3330.  
  3331.     // Enables or disables the position buttons in the control panel
  3332.     Function ComEnablePositionControls Returns Boolean
  3333.         Handle hDispatchDriver
  3334.         Boolean retVal
  3335.         Get phDispatchDriver to hDispatchDriver
  3336.         Get InvokeComMethod of hDispatchDriver 27 OLE_VT_BOOL to retVal
  3337.         Function_Return retVal
  3338.     End_Function
  3339.  
  3340.     // Enables or disables the position buttons in the control panel
  3341.     Procedure Set ComEnablePositionControls Boolean value
  3342.         Handle hDispatchDriver
  3343.         Get phDispatchDriver to hDispatchDriver
  3344.         Send PrepareParams to hDispatchDriver 1
  3345.         Set ComProperty of hDispatchDriver 27 OLE_VT_BOOL to value
  3346.     End_Procedure
  3347.  
  3348.     // Enables or disables the tracker bar in the control panel
  3349.     Function ComEnableTracker Returns Boolean
  3350.         Handle hDispatchDriver
  3351.         Boolean retVal
  3352.         Get phDispatchDriver to hDispatchDriver
  3353.         Get InvokeComMethod of hDispatchDriver 29 OLE_VT_BOOL to retVal
  3354.         Function_Return retVal
  3355.     End_Function
  3356.  
  3357.     // Enables or disables the tracker bar in the control panel
  3358.     Procedure Set ComEnableTracker Boolean value
  3359.         Handle hDispatchDriver
  3360.         Get phDispatchDriver to hDispatchDriver
  3361.         Send PrepareParams to hDispatchDriver 1
  3362.         Set ComProperty of hDispatchDriver 29 OLE_VT_BOOL to value
  3363.     End_Procedure
  3364.  
  3365.     // Enables or disables the control
  3366.     Function ComEnabled Returns Boolean
  3367.         Handle hDispatchDriver
  3368.         Boolean retVal
  3369.         Get phDispatchDriver to hDispatchDriver
  3370.         Get InvokeComMethod of hDispatchDriver -514 OLE_VT_BOOL to retVal
  3371.         Function_Return retVal
  3372.     End_Function
  3373.  
  3374.     // Enables or disables the control
  3375.     Procedure Set ComEnabled Boolean value
  3376.         Handle hDispatchDriver
  3377.         Get phDispatchDriver to hDispatchDriver
  3378.         Send PrepareParams to hDispatchDriver 1
  3379.         Set ComProperty of hDispatchDriver -514 OLE_VT_BOOL to value
  3380.     End_Procedure
  3381.  
  3382.     // Returns or sets the foreground color of the display panel
  3383.     Function ComDisplayForeColor Returns VB_OLE_COLOR
  3384.         Handle hDispatchDriver
  3385.         VB_OLE_COLOR retVal
  3386.         Get phDispatchDriver to hDispatchDriver
  3387.         Get InvokeComMethod of hDispatchDriver 36 OLE_VT_UI4 to retVal
  3388.         Function_Return retVal
  3389.     End_Function
  3390.  
  3391.     // Returns or sets the foreground color of the display panel
  3392.     Procedure Set ComDisplayForeColor VB_OLE_COLOR value
  3393.         Handle hDispatchDriver
  3394.         Get phDispatchDriver to hDispatchDriver
  3395.         Send PrepareParams to hDispatchDriver 1
  3396.         Set ComProperty of hDispatchDriver 36 OLE_VT_UI4 to value
  3397.     End_Procedure
  3398.  
  3399.     // Returns or sets the background color of the display panel
  3400.     Function ComDisplayBackColor Returns VB_OLE_COLOR
  3401.         Handle hDispatchDriver
  3402.         VB_OLE_COLOR retVal
  3403.         Get phDispatchDriver to hDispatchDriver
  3404.         Get InvokeComMethod of hDispatchDriver 37 OLE_VT_UI4 to retVal
  3405.         Function_Return retVal
  3406.     End_Function
  3407.  
  3408.     // Returns or sets the background color of the display panel
  3409.     Procedure Set ComDisplayBackColor VB_OLE_COLOR value
  3410.         Handle hDispatchDriver
  3411.         Get phDispatchDriver to hDispatchDriver
  3412.         Send PrepareParams to hDispatchDriver 1
  3413.         Set ComProperty of hDispatchDriver 37 OLE_VT_UI4 to value
  3414.     End_Procedure
  3415.  
  3416.     // Returns or sets the display mode (time or frames)
  3417.     Function ComDisplayMode Returns OLEMPDisplayModeConstants
  3418.         Handle hDispatchDriver
  3419.         OLEMPDisplayModeConstants retVal
  3420.         Get phDispatchDriver to hDispatchDriver
  3421.         Get InvokeComMethod of hDispatchDriver 32 OLE_VT_I4 to retVal
  3422.         Function_Return retVal
  3423.     End_Function
  3424.  
  3425.     // Returns or sets the display mode (time or frames)
  3426.     Procedure Set ComDisplayMode OLEMPDisplayModeConstants value
  3427.         Handle hDispatchDriver
  3428.         Get phDispatchDriver to hDispatchDriver
  3429.         Send PrepareParams to hDispatchDriver 1
  3430.         Set ComProperty of hDispatchDriver 32 OLE_VT_I4 to value
  3431.     End_Procedure
  3432.  
  3433.     // Returns or sets the video border 3D effect
  3434.     Function ComVideoBorder3D Returns Boolean
  3435.         Handle hDispatchDriver
  3436.         Boolean retVal
  3437.         Get phDispatchDriver to hDispatchDriver
  3438.         Get InvokeComMethod of hDispatchDriver 1103 OLE_VT_BOOL to retVal
  3439.         Function_Return retVal
  3440.     End_Function
  3441.  
  3442.     // Returns or sets the video border 3D effect
  3443.     Procedure Set ComVideoBorder3D Boolean value
  3444.         Handle hDispatchDriver
  3445.         Get phDispatchDriver to hDispatchDriver
  3446.         Send PrepareParams to hDispatchDriver 1
  3447.         Set ComProperty of hDispatchDriver 1103 OLE_VT_BOOL to value
  3448.     End_Procedure
  3449.  
  3450.     // Returns or sets the video border width
  3451.     Function ComVideoBorderWidth Returns Integer
  3452.         Handle hDispatchDriver
  3453.         Integer retVal
  3454.         Get phDispatchDriver to hDispatchDriver
  3455.         Get InvokeComMethod of hDispatchDriver 1101 OLE_VT_I4 to retVal
  3456.         Function_Return retVal
  3457.     End_Function
  3458.  
  3459.     // Returns or sets the video border width
  3460.     Procedure Set ComVideoBorderWidth Integer value
  3461.         Handle hDispatchDriver
  3462.         Get phDispatchDriver to hDispatchDriver
  3463.         Send PrepareParams to hDispatchDriver 1
  3464.         Set ComProperty of hDispatchDriver 1101 OLE_VT_I4 to value
  3465.     End_Procedure
  3466.  
  3467.     // Returns or sets the video border color
  3468.     Function ComVideoBorderColor Returns VB_OLE_COLOR
  3469.         Handle hDispatchDriver
  3470.         VB_OLE_COLOR retVal
  3471.         Get phDispatchDriver to hDispatchDriver
  3472.         Get InvokeComMethod of hDispatchDriver 1102 OLE_VT_UI4 to retVal
  3473.         Function_Return retVal
  3474.     End_Function
  3475.  
  3476.     // Returns or sets the video border color
  3477.     Procedure Set ComVideoBorderColor VB_OLE_COLOR value
  3478.         Handle hDispatchDriver
  3479.         Get phDispatchDriver to hDispatchDriver
  3480.         Send PrepareParams to hDispatchDriver 1
  3481.         Set ComProperty of hDispatchDriver 1102 OLE_VT_UI4 to value
  3482.     End_Procedure
  3483.  
  3484.     // Show Gotobar
  3485.     Function ComShowGotoBar Returns Boolean
  3486.         Handle hDispatchDriver
  3487.         Boolean retVal
  3488.         Get phDispatchDriver to hDispatchDriver
  3489.         Get InvokeComMethod of hDispatchDriver 1088 OLE_VT_BOOL to retVal
  3490.         Function_Return retVal
  3491.     End_Function
  3492.  
  3493.     // Show Gotobar
  3494.     Procedure Set ComShowGotoBar Boolean value
  3495.         Handle hDispatchDriver
  3496.         Get phDispatchDriver to hDispatchDriver
  3497.         Send PrepareParams to hDispatchDriver 1
  3498.         Set ComProperty of hDispatchDriver 1088 OLE_VT_BOOL to value
  3499.     End_Procedure
  3500.  
  3501.     // Show status bar
  3502.     Function ComShowStatusBar Returns Boolean
  3503.         Handle hDispatchDriver
  3504.         Boolean retVal
  3505.         Get phDispatchDriver to hDispatchDriver
  3506.         Get InvokeComMethod of hDispatchDriver 1086 OLE_VT_BOOL to retVal
  3507.         Function_Return retVal
  3508.     End_Function
  3509.  
  3510.     // Show status bar
  3511.     Procedure Set ComShowStatusBar Boolean value
  3512.         Handle hDispatchDriver
  3513.         Get phDispatchDriver to hDispatchDriver
  3514.         Send PrepareParams to hDispatchDriver 1
  3515.         Set ComProperty of hDispatchDriver 1086 OLE_VT_BOOL to value
  3516.     End_Procedure
  3517.  
  3518.     // Show captioning text
  3519.     Function ComShowCaptioning Returns Boolean
  3520.         Handle hDispatchDriver
  3521.         Boolean retVal
  3522.         Get phDispatchDriver to hDispatchDriver
  3523.         Get InvokeComMethod of hDispatchDriver 1084 OLE_VT_BOOL to retVal
  3524.         Function_Return retVal
  3525.     End_Function
  3526.  
  3527.     // Show captioning text
  3528.     Procedure Set ComShowCaptioning Boolean value
  3529.         Handle hDispatchDriver
  3530.         Get phDispatchDriver to hDispatchDriver
  3531.         Send PrepareParams to hDispatchDriver 1
  3532.         Set ComProperty of hDispatchDriver 1084 OLE_VT_BOOL to value
  3533.     End_Procedure
  3534.  
  3535.     // Show audio controls
  3536.     Function ComShowAudioControls Returns Boolean
  3537.         Handle hDispatchDriver
  3538.         Boolean retVal
  3539.         Get phDispatchDriver to hDispatchDriver
  3540.         Get InvokeComMethod of hDispatchDriver 1107 OLE_VT_BOOL to retVal
  3541.         Function_Return retVal
  3542.     End_Function
  3543.  
  3544.     // Show audio controls
  3545.     Procedure Set ComShowAudioControls Boolean value
  3546.         Handle hDispatchDriver
  3547.         Get phDispatchDriver to hDispatchDriver
  3548.         Send PrepareParams to hDispatchDriver 1
  3549.         Set ComProperty of hDispatchDriver 1107 OLE_VT_BOOL to value
  3550.     End_Procedure
  3551.  
  3552.     // Returns or sets the captioning information
  3553.     Function ComCaptioningID Returns String
  3554.         Handle hDispatchDriver
  3555.         String retVal
  3556.         Get phDispatchDriver to hDispatchDriver
  3557.         Get InvokeComMethod of hDispatchDriver 1085 OLE_VT_BSTR to retVal
  3558.         Function_Return retVal
  3559.     End_Function
  3560.  
  3561.     // Returns or sets the captioning information
  3562.     Procedure Set ComCaptioningID String value
  3563.         Handle hDispatchDriver
  3564.         Get phDispatchDriver to hDispatchDriver
  3565.         Send PrepareParams to hDispatchDriver 1
  3566.         Set ComProperty of hDispatchDriver 1085 OLE_VT_BSTR to value
  3567.     End_Procedure
  3568.  
  3569.     // Returns or sets the current mute state of the stream
  3570.     Function ComMute Returns Boolean
  3571.         Handle hDispatchDriver
  3572.         Boolean retVal
  3573.         Get phDispatchDriver to hDispatchDriver
  3574.         Get InvokeComMethod of hDispatchDriver 1089 OLE_VT_BOOL to retVal
  3575.         Function_Return retVal
  3576.     End_Function
  3577.  
  3578.     // Returns or sets the current mute state of the stream
  3579.     Procedure Set ComMute Boolean value
  3580.         Handle hDispatchDriver
  3581.         Get phDispatchDriver to hDispatchDriver
  3582.         Send PrepareParams to hDispatchDriver 1
  3583.         Set ComProperty of hDispatchDriver 1089 OLE_VT_BOOL to value
  3584.     End_Procedure
  3585.  
  3586.     // Returns whether the control currently has something that can be previewed
  3587.     Function ComCanPreview Returns Boolean
  3588.         Handle hDispatchDriver
  3589.         Boolean retVal
  3590.         Get phDispatchDriver to hDispatchDriver
  3591.         Get InvokeComMethod of hDispatchDriver 1093 OLE_VT_BOOL to retVal
  3592.         Function_Return retVal
  3593.     End_Function
  3594.  
  3595.     // Returns or sets whether the control is in preview mode
  3596.     Function ComPreviewMode Returns Boolean
  3597.         Handle hDispatchDriver
  3598.         Boolean retVal
  3599.         Get phDispatchDriver to hDispatchDriver
  3600.         Get InvokeComMethod of hDispatchDriver 1091 OLE_VT_BOOL to retVal
  3601.         Function_Return retVal
  3602.     End_Function
  3603.  
  3604.     // Returns or sets whether the control is in preview mode
  3605.     Procedure Set ComPreviewMode Boolean value
  3606.         Handle hDispatchDriver
  3607.         Get phDispatchDriver to hDispatchDriver
  3608.         Send PrepareParams to hDispatchDriver 1
  3609.         Set ComProperty of hDispatchDriver 1091 OLE_VT_BOOL to value
  3610.     End_Procedure
  3611.  
  3612.     // Returns whether the control currently has something that contains multiple items
  3613.     Function ComHasMultipleItems Returns Boolean
  3614.         Handle hDispatchDriver
  3615.         Boolean retVal
  3616.         Get phDispatchDriver to hDispatchDriver
  3617.         Get InvokeComMethod of hDispatchDriver 1094 OLE_VT_BOOL to retVal
  3618.         Function_Return retVal
  3619.     End_Function
  3620.  
  3621.     // Returns or sets the current language, using windows LCIDs
  3622.     Function ComLanguage Returns Integer
  3623.         Handle hDispatchDriver
  3624.         Integer retVal
  3625.         Get phDispatchDriver to hDispatchDriver
  3626.         Get InvokeComMethod of hDispatchDriver 1095 OLE_VT_I4 to retVal
  3627.         Function_Return retVal
  3628.     End_Function
  3629.  
  3630.     // Returns or sets the current language, using windows LCIDs
  3631.     Procedure Set ComLanguage Integer value
  3632.         Handle hDispatchDriver
  3633.         Get phDispatchDriver to hDispatchDriver
  3634.         Send PrepareParams to hDispatchDriver 1
  3635.         Set ComProperty of hDispatchDriver 1095 OLE_VT_I4 to value
  3636.     End_Procedure
  3637.  
  3638.     // Returns or sets the current audio stream
  3639.     Function ComAudioStream Returns Integer
  3640.         Handle hDispatchDriver
  3641.         Integer retVal
  3642.         Get phDispatchDriver to hDispatchDriver
  3643.         Get InvokeComMethod of hDispatchDriver 1096 OLE_VT_I4 to retVal
  3644.         Function_Return retVal
  3645.     End_Function
  3646.  
  3647.     // Returns or sets the current audio stream
  3648.     Procedure Set ComAudioStream Integer value
  3649.         Handle hDispatchDriver
  3650.         Get phDispatchDriver to hDispatchDriver
  3651.         Send PrepareParams to hDispatchDriver 1
  3652.         Set ComProperty of hDispatchDriver 1096 OLE_VT_I4 to value
  3653.     End_Procedure
  3654.  
  3655.     // Returns or sets the closed-captioning style
  3656.     Function ComSAMIStyle Returns String
  3657.         Handle hDispatchDriver
  3658.         String retVal
  3659.         Get phDispatchDriver to hDispatchDriver
  3660.         Get InvokeComMethod of hDispatchDriver 1097 OLE_VT_BSTR to retVal
  3661.         Function_Return retVal
  3662.     End_Function
  3663.  
  3664.     // Returns or sets the closed-captioning style
  3665.     Procedure Set ComSAMIStyle String value
  3666.         Handle hDispatchDriver
  3667.         Get phDispatchDriver to hDispatchDriver
  3668.         Send PrepareParams to hDispatchDriver 1
  3669.         Set ComProperty of hDispatchDriver 1097 OLE_VT_BSTR to value
  3670.     End_Procedure
  3671.  
  3672.     // Returns or sets the closed-captioning language
  3673.     Function ComSAMILang Returns String
  3674.         Handle hDispatchDriver
  3675.         String retVal
  3676.         Get phDispatchDriver to hDispatchDriver
  3677.         Get InvokeComMethod of hDispatchDriver 1098 OLE_VT_BSTR to retVal
  3678.         Function_Return retVal
  3679.     End_Function
  3680.  
  3681.     // Returns or sets the closed-captioning language
  3682.     Procedure Set ComSAMILang String value
  3683.         Handle hDispatchDriver
  3684.         Get phDispatchDriver to hDispatchDriver
  3685.         Send PrepareParams to hDispatchDriver 1
  3686.         Set ComProperty of hDispatchDriver 1098 OLE_VT_BSTR to value
  3687.     End_Procedure
  3688.  
  3689.     // Returns or sets the closed-captioning filename
  3690.     Function ComSAMIFileName Returns String
  3691.         Handle hDispatchDriver
  3692.         String retVal
  3693.         Get phDispatchDriver to hDispatchDriver
  3694.         Get InvokeComMethod of hDispatchDriver 1099 OLE_VT_BSTR to retVal
  3695.         Function_Return retVal
  3696.     End_Function
  3697.  
  3698.     // Returns or sets the closed-captioning filename
  3699.     Procedure Set ComSAMIFileName String value
  3700.         Handle hDispatchDriver
  3701.         Get phDispatchDriver to hDispatchDriver
  3702.         Send PrepareParams to hDispatchDriver 1
  3703.         Set ComProperty of hDispatchDriver 1099 OLE_VT_BSTR to value
  3704.     End_Procedure
  3705.  
  3706.     // Returns the number of media streams
  3707.     Function ComStreamCount Returns Integer
  3708.         Handle hDispatchDriver
  3709.         Integer retVal
  3710.         Get phDispatchDriver to hDispatchDriver
  3711.         Get InvokeComMethod of hDispatchDriver 1100 OLE_VT_I4 to retVal
  3712.         Function_Return retVal
  3713.     End_Function
  3714.  
  3715.     // Returns a unique id for the player
  3716.     Function ComClientId Returns String
  3717.         Handle hDispatchDriver
  3718.         String retVal
  3719.         Get phDispatchDriver to hDispatchDriver
  3720.         Get InvokeComMethod of hDispatchDriver 1106 OLE_VT_BSTR to retVal
  3721.         Function_Return retVal
  3722.     End_Function
  3723.  
  3724.     // Returns the network connection speed of the player
  3725.     Function ComConnectionSpeed Returns Integer
  3726.         Handle hDispatchDriver
  3727.         Integer retVal
  3728.         Get phDispatchDriver to hDispatchDriver
  3729.         Get InvokeComMethod of hDispatchDriver 1113 OLE_VT_I4 to retVal
  3730.         Function_Return retVal
  3731.     End_Function
  3732.  
  3733.     // Size the control automatically to the loaded media
  3734.     Function ComAutoSize Returns Boolean
  3735.         Handle hDispatchDriver
  3736.         Boolean retVal
  3737.         Get phDispatchDriver to hDispatchDriver
  3738.         Get InvokeComMethod of hDispatchDriver -500 OLE_VT_BOOL to retVal
  3739.         Function_Return retVal
  3740.     End_Function
  3741.  
  3742.     // Size the control automatically to the loaded media
  3743.     Procedure Set ComAutoSize Boolean value
  3744.         Handle hDispatchDriver
  3745.         Get phDispatchDriver to hDispatchDriver
  3746.         Send PrepareParams to hDispatchDriver 1
  3747.         Set ComProperty of hDispatchDriver -500 OLE_VT_BOOL to value
  3748.     End_Procedure
  3749.  
  3750.     // Enables controls during full screen
  3751.     Function ComEnableFullScreenControls Returns Boolean
  3752.         Handle hDispatchDriver
  3753.         Boolean retVal
  3754.         Get phDispatchDriver to hDispatchDriver
  3755.         Get InvokeComMethod of hDispatchDriver 1108 OLE_VT_BOOL to retVal
  3756.         Function_Return retVal
  3757.     End_Function
  3758.  
  3759.     // Enables controls during full screen
  3760.     Procedure Set ComEnableFullScreenControls Boolean value
  3761.         Handle hDispatchDriver
  3762.         Get phDispatchDriver to hDispatchDriver
  3763.         Send PrepareParams to hDispatchDriver 1
  3764.         Set ComProperty of hDispatchDriver 1108 OLE_VT_BOOL to value
  3765.     End_Procedure
  3766.  
  3767.     // Returns the ActiveMovie player object
  3768.     Function ComActiveMovie Returns Variant
  3769.         Handle hDispatchDriver
  3770.         Variant retVal
  3771.         Get phDispatchDriver to hDispatchDriver
  3772.         Get InvokeComMethod of hDispatchDriver 1109 OLE_VT_DISPATCH to retVal
  3773.         Function_Return retVal
  3774.     End_Function
  3775.  
  3776.     // Returns the NetShow player object
  3777.     Function ComNSPlay Returns Variant
  3778.         Handle hDispatchDriver
  3779.         Variant retVal
  3780.         Get phDispatchDriver to hDispatchDriver
  3781.         Get InvokeComMethod of hDispatchDriver 1110 OLE_VT_DISPATCH to retVal
  3782.         Function_Return retVal
  3783.     End_Function
  3784.  
  3785.     // Render video without a window
  3786.     Function ComWindowlessVideo Returns Boolean
  3787.         Handle hDispatchDriver
  3788.         Boolean retVal
  3789.         Get phDispatchDriver to hDispatchDriver
  3790.         Get InvokeComMethod of hDispatchDriver 1112 OLE_VT_BOOL to retVal
  3791.         Function_Return retVal
  3792.     End_Function
  3793.  
  3794.     // Render video without a window
  3795.     Procedure Set ComWindowlessVideo Boolean value
  3796.         Handle hDispatchDriver
  3797.         Get phDispatchDriver to hDispatchDriver
  3798.         Send PrepareParams to hDispatchDriver 1
  3799.         Set ComProperty of hDispatchDriver 1112 OLE_VT_BOOL to value
  3800.     End_Procedure
  3801.  
  3802.     // Begins playing from the current position or marker
  3803.     Procedure ComPlay
  3804.         Handle hDispatchDriver
  3805.         Get phDispatchDriver to hDispatchDriver
  3806.         Send InvokeComMethod to hDispatchDriver 2001 OLE_VT_VOID
  3807.     End_Procedure
  3808.  
  3809.     // Stops file playback at the current position
  3810.     Procedure ComStop
  3811.         Handle hDispatchDriver
  3812.         Get phDispatchDriver to hDispatchDriver
  3813.         Send InvokeComMethod to hDispatchDriver 2003 OLE_VT_VOID
  3814.     End_Procedure
  3815.  
  3816.     // Pauses file playback at the current position
  3817.     Procedure ComPause
  3818.         Handle hDispatchDriver
  3819.         Get phDispatchDriver to hDispatchDriver
  3820.         Send InvokeComMethod to hDispatchDriver 2002 OLE_VT_VOID
  3821.     End_Procedure
  3822.  
  3823.     // Returns the time of a marker
  3824.     Function ComGetMarkerTime Integer llMarkerNum Returns Real
  3825.         Handle hDispatchDriver
  3826.         Real retVal
  3827.         Get phDispatchDriver to hDispatchDriver
  3828.         Send PrepareParams to hDispatchDriver 1
  3829.         Send DefineParam to hDispatchDriver OLE_VT_I4 llMarkerNum
  3830.         Get InvokeComMethod of hDispatchDriver 2004 OLE_VT_R8 to retVal
  3831.         Function_Return retVal
  3832.     End_Function
  3833.  
  3834.     // Returns the name of a marker
  3835.     Function ComGetMarkerName Integer llMarkerNum Returns String
  3836.         Handle hDispatchDriver
  3837.         String retVal
  3838.         Get phDispatchDriver to hDispatchDriver
  3839.         Send PrepareParams to hDispatchDriver 1
  3840.         Send DefineParam to hDispatchDriver OLE_VT_I4 llMarkerNum
  3841.         Get InvokeComMethod of hDispatchDriver 2005 OLE_VT_BSTR to retVal
  3842.         Function_Return retVal
  3843.     End_Function
  3844.  
  3845.     // Displays version information dialog box
  3846.     Procedure ComAboutBox
  3847.         Handle hDispatchDriver
  3848.         Get phDispatchDriver to hDispatchDriver
  3849.         Send InvokeComMethod to hDispatchDriver -552 OLE_VT_VOID
  3850.     End_Procedure
  3851.  
  3852.     // Returns whether or not a codec is installed
  3853.     Function ComGetCodecInstalled Integer llCodecNum Returns Boolean
  3854.         Handle hDispatchDriver
  3855.         Boolean retVal
  3856.         Get phDispatchDriver to hDispatchDriver
  3857.         Send PrepareParams to hDispatchDriver 1
  3858.         Send DefineParam to hDispatchDriver OLE_VT_I4 llCodecNum
  3859.         Get InvokeComMethod of hDispatchDriver 2007 OLE_VT_BOOL to retVal
  3860.         Function_Return retVal
  3861.     End_Function
  3862.  
  3863.     // Returns the descriptive name of a codec
  3864.     Function ComGetCodecDescription Integer llCodecNum Returns String
  3865.         Handle hDispatchDriver
  3866.         String retVal
  3867.         Get phDispatchDriver to hDispatchDriver
  3868.         Send PrepareParams to hDispatchDriver 1
  3869.         Send DefineParam to hDispatchDriver OLE_VT_I4 llCodecNum
  3870.         Get InvokeComMethod of hDispatchDriver 2008 OLE_VT_BSTR to retVal
  3871.         Function_Return retVal
  3872.     End_Function
  3873.  
  3874.     // Returns the URL for a codec
  3875.     Function ComGetCodecURL Integer llCodecNum Returns String
  3876.         Handle hDispatchDriver
  3877.         String retVal
  3878.         Get phDispatchDriver to hDispatchDriver
  3879.         Send PrepareParams to hDispatchDriver 1
  3880.         Send DefineParam to hDispatchDriver OLE_VT_I4 llCodecNum
  3881.         Get InvokeComMethod of hDispatchDriver 2009 OLE_VT_BSTR to retVal
  3882.         Function_Return retVal
  3883.     End_Function
  3884.  
  3885.     // Returns a More Information URL
  3886.     Function ComGetMoreInfoURL OLEMPMoreInfoType llMoreInfoType Returns String
  3887.         Handle hDispatchDriver
  3888.         String retVal
  3889.         Get phDispatchDriver to hDispatchDriver
  3890.         Send PrepareParams to hDispatchDriver 1
  3891.         Send DefineParam to hDispatchDriver OLE_VT_I4 llMoreInfoType
  3892.         Get InvokeComMethod of hDispatchDriver 2011 OLE_VT_BSTR to retVal
  3893.         Function_Return retVal
  3894.     End_Function
  3895.  
  3896.     // Returns an Information String for the Media
  3897.     Function ComGetMediaInfoString OLEMPMediaInfoType llMediaInfoType Returns String
  3898.         Handle hDispatchDriver
  3899.         String retVal
  3900.         Get phDispatchDriver to hDispatchDriver
  3901.         Send PrepareParams to hDispatchDriver 1
  3902.         Send DefineParam to hDispatchDriver OLE_VT_I4 llMediaInfoType
  3903.         Get InvokeComMethod of hDispatchDriver 2016 OLE_VT_BSTR to retVal
  3904.         Function_Return retVal
  3905.     End_Function
  3906.  
  3907.     // Cancels the current operation
  3908.     Procedure ComCancel
  3909.         Handle hDispatchDriver
  3910.         Get phDispatchDriver to hDispatchDriver
  3911.         Send InvokeComMethod to hDispatchDriver 2006 OLE_VT_VOID
  3912.     End_Procedure
  3913.  
  3914.     // Opens the given filename asynchronously
  3915.     Procedure ComOpen String llbstrFileName
  3916.         Handle hDispatchDriver
  3917.         Get phDispatchDriver to hDispatchDriver
  3918.         Send PrepareParams to hDispatchDriver 1
  3919.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbstrFileName
  3920.         Send InvokeComMethod to hDispatchDriver 2010 OLE_VT_VOID
  3921.     End_Procedure
  3922.  
  3923.     // Determines whether the sound card is enabled on the machine
  3924.     Function ComIsSoundCardEnabled Returns Boolean
  3925.         Handle hDispatchDriver
  3926.         Boolean retVal
  3927.         Get phDispatchDriver to hDispatchDriver
  3928.         Get InvokeComMethod of hDispatchDriver 53 OLE_VT_BOOL to retVal
  3929.         Function_Return retVal
  3930.     End_Function
  3931.  
  3932.     // Jumps to the next item
  3933.     Procedure ComNext
  3934.         Handle hDispatchDriver
  3935.         Get phDispatchDriver to hDispatchDriver
  3936.         Send InvokeComMethod to hDispatchDriver 2023 OLE_VT_VOID
  3937.     End_Procedure
  3938.  
  3939.     // Jumps to the previous item
  3940.     Procedure ComPrevious
  3941.         Handle hDispatchDriver
  3942.         Get phDispatchDriver to hDispatchDriver
  3943.         Send InvokeComMethod to hDispatchDriver 2022 OLE_VT_VOID
  3944.     End_Procedure
  3945.  
  3946.     // Selects a media stream
  3947.     Procedure ComStreamSelect Integer llStreamNum
  3948.         Handle hDispatchDriver
  3949.         Get phDispatchDriver to hDispatchDriver
  3950.         Send PrepareParams to hDispatchDriver 1
  3951.         Send DefineParam to hDispatchDriver OLE_VT_I4 llStreamNum
  3952.         Send InvokeComMethod to hDispatchDriver 2015 OLE_VT_VOID
  3953.     End_Procedure
  3954.  
  3955.     // Fast Forwards the playback
  3956.     Procedure ComFastForward
  3957.         Handle hDispatchDriver
  3958.         Get phDispatchDriver to hDispatchDriver
  3959.         Send InvokeComMethod to hDispatchDriver 2024 OLE_VT_VOID
  3960.     End_Procedure
  3961.  
  3962.     // Fast Reverses the playback
  3963.     Procedure ComFastReverse
  3964.         Handle hDispatchDriver
  3965.         Get phDispatchDriver to hDispatchDriver
  3966.         Send InvokeComMethod to hDispatchDriver 2025 OLE_VT_VOID
  3967.     End_Procedure
  3968.  
  3969.     // Returns the name of a media stream
  3970.     Function ComGetStreamName Integer llStreamNum Returns String
  3971.         Handle hDispatchDriver
  3972.         String retVal
  3973.         Get phDispatchDriver to hDispatchDriver
  3974.         Send PrepareParams to hDispatchDriver 1
  3975.         Send DefineParam to hDispatchDriver OLE_VT_I4 llStreamNum
  3976.         Get InvokeComMethod of hDispatchDriver 2019 OLE_VT_BSTR to retVal
  3977.         Function_Return retVal
  3978.     End_Function
  3979.  
  3980.     // Returns the group of a media stream
  3981.     Function ComGetStreamGroup Integer llStreamNum Returns Integer
  3982.         Handle hDispatchDriver
  3983.         Integer retVal
  3984.         Get phDispatchDriver to hDispatchDriver
  3985.         Send PrepareParams to hDispatchDriver 1
  3986.         Send DefineParam to hDispatchDriver OLE_VT_I4 llStreamNum
  3987.         Get InvokeComMethod of hDispatchDriver 2020 OLE_VT_I4 to retVal
  3988.         Function_Return retVal
  3989.     End_Function
  3990.  
  3991.     // Returns whether a media stream is selected
  3992.     Function ComGetStreamSelected Integer llStreamNum Returns Boolean
  3993.         Handle hDispatchDriver
  3994.         Boolean retVal
  3995.         Get phDispatchDriver to hDispatchDriver
  3996.         Send PrepareParams to hDispatchDriver 1
  3997.         Send DefineParam to hDispatchDriver OLE_VT_I4 llStreamNum
  3998.         Get InvokeComMethod of hDispatchDriver 2021 OLE_VT_BOOL to retVal
  3999.         Function_Return retVal
  4000.     End_Function
  4001. End_Class
  4002.  
  4003. // CLSID: {746EB440-3835-11D2-9774-0000F80855E6}
  4004. // MediaPlayer DVD interface
  4005. Class cComIMediaPlayerDvd is a cComAutomationObject
  4006.  
  4007.     // Selects and activates specified button
  4008.     Procedure ComButtonSelectAndActivate UInteger lluiButton
  4009.         Handle hDispatchDriver
  4010.         Get phDispatchDriver to hDispatchDriver
  4011.         Send PrepareParams to hDispatchDriver 1
  4012.         Send DefineParam to hDispatchDriver OLE_VT_UI4 lluiButton
  4013.         Send InvokeComMethod to hDispatchDriver 1526 OLE_VT_VOID
  4014.     End_Procedure
  4015.  
  4016.     // Selects the button above current button
  4017.     Procedure ComUpperButtonSelect
  4018.         Handle hDispatchDriver
  4019.         Get phDispatchDriver to hDispatchDriver
  4020.         Send InvokeComMethod to hDispatchDriver 1521 OLE_VT_VOID
  4021.     End_Procedure
  4022.  
  4023.     // Selects the button below current button
  4024.     Procedure ComLowerButtonSelect
  4025.         Handle hDispatchDriver
  4026.         Get phDispatchDriver to hDispatchDriver
  4027.         Send InvokeComMethod to hDispatchDriver 1522 OLE_VT_VOID
  4028.     End_Procedure
  4029.  
  4030.     // Selects the button to the left of current button
  4031.     Procedure ComLeftButtonSelect
  4032.         Handle hDispatchDriver
  4033.         Get phDispatchDriver to hDispatchDriver
  4034.         Send InvokeComMethod to hDispatchDriver 1523 OLE_VT_VOID
  4035.     End_Procedure
  4036.  
  4037.     // Selects the button to the right of current button
  4038.     Procedure ComRightButtonSelect
  4039.         Handle hDispatchDriver
  4040.         Get phDispatchDriver to hDispatchDriver
  4041.         Send InvokeComMethod to hDispatchDriver 1524 OLE_VT_VOID
  4042.     End_Procedure
  4043.  
  4044.     // Activates the currentlt selected button
  4045.     Procedure ComButtonActivate
  4046.         Handle hDispatchDriver
  4047.         Get phDispatchDriver to hDispatchDriver
  4048.         Send InvokeComMethod to hDispatchDriver 1525 OLE_VT_VOID
  4049.     End_Procedure
  4050.  
  4051.     // forward play at the specified speed
  4052.     Procedure ComForwardScan Real lldwSpeed
  4053.         Handle hDispatchDriver
  4054.         Get phDispatchDriver to hDispatchDriver
  4055.         Send PrepareParams to hDispatchDriver 1
  4056.         Send DefineParam to hDispatchDriver OLE_VT_R8 lldwSpeed
  4057.         Send InvokeComMethod to hDispatchDriver 1517 OLE_VT_VOID
  4058.     End_Procedure
  4059.  
  4060.     // reverse play at the specified speed
  4061.     Procedure ComBackwardScan Real lldwSpeed
  4062.         Handle hDispatchDriver
  4063.         Get phDispatchDriver to hDispatchDriver
  4064.         Send PrepareParams to hDispatchDriver 1
  4065.         Send DefineParam to hDispatchDriver OLE_VT_R8 lldwSpeed
  4066.         Send InvokeComMethod to hDispatchDriver 1518 OLE_VT_VOID
  4067.     End_Procedure
  4068.  
  4069.     // play previous program
  4070.     Procedure ComPrevPGSearch
  4071.         Handle hDispatchDriver
  4072.         Get phDispatchDriver to hDispatchDriver
  4073.         Send InvokeComMethod to hDispatchDriver 1514 OLE_VT_VOID
  4074.     End_Procedure
  4075.  
  4076.     // play current program
  4077.     Procedure ComTopPGSearch
  4078.         Handle hDispatchDriver
  4079.         Get phDispatchDriver to hDispatchDriver
  4080.         Send InvokeComMethod to hDispatchDriver 1515 OLE_VT_VOID
  4081.     End_Procedure
  4082.  
  4083.     // play next program
  4084.     Procedure ComNextPGSearch
  4085.         Handle hDispatchDriver
  4086.         Get phDispatchDriver to hDispatchDriver
  4087.         Send InvokeComMethod to hDispatchDriver 1516 OLE_VT_VOID
  4088.     End_Procedure
  4089.  
  4090.     // Play title number 1-99
  4091.     Procedure ComTitlePlay UInteger lluiTitle
  4092.         Handle hDispatchDriver
  4093.         Get phDispatchDriver to hDispatchDriver
  4094.         Send PrepareParams to hDispatchDriver 1
  4095.         Send DefineParam to hDispatchDriver OLE_VT_UI4 lluiTitle
  4096.         Send InvokeComMethod to hDispatchDriver 1507 OLE_VT_VOID
  4097.     End_Procedure
  4098.  
  4099.     // Play chapter number 1-99 of title 1-99
  4100.     Procedure ComChapterPlay UInteger lluiTitle UInteger lluiChapter
  4101.         Handle hDispatchDriver
  4102.         Get phDispatchDriver to hDispatchDriver
  4103.         Send PrepareParams to hDispatchDriver 2
  4104.         Send DefineParam to hDispatchDriver OLE_VT_UI4 lluiTitle
  4105.         Send DefineParam to hDispatchDriver OLE_VT_UI4 lluiChapter
  4106.         Send InvokeComMethod to hDispatchDriver 1508 OLE_VT_VOID
  4107.     End_Procedure
  4108.  
  4109.     // play at specified chapter in current title
  4110.     Procedure ComChapterSearch UInteger llChapter
  4111.         Handle hDispatchDriver
  4112.         Get phDispatchDriver to hDispatchDriver
  4113.         Send PrepareParams to hDispatchDriver 1
  4114.         Send DefineParam to hDispatchDriver OLE_VT_UI4 llChapter
  4115.         Send InvokeComMethod to hDispatchDriver 1513 OLE_VT_VOID
  4116.     End_Procedure
  4117.  
  4118.     // Play specified menu
  4119.     Procedure ComMenuCall OLEDVDMenuIDConstants llMenuID
  4120.         Handle hDispatchDriver
  4121.         Get phDispatchDriver to hDispatchDriver
  4122.         Send PrepareParams to hDispatchDriver 1
  4123.         Send DefineParam to hDispatchDriver OLE_VT_I4 llMenuID
  4124.         Send InvokeComMethod to hDispatchDriver 1519 OLE_VT_VOID
  4125.     End_Procedure
  4126.  
  4127.     // Resume title playback
  4128.     Procedure ComResumeFromMenu
  4129.         Handle hDispatchDriver
  4130.         Get phDispatchDriver to hDispatchDriver
  4131.         Send InvokeComMethod to hDispatchDriver 1520 OLE_VT_VOID
  4132.     End_Procedure
  4133.  
  4134.     // Play at specified time (hh:mm:ss:ff) within specified title
  4135.     Procedure ComTimePlay UInteger lluiTitle String llbstrTime
  4136.         Handle hDispatchDriver
  4137.         Get phDispatchDriver to hDispatchDriver
  4138.         Send PrepareParams to hDispatchDriver 2
  4139.         Send DefineParam to hDispatchDriver OLE_VT_UI4 lluiTitle
  4140.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbstrTime
  4141.         Send InvokeComMethod to hDispatchDriver 1509 OLE_VT_VOID
  4142.     End_Procedure
  4143.  
  4144.     // play at specified time in current title
  4145.     Procedure ComTimeSearch String llbstrTime
  4146.         Handle hDispatchDriver
  4147.         Get phDispatchDriver to hDispatchDriver
  4148.         Send PrepareParams to hDispatchDriver 1
  4149.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbstrTime
  4150.         Send InvokeComMethod to hDispatchDriver 1512 OLE_VT_VOID
  4151.     End_Procedure
  4152.  
  4153.     // Playing a sequence of chapters in specified title
  4154.     Procedure ComChapterPlayAutoStop UInteger llulTitle UInteger llulChapter UInteger llulChaptersToPlay
  4155.         Handle hDispatchDriver
  4156.         Get phDispatchDriver to hDispatchDriver
  4157.         Send PrepareParams to hDispatchDriver 3
  4158.         Send DefineParam to hDispatchDriver OLE_VT_UI4 llulTitle
  4159.         Send DefineParam to hDispatchDriver OLE_VT_UI4 llulChapter
  4160.         Send DefineParam to hDispatchDriver OLE_VT_UI4 llulChaptersToPlay
  4161.         Send InvokeComMethod to hDispatchDriver 1541 OLE_VT_VOID
  4162.     End_Procedure
  4163.  
  4164.     // Releases any current still if there are no available buttons
  4165.     Procedure ComStillOff
  4166.         Handle hDispatchDriver
  4167.         Get phDispatchDriver to hDispatchDriver
  4168.         Send InvokeComMethod to hDispatchDriver 1527 OLE_VT_VOID
  4169.     End_Procedure
  4170.  
  4171.     // play current program chain 
  4172.     Procedure ComGoUp
  4173.         Handle hDispatchDriver
  4174.         Get phDispatchDriver to hDispatchDriver
  4175.         Send InvokeComMethod to hDispatchDriver 1511 OLE_VT_VOID
  4176.     End_Procedure
  4177.  
  4178.     // Gets a string containing the total time in the title (hh:mm:ss:ff)
  4179.     Function ComTotalTitleTime Returns String
  4180.         Handle hDispatchDriver
  4181.         String retVal
  4182.         Get phDispatchDriver to hDispatchDriver
  4183.         Get InvokeComMethod of hDispatchDriver 1582 OLE_VT_BSTR to retVal
  4184.         Function_Return retVal
  4185.     End_Function
  4186.  
  4187.     // Gets the number of chapters for the specified title
  4188.     Function ComGetNumberOfChapters UInteger llulTitle Returns UInteger
  4189.         Handle hDispatchDriver
  4190.         UInteger retVal
  4191.         Get phDispatchDriver to hDispatchDriver
  4192.         Send PrepareParams to hDispatchDriver 1
  4193.         Send DefineParam to hDispatchDriver OLE_VT_UI4 llulTitle
  4194.         Get InvokeComMethod of hDispatchDriver 1550 OLE_VT_UI4 to retVal
  4195.         Function_Return retVal
  4196.     End_Function
  4197.  
  4198.     // Gets the name of the Audio language
  4199.     Function ComGetAudioLanguage UInteger llulStream Returns String
  4200.         Handle hDispatchDriver
  4201.         String retVal
  4202.         Get phDispatchDriver to hDispatchDriver
  4203.         Send PrepareParams to hDispatchDriver 1
  4204.         Send DefineParam to hDispatchDriver OLE_VT_UI4 llulStream
  4205.         Get InvokeComMethod of hDispatchDriver 1551 OLE_VT_BSTR to retVal
  4206.         Function_Return retVal
  4207.     End_Function
  4208.  
  4209.     // Gets the name of the Subpicture language
  4210.     Function ComGetSubpictureLanguage UInteger llulStream Returns String
  4211.         Handle hDispatchDriver
  4212.         String retVal
  4213.         Get phDispatchDriver to hDispatchDriver
  4214.         Send PrepareParams to hDispatchDriver 1
  4215.         Send DefineParam to hDispatchDriver OLE_VT_UI4 llulStream
  4216.         Get InvokeComMethod of hDispatchDriver 1555 OLE_VT_BSTR to retVal
  4217.         Function_Return retVal
  4218.     End_Function
  4219.  
  4220.     // Gets an array of the DVD General Parameter Registers
  4221.     Function ComGetAllGPRMs Returns Variant
  4222.         Handle hDispatchDriver
  4223.         Variant retVal
  4224.         Get phDispatchDriver to hDispatchDriver
  4225.         Get InvokeComMethod of hDispatchDriver 1560 OLE_VT_VARIANT to retVal
  4226.         Function_Return retVal
  4227.     End_Function
  4228.  
  4229.     // Gets an array of the DVD System Parameter Registers
  4230.     Function ComGetAllSPRMs Returns Variant
  4231.         Handle hDispatchDriver
  4232.         Variant retVal
  4233.         Get phDispatchDriver to hDispatchDriver
  4234.         Get InvokeComMethod of hDispatchDriver 1559 OLE_VT_VARIANT to retVal
  4235.         Function_Return retVal
  4236.     End_Function
  4237.  
  4238.     // Checks the validity of the UOP
  4239.     Function ComUOPValid UInteger llulUOP Returns Boolean
  4240.         Handle hDispatchDriver
  4241.         Boolean retVal
  4242.         Get phDispatchDriver to hDispatchDriver
  4243.         Send PrepareParams to hDispatchDriver 1
  4244.         Send DefineParam to hDispatchDriver OLE_VT_UI4 llulUOP
  4245.         Get InvokeComMethod of hDispatchDriver 1579 OLE_VT_BOOL to retVal
  4246.         Function_Return retVal
  4247.     End_Function
  4248.  
  4249.     // Gets the number of available buttons
  4250.     Function ComButtonsAvailable Returns UInteger
  4251.         Handle hDispatchDriver
  4252.         UInteger retVal
  4253.         Get phDispatchDriver to hDispatchDriver
  4254.         Get InvokeComMethod of hDispatchDriver 1571 OLE_VT_UI4 to retVal
  4255.         Function_Return retVal
  4256.     End_Function
  4257.  
  4258.     // Gets the current button number
  4259.     Function ComCurrentButton Returns UInteger
  4260.         Handle hDispatchDriver
  4261.         UInteger retVal
  4262.         Get phDispatchDriver to hDispatchDriver
  4263.         Get InvokeComMethod of hDispatchDriver 1570 OLE_VT_UI4 to retVal
  4264.         Function_Return retVal
  4265.     End_Function
  4266.  
  4267.     // Gets the number of available Audio streams
  4268.     Function ComAudioStreamsAvailable Returns UInteger
  4269.         Handle hDispatchDriver
  4270.         UInteger retVal
  4271.         Get phDispatchDriver to hDispatchDriver
  4272.         Get InvokeComMethod of hDispatchDriver 1543 OLE_VT_UI4 to retVal
  4273.         Function_Return retVal
  4274.     End_Function
  4275.  
  4276.     // Gets the current audio stream
  4277.     Function ComCurrentAudioStream Returns UInteger
  4278.         Handle hDispatchDriver
  4279.         UInteger retVal
  4280.         Get phDispatchDriver to hDispatchDriver
  4281.         Get InvokeComMethod of hDispatchDriver 1544 OLE_VT_UI4 to retVal
  4282.         Function_Return retVal
  4283.     End_Function
  4284.  
  4285.     // Gets the current audio stream
  4286.     Procedure Set ComCurrentAudioStream UInteger value
  4287.         Handle hDispatchDriver
  4288.         Get phDispatchDriver to hDispatchDriver
  4289.         Send PrepareParams to hDispatchDriver 1
  4290.         Set ComProperty of hDispatchDriver 1544 OLE_VT_UI4 to value
  4291.     End_Procedure
  4292.  
  4293.     // Gets the current subpicture stream
  4294.     Function ComCurrentSubpictureStream Returns UInteger
  4295.         Handle hDispatchDriver
  4296.         UInteger retVal
  4297.         Get phDispatchDriver to hDispatchDriver
  4298.         Get InvokeComMethod of hDispatchDriver 1545 OLE_VT_UI4 to retVal
  4299.         Function_Return retVal
  4300.     End_Function
  4301.  
  4302.     // Gets the current subpicture stream
  4303.     Procedure Set ComCurrentSubpictureStream UInteger value
  4304.         Handle hDispatchDriver
  4305.         Get phDispatchDriver to hDispatchDriver
  4306.         Send PrepareParams to hDispatchDriver 1
  4307.         Set ComProperty of hDispatchDriver 1545 OLE_VT_UI4 to value
  4308.     End_Procedure
  4309.  
  4310.     // Gets the number of available subpicture streams
  4311.     Function ComSubpictureStreamsAvailable Returns UInteger
  4312.         Handle hDispatchDriver
  4313.         UInteger retVal
  4314.         Get phDispatchDriver to hDispatchDriver
  4315.         Get InvokeComMethod of hDispatchDriver 1546 OLE_VT_UI4 to retVal
  4316.         Function_Return retVal
  4317.     End_Function
  4318.  
  4319.     // Gets the state of the Subpicture display
  4320.     Function ComSubpictureOn Returns Boolean
  4321.         Handle hDispatchDriver
  4322.         Boolean retVal
  4323.         Get phDispatchDriver to hDispatchDriver
  4324.         Get InvokeComMethod of hDispatchDriver 1547 OLE_VT_BOOL to retVal
  4325.         Function_Return retVal
  4326.     End_Function
  4327.  
  4328.     // Gets the state of the Subpicture display
  4329.     Procedure Set ComSubpictureOn Boolean value
  4330.         Handle hDispatchDriver
  4331.         Get phDispatchDriver to hDispatchDriver
  4332.         Send PrepareParams to hDispatchDriver 1
  4333.         Set ComProperty of hDispatchDriver 1547 OLE_VT_BOOL to value
  4334.     End_Procedure
  4335.  
  4336.     // Get the number of available Angles
  4337.     Function ComAnglesAvailable Returns UInteger
  4338.         Handle hDispatchDriver
  4339.         UInteger retVal
  4340.         Get phDispatchDriver to hDispatchDriver
  4341.         Get InvokeComMethod of hDispatchDriver 1549 OLE_VT_UI4 to retVal
  4342.         Function_Return retVal
  4343.     End_Function
  4344.  
  4345.     // Gets the current Angle
  4346.     Function ComCurrentAngle Returns UInteger
  4347.         Handle hDispatchDriver
  4348.         UInteger retVal
  4349.         Get phDispatchDriver to hDispatchDriver
  4350.         Get InvokeComMethod of hDispatchDriver 1548 OLE_VT_UI4 to retVal
  4351.         Function_Return retVal
  4352.     End_Function
  4353.  
  4354.     // Gets the current Angle
  4355.     Procedure Set ComCurrentAngle UInteger value
  4356.         Handle hDispatchDriver
  4357.         Get phDispatchDriver to hDispatchDriver
  4358.         Send PrepareParams to hDispatchDriver 1
  4359.         Set ComProperty of hDispatchDriver 1548 OLE_VT_UI4 to value
  4360.     End_Procedure
  4361.  
  4362.     // Gets the current Title
  4363.     Function ComCurrentTitle Returns UInteger
  4364.         Handle hDispatchDriver
  4365.         UInteger retVal
  4366.         Get phDispatchDriver to hDispatchDriver
  4367.         Get InvokeComMethod of hDispatchDriver 1567 OLE_VT_UI4 to retVal
  4368.         Function_Return retVal
  4369.     End_Function
  4370.  
  4371.     // Gets the current Chapter
  4372.     Function ComCurrentChapter Returns UInteger
  4373.         Handle hDispatchDriver
  4374.         UInteger retVal
  4375.         Get phDispatchDriver to hDispatchDriver
  4376.         Get InvokeComMethod of hDispatchDriver 1568 OLE_VT_UI4 to retVal
  4377.         Function_Return retVal
  4378.     End_Function
  4379.  
  4380.     // Gets the current Time
  4381.     Function ComCurrentTime Returns String
  4382.         Handle hDispatchDriver
  4383.         String retVal
  4384.         Get phDispatchDriver to hDispatchDriver
  4385.         Get InvokeComMethod of hDispatchDriver 1569 OLE_VT_BSTR to retVal
  4386.         Function_Return retVal
  4387.     End_Function
  4388.  
  4389.     // Sets the root directory containing the DVD-Video volume
  4390.     Procedure Set ComRoot String value
  4391.         Handle hDispatchDriver
  4392.         Get phDispatchDriver to hDispatchDriver
  4393.         Send PrepareParams to hDispatchDriver 1
  4394.         Set ComProperty of hDispatchDriver 1538 OLE_VT_BSTR to value
  4395.     End_Procedure
  4396.  
  4397.     // Sets the root directory containing the DVD-Video volume
  4398.     Function ComRoot Returns String
  4399.         Handle hDispatchDriver
  4400.         String retVal
  4401.         Get phDispatchDriver to hDispatchDriver
  4402.         Get InvokeComMethod of hDispatchDriver 1538 OLE_VT_BSTR to retVal
  4403.         Function_Return retVal
  4404.     End_Function
  4405.  
  4406.     // Gets the number of frames per second used by the current title
  4407.     Function ComFramesPerSecond Returns UInteger
  4408.         Handle hDispatchDriver
  4409.         UInteger retVal
  4410.         Get phDispatchDriver to hDispatchDriver
  4411.         Get InvokeComMethod of hDispatchDriver 1573 OLE_VT_UI4 to retVal
  4412.         Function_Return retVal
  4413.     End_Function
  4414.  
  4415.     // Gets the current Domain
  4416.     Function ComCurrentDomain Returns UInteger
  4417.         Handle hDispatchDriver
  4418.         UInteger retVal
  4419.         Get phDispatchDriver to hDispatchDriver
  4420.         Get InvokeComMethod of hDispatchDriver 1574 OLE_VT_UI4 to retVal
  4421.         Function_Return retVal
  4422.     End_Function
  4423.  
  4424.     // Gets the number of available titles
  4425.     Function ComTitlesAvailable Returns UInteger
  4426.         Handle hDispatchDriver
  4427.         UInteger retVal
  4428.         Get phDispatchDriver to hDispatchDriver
  4429.         Get InvokeComMethod of hDispatchDriver 1575 OLE_VT_UI4 to retVal
  4430.         Function_Return retVal
  4431.     End_Function
  4432.  
  4433.     // Gets the number of available volumes
  4434.     Function ComVolumesAvailable Returns UInteger
  4435.         Handle hDispatchDriver
  4436.         UInteger retVal
  4437.         Get phDispatchDriver to hDispatchDriver
  4438.         Get InvokeComMethod of hDispatchDriver 1576 OLE_VT_UI4 to retVal
  4439.         Function_Return retVal
  4440.     End_Function
  4441.  
  4442.     // Gets the current volume
  4443.     Function ComCurrentVolume Returns UInteger
  4444.         Handle hDispatchDriver
  4445.         UInteger retVal
  4446.         Get phDispatchDriver to hDispatchDriver
  4447.         Get InvokeComMethod of hDispatchDriver 1577 OLE_VT_UI4 to retVal
  4448.         Function_Return retVal
  4449.     End_Function
  4450.  
  4451.     // Gets the current disc side
  4452.     Function ComCurrentDiscSide Returns UInteger
  4453.         Handle hDispatchDriver
  4454.         UInteger retVal
  4455.         Get phDispatchDriver to hDispatchDriver
  4456.         Get InvokeComMethod of hDispatchDriver 1578 OLE_VT_UI4 to retVal
  4457.         Function_Return retVal
  4458.     End_Function
  4459.  
  4460.     // Gets the active state of the closed captioning service
  4461.     Function ComCCActive Returns Boolean
  4462.         Handle hDispatchDriver
  4463.         Boolean retVal
  4464.         Get phDispatchDriver to hDispatchDriver
  4465.         Get InvokeComMethod of hDispatchDriver 1581 OLE_VT_BOOL to retVal
  4466.         Function_Return retVal
  4467.     End_Function
  4468.  
  4469.     // Gets the active state of the closed captioning service
  4470.     Procedure Set ComCCActive Boolean value
  4471.         Handle hDispatchDriver
  4472.         Get phDispatchDriver to hDispatchDriver
  4473.         Send PrepareParams to hDispatchDriver 1
  4474.         Set ComProperty of hDispatchDriver 1581 OLE_VT_BOOL to value
  4475.     End_Procedure
  4476.  
  4477.     // Gets the current closed captioning service
  4478.     Function ComCurrentCCService Returns UInteger
  4479.         Handle hDispatchDriver
  4480.         UInteger retVal
  4481.         Get phDispatchDriver to hDispatchDriver
  4482.         Get InvokeComMethod of hDispatchDriver 1580 OLE_VT_UI4 to retVal
  4483.         Function_Return retVal
  4484.     End_Function
  4485.  
  4486.     // Gets the current closed captioning service
  4487.     Procedure Set ComCurrentCCService UInteger value
  4488.         Handle hDispatchDriver
  4489.         Get phDispatchDriver to hDispatchDriver
  4490.         Send PrepareParams to hDispatchDriver 1
  4491.         Set ComProperty of hDispatchDriver 1580 OLE_VT_UI4 to value
  4492.     End_Procedure
  4493.  
  4494.     // Gets a Unique identifier for the current DVD-Video disk
  4495.     Function ComUniqueID Returns String
  4496.         Handle hDispatchDriver
  4497.         String retVal
  4498.         Get phDispatchDriver to hDispatchDriver
  4499.         Get InvokeComMethod of hDispatchDriver 1584 OLE_VT_BSTR to retVal
  4500.         Function_Return retVal
  4501.     End_Function
  4502.  
  4503.     // Gets ColorKey for the overlay
  4504.     Function ComColorKey Returns UInteger
  4505.         Handle hDispatchDriver
  4506.         UInteger retVal
  4507.         Get phDispatchDriver to hDispatchDriver
  4508.         Get InvokeComMethod of hDispatchDriver 1585 OLE_VT_UI4 to retVal
  4509.         Function_Return retVal
  4510.     End_Function
  4511.  
  4512.     // Gets ColorKey for the overlay
  4513.     Procedure Set ComColorKey UInteger value
  4514.         Handle hDispatchDriver
  4515.         Get phDispatchDriver to hDispatchDriver
  4516.         Send PrepareParams to hDispatchDriver 1
  4517.         Set ComProperty of hDispatchDriver 1585 OLE_VT_UI4 to value
  4518.     End_Procedure
  4519. End_Class
  4520.  
  4521. // CLSID: {920F0DE3-91C5-11D2-828F-00C04FC99D4E}
  4522. // IMediaBindStream Interface
  4523. Class cComIMediaBindStream is a cComAutomationObject
  4524.  
  4525.     Procedure ComLoadMoniker String llbszTransferContext String llbszUrl
  4526.         Handle hDispatchDriver
  4527.         Get phDispatchDriver to hDispatchDriver
  4528.         Send PrepareParams to hDispatchDriver 2
  4529.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbszTransferContext
  4530.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbszUrl
  4531.         Send InvokeComMethod to hDispatchDriver 8004 OLE_VT_VOID
  4532.     End_Procedure
  4533. End_Class
  4534.  
  4535. // CLSID: {9C2263A0-3E3C-11D2-9BD3-204C4F4F5020}
  4536. // IRadioServer Interface
  4537. Class cComIRadioServer is a cComAutomationObject
  4538.  
  4539.     Function ComBindToRadio String llwszRadio Returns Variant
  4540.         Handle hDispatchDriver
  4541.         Variant retVal
  4542.         Get phDispatchDriver to hDispatchDriver
  4543.         Send PrepareParams to hDispatchDriver 1
  4544.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llwszRadio
  4545.         Get InvokeComMethod of hDispatchDriver 10 OLE_VT_DISPATCH to retVal
  4546.         Function_Return retVal
  4547.     End_Function
  4548.  
  4549.     Procedure ComIsRadioExists String llwszRadio
  4550.         Handle hDispatchDriver
  4551.         Get phDispatchDriver to hDispatchDriver
  4552.         Send PrepareParams to hDispatchDriver 1
  4553.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llwszRadio
  4554.         Send InvokeComMethod to hDispatchDriver 21 OLE_VT_VOID
  4555.     End_Procedure
  4556.  
  4557.     Procedure ComLaunchStandardUrl String llbszUrl Variant llpBrowser
  4558.         Handle hDispatchDriver
  4559.         Get phDispatchDriver to hDispatchDriver
  4560.         Send PrepareParams to hDispatchDriver 2
  4561.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbszUrl
  4562.         Send DefineParam to hDispatchDriver OLE_VT_UNKNOWN llpBrowser
  4563.         Send InvokeComMethod to hDispatchDriver 22 OLE_VT_VOID
  4564.     End_Procedure
  4565. End_Class
  4566.  
  4567. // CLSID: {8E718889-423F-11D2-876E-00A0C9082467}
  4568. // IRadioServerControl Interface
  4569. Class cComIRadioServerControl is a cComAutomationObject
  4570. End_Class
  4571.  
  4572.  
  4573.