synuniformatnativexmlauto.pas

来自「SynEditStudio delphi 代码编辑器」· PAS 代码 · 共 63 行

{
@abstract(Provides automatic detecting format of highlighters and importing)
@authors(Vitalik [[e-mail]])
@created(2006)
@lastmod(2006-07-23)
}

{$IFNDEF QSynUniFormatNativeXmlAuto}
unit SynUniFormatNativeXmlAuto;
{$ENDIF}

interface

uses
{$IFDEF SYN_CLX}
  QClasses,
  QGraphics,
  QSynUniFormat,
  QSynUniClasses,
  QSynUniRules,
  QSynUniHighlighter
{$ELSE}
  Classes,
  Graphics,
  //Variants,
  SynUniFormat,
  SynUniFormatNativeXml,
  SynUniClasses,
  SynUniRules,
  SynUniHighlighter,
{$ENDIF}
  SysUtils{ ,
  XMLIntf // DW } ;

type
  TSynUniFormatNativeXmlAuto = class(TSynUniFormat)
    class function ImportFromStream(AObject: TObject; AStream: TStream): Boolean; override;
    class function ExportToStream(AObject: TObject; AStream: TStream): Boolean; override;
    class function ImportFromFile(AObject: TObject; AFileName: string): Boolean; override;
    class function ExportToFile(AObject: TObject; AFileName: string): Boolean; override;
  end;

implementation

uses
  SynUniFormatNativeXml15,
  SynUniFormatNativeXml18,
  SynUniFormatNativeXml20;

//----------------------------------------------------------------------------
class function TSynUniFormatNativeXmlAuto.ImportFromStream(AObject: TObject; AStream: TStream): Boolean;
var
  Buffer: string;
const
  NumBytes = 32;
begin
  VerifyStream(AStream);
  
  SetLength(Buffer, NumBytes);
  AStream.Read(Buffer[1], NumBytes);
  AStream.Position := 0;
  if Copy(Buffer, 1, 16) = '<UniHighlighter>' then
  begin // versions 1.0