package body MSHTML.IHTMLMediaElement_Object is

   function Get_error
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_error);
   end Get_error;

   procedure Put_src
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_src,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_src;

   function Get_src
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_src);
   end Get_src;

   function Get_currentSrc
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_currentSrc);
   end Get_currentSrc;

   function Get_networkState
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_networkState);
   end Get_networkState;

   procedure Put_preload
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_preload,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_preload;

   function Get_preload
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_preload);
   end Get_preload;

   function Get_buffered
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_buffered);
   end Get_buffered;

   procedure load
     (This : IHTMLMediaElement_Type)
   is
   begin
      Invoke (This, IHTMLMediaElement_load);
   end load;

   function canPlayType
     (This  : IHTMLMediaElement_Type;
      utype : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLMediaElement_canPlayType,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => utype),
         Free);
   end canPlayType;

   function Get_seeking
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_seeking);
   end Get_seeking;

   procedure Put_currentTime
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_currentTime,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_currentTime;

   function Get_currentTime
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_currentTime);
   end Get_currentTime;

   function Get_initialTime
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_initialTime);
   end Get_initialTime;

   function Get_duration
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_duration);
   end Get_duration;

   function Get_paused
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_paused);
   end Get_paused;

   procedure Put_defaultPlaybackRate
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_defaultPlaybackRate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_defaultPlaybackRate;

   function Get_defaultPlaybackRate
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_defaultPlaybackRate);
   end Get_defaultPlaybackRate;

   procedure Put_playbackRate
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_playbackRate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_playbackRate;

   function Get_playbackRate
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_playbackRate);
   end Get_playbackRate;

   function Get_played
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_played);
   end Get_played;

   function Get_seekable
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_seekable);
   end Get_seekable;

   function Get_ended
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_ended);
   end Get_ended;

   procedure Put_autoplay
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_autoplay,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_autoplay;

   function Get_autoplay
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_autoplay);
   end Get_autoplay;

   procedure Put_loop
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_loop,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_loop;

   function Get_loop
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_loop);
   end Get_loop;

   procedure play
     (This : IHTMLMediaElement_Type)
   is
   begin
      Invoke (This, IHTMLMediaElement_play);
   end play;

   procedure pause
     (This : IHTMLMediaElement_Type)
   is
   begin
      Invoke (This, IHTMLMediaElement_pause);
   end pause;

   procedure Put_controls
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_controls,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_controls;

   function Get_controls
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_controls);
   end Get_controls;

   procedure Put_volume
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_volume,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_volume;

   function Get_volume
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_volume);
   end Get_volume;

   procedure Put_muted
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_muted,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_muted;

   function Get_muted
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_muted);
   end Get_muted;

   procedure Put_autobuffer
     (This : IHTMLMediaElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMediaElement_Put_autobuffer,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_autobuffer;

   function Get_autobuffer
     (This : IHTMLMediaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMediaElement_Get_autobuffer);
   end Get_autobuffer;

end MSHTML.IHTMLMediaElement_Object;

