TCustomXmlScanner

type TCustomXmlScanner = class(TComponent)

protected

  FXmlParser: TXmlParser;

  FOnXmlProlog: TXmlPrologEvent;

  FOnComment: TCommentEvent;

  FOnPI: TPIEvent;

  FOnDtdRead: TDtdEvent;

  FOnStartTag: TStartTagEvent;

  FOnEmptyTag: TStartTagEvent;

  FOnEndTag: TEndTagEvent;

  FOnContent: TContentEvent;

  FOnCData: TContentEvent;

  FOnElement: TElementEvent;

  FOnAttList: TElementEvent;

  FOnEntity: TEntityEvent;

  FOnNotation: TNotationEvent;

  FOnDtdError: TErrorEvent;

  FOnLoadExternal: TExternalEvent;

  FOnTranslateEncoding: TEncodingEvent;

  FOnTranslateCharacter: TEncodeCharEvent;

  FStopParser: Boolean;

  function GetNormalize;

  procedure SetNormalize();

  procedure WhenXmlProlog(); virtual;

  procedure WhenComment(); virtual;

  procedure WhenPI(); virtual;

  procedure WhenDtdRead(); virtual;

  procedure WhenStartTag(); virtual;

  procedure WhenEmptyTag(); virtual;

  procedure WhenEndTag(); virtual;

  procedure WhenContent(); virtual;

  procedure WhenCData(); virtual;

  procedure WhenElement(); virtual;

  procedure WhenAttList(); virtual;

  procedure WhenEntity(); virtual;

  procedure WhenNotation(); virtual;

  procedure WhenDtdError(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure LoadFromFile();

  procedure LoadFromBuffer();

  procedure SetBuffer();

  function GetFilename;

  procedure Execute;

protected

  property XmlParser: TXmlParser; [r]

  property StopParser: Boolean; [rw]

  property Filename: TFilename; [rw]

  property Normalize: Boolean; [rw]

  property OnXmlProlog: TXmlPrologEvent; [rw]

  property OnComment: TCommentEvent; [rw]

  property OnPI: TPIEvent; [rw]

  property OnDtdRead: TDtdEvent; [rw]

  property OnStartTag: TStartTagEvent; [rw]

  property OnEmptyTag: TStartTagEvent; [rw]

  property OnEndTag: TEndTagEvent; [rw]

  property OnContent: TContentEvent; [rw]

  property OnCData: TContentEvent; [rw]

  property OnElement: TElementEvent; [rw]

  property OnAttList: TElementEvent; [rw]

  property OnEntity: TEntityEvent; [rw]

  property OnNotation: TNotationEvent; [rw]

  property OnDtdError: TErrorEvent; [rw]

  property OnLoadExternal: TExternalEvent; [rw]

  property OnTranslateEncoding: TEncodingEvent; [rw]

  property OnTranslateCharacter: TEncodeCharEvent; [rw]

end;

TCustomXmlScanner

TObject