unit AutoIEParser;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, SelfSozluk_TLB, StdVcl, IEParser;

type
  { TAutoIEParser }
  TAutoIEParser = class(TAutoIntfObject, IIEParser)
  private
    FIEParser: TIEParser;
  protected
  public
    constructor Create;
    destructor Destroy; override;
    function parseString(const HTMLText: WideString): IDispatch; safecall;
  end;

implementation

uses ComServ2007;

function TAutoIEParser.parseString(const HTMLText: WideString): IDispatch;
begin
  Result := FIEParser.LoadFromString(HTMLText);
end;

constructor TAutoIEParser.Create;
begin
  inherited Create(ComServer.TypeLib, IIEParser);
  FIEParser := TIEParser.Create(nil);
end;

destructor TAutoIEParser.Destroy;
begin
  FIEParser.Free;
  inherited Destroy;
end;

end.