package body MSHTML.IDOMParser_Object is

   function parseFromString
     (This      : IDOMParser_Type;
      xmlSource : GNATCOM.Types.VARIANT;
      mimeType  : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IDOMParser_parseFromString,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => mimeType,
          2 => xmlSource),
         Free);
   end parseFromString;

end MSHTML.IDOMParser_Object;

