• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

【Delphi】AXMLPrinter(AndroidXML)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

找这个的人肯定知道这是干什么的。没错，我花了半天时间将Java代码改写成了Delphi，在D2007下调试通过。


废话不多说，上代码：

 

{*******************************************************}
{                                                       }
{       AXMLPrinter (Android XML反编译)                 }
{                                                       }
{       版权所有 (C) 2015 YangYxd                       }
{                                                       }
{*******************************************************}

unit YxdAXMLPrinter;

interface

uses
  SysUtils, Classes;
  
const
  CHUNK_TYPE = $1C0001;
  CHUNK_AXML_FILE = 524291;
  CHUNK_RESOURCEIDS = 524672;
  CHUNK_XML_FIRST = 1048832;
  CHUNK_XML_START_NAMESPACE = 1048832;
  CHUNK_XML_END_NAMESPACE = 1048833;
  CHUNK_XML_START_TAG = 1048834;
  CHUNK_XML_END_TAG = 1048835;
  CHUNK_XML_TEXT = 1048836;
  CHUNK_XML_LAST = 1048836;

const
  RADIX_MULTS: array [0..3] of Double = (
        0.0039063, 3.051758E-005, 1.192093E-007, 4.656613E-010);
    DIMENSION_UNITS: array [0..7] of String = (
        'px', 'dip', 'sp', 'pt', 'in', 'mm', '', '');
    FRACTION_UNITS: array [0..7] of String = (
        '%', '%p', '', '', '', '', '', '');

type
  TIntegers = array of Integer;
type
  TIntReader = class(TObject)
  private
    FStream: TStream;
    FBigEndian: Boolean;
    FPosition: Integer;
  protected
  public
    constructor Create; overload;
    constructor Create(AStream: TStream; bigEndian: Boolean); overload;
    constructor Create(const AFileName: string; bigEndian: Boolean); overload;
    destructor Destroy; override;

    procedure reset(AStream: TStream; bigEndian: Boolean);
    procedure Close();

    function readByte(): ShortInt;
    function readShort(): ShortInt;
    function readInt(): Integer; overload;
    function readInt(ALen: Integer): Integer; overload;
    function readIntArray(ALen: Integer): TIntegers; overload;
    procedure readIntArray(var AData: TIntegers); overload;
    procedure readIntArray(var AData: TIntegers; AOffset, ALen: Integer); overload;
    function readByteArray(ALen: Integer): TBytes;
    procedure skip(bytes: Integer);
    procedure skipInt();
    function available(): Integer;

    property Stream: TStream read FStream;
    property IsBigEndian: Boolean read FBigEndian write FBigEndian;
    property Position: Integer read FPosition write FPosition;
  end;

type
  TStringBlock = class
  private
    FStringOffset: TIntegers;
    FStrings: TIntegers;
    function GetCount: Integer;
    function GetString(index: Integer): string;
  protected
    FStyleOffset: TIntegers;
    FStyles: TIntegers;
  public
    constructor Create(); 
    destructor Destroy; override;
    class function read(reader: TIntReader): TStringBlock;
    function find(const str: string): Integer;
    function getShort(const datas: TIntegers; offset: Integer): Integer;
    property Count: Integer read GetCount;
    property Items[index: Integer]: string read GetString;
  end;

type
  TNamespaceStack = class;
  TXmlPullParser = class(TObject)
  private
    m_operational: Boolean;
    m_strings: TStringBlock;
    m_reader: TIntReader;
    m_resourceIDs: TIntegers;
    m_namespaces: TNamespaceStack;
    m_decreaseDepth: Boolean;
    m_event: Integer;
    m_lineNumber: Integer;
    m_name: Integer;
    m_namespaceUri: Integer;
    m_attributes: TIntegers;
    m_idAttribute: Integer;
    m_classAttribute: Integer;
    m_styleAttribute: Integer;

    procedure doNext();
  protected
  public
    constructor Create; virtual;
    destructor Destroy; override;

    procedure Open(AStream: TStream); overload;
    procedure Open(const AFileName: string); overload;
    procedure Close();

    class function getPackage(id: Integer): string;
    class function complexToFloat(complex: Integer): Double;

    // 读取 APK 文件中zip解压后的 AndroidManifest.xml 文件获取基本
    // 信息 （包名、版本名称、版本代码）
    class function ReadAndroidManifestFile(const AFileName: string;
      var packageName, versionName: string; var versionCode: Integer): Boolean; overload;
    // 读取 APK 文件中zip解压后的 AndroidManifest.xml 文件获取基本
    // 信息 （包名、版本名称、版本代码）
    class function ReadAndroidManifestFile(AStream: TStream;
      var packageName, versionName: string; var versionCode: Integer): Boolean; overload;

    function next(): Integer;
    function nextToken(): Integer;
    function nextTag(): Integer;
    function nextText(): string;
    procedure require(atype: Integer; const namespace, name: string);
    function getDepth(): Integer;
    function getEventType(): Integer;
    function getLineNumber(): Integer;
    function getName(): string;
    function getText(): string;
    function getNamespace(): string;
    function getPrefix(): string;
    function getPositionDescription(): string;
    function getNamespaceCount(depth: Integer): Integer;
    function getNamespacePrefix(apos: Integer): string;
    function getNamespaceUri(apos: Integer): string;
    function getClassAttribute(): string;
    function getIdAttribute(): string;
    function getIdAttributeResourceValue(defaultValue: Integer = 0): Integer;
    function getStyleAttribute(): Integer;
    function getAttributeCount(): Integer;
    function getAttributeNamespace(index: Integer): string;
    function getAttributePrefix(index: Integer): string;
    function getAttributeName(index: Integer): string;
    function getAttributeNameResource(index: Integer) :Integer;
    function getAttributeValueType(index: Integer): Integer;
    function getAttributeValueData(index: Integer): Integer;
    function getAttributeValue(index: Integer): string; overload;
    function getAttributeBooleanValue(index: Integer; defaultValue: Boolean = false): Boolean; overload;
    function getAttributeFloatValue(index: Integer; defaultValue: Double = 0): Double; overload;
    function getAttributeIntValue(index: Integer; defaultValue: Integer = 0): Integer; overload;
    function getAttributeUnsignedIntValue(index: Integer; defaultValue: Cardinal = 0): Cardinal; overload;
    function getAttributeResourceValue(index: Integer; defaultValue: Integer = 0): Integer; overload;
    function getAttributeValue(const namespace, attribute: string): string; overload;
    function getAttributeBooleanValue(const namespace, attribute: string; defaultValue: Boolean = False): Boolean; overload;
    function getAttributeFloatValue(const namespace, attribute: string; defaultValue: Double = 0): Double; overload;
    function getAttributeIntValue(const namespace, attribute: string; defaultValue: Integer = 0): Integer; overload;
    function getAttributeUnsignedIntValue(const namespace, attribute: string; defaultValue: Cardinal = 0): Cardinal; overload;
    function getAttributeResourceValue(const namespace, attribute: string; defaultValue: Integer = 0): Integer; overload;
    function getAttributeListValue(index: Integer; options: array of string; defaultValue: Integer = 0): Integer; overload;
    function getAttributeListValue(const namespace, attribute: string; options: array of string; defaultValue: Integer = 0): Integer; overload;
    function getAttributeType(index: Integer): string;
    function isAttributeDefault(index: Integer): Boolean;
    function getInputEncoding(): string;
    function getColumnNumber(): Integer;
    function isEmptyElementTag(): Boolean;
    function isWhitespace(): Boolean;
    function getProperty(const name: string): TObject;
    function getFeature(const feature: string): Boolean;
    function getStrings(): TStringBlock;
    function getAttributeOffset(index: Integer): Integer;
    function findAttribute(const namespace, attribute: string): Integer;
    function getAttributeValueEx(index: Integer): string;

    procedure resetEventInfo();
  end;

  TNamespaceStack = class
  private
    m_data: TIntegers;
    m_dataLength, m_count, m_depth: Integer;
  public
    constructor Create;
    procedure reset();
    function getTotalCount(): Integer;
    function getCurrentCount(): Integer;
    function getAccumulatedCount(depth: Integer): Integer;
    procedure push(prefix, uri: Integer);
    function pop(prefix, uri: Integer): Boolean; overload;
    function pop(): Boolean; overload;
    function getPrefix(index: Integer): Integer;
    function getUri(Index: Integer): Integer;
    function findPrefix(uri: Integer): Integer;
    function findUri(prefix: Integer): Integer;
    function getDepth(): Integer;
    procedure increaseDepth();
    procedure decreaseDepth();
    procedure ensureDataCapacity(capacity: Integer);
    function find(prefixOrUri: Integer; prefix: Boolean): Integer;
    function get(index: Integer; prefix: Boolean): Integer;      
  end;

procedure readCheckType(reader: TIntReader; expectedType: Integer);

implementation

resourcestring
  CS_EOFException = 'EOF Exception.';
  CS_IllegalArgumentException = 'Illegal Argument Exception.';

const
  NO_NAMESPACE = '';
  START_DOCUMENT = 0;
  END_DOCUMENT = 1;
  START_TAG = 2;
  END_TAG = 3;
  TEXT = 4;
  CDSECT = 5;
  ENTITY_REF = 6;
  IGNORABLE_WHITESPACE = 7;
  PROCESSING_INSTRUCTION = 8;
  COMMENT = 9;
  DOCDECL = 10;
  TYPES: array [0..10] of string = (
    'START_DOCUMENT',
    'END_DOCUMENT',
    'START_TAG',
    'END_TAG',
    'TEXT',
    'CDSECT',
    'ENTITY_REF',
    'IGNORABLE_WHITESPACE',
    'PROCESSING_INSTRUCTION',
    'COMMENT',
    'DOCDECL');

const
  FEATURE_PROCESS_NAMESPACES = 'http://xmlpull.org/v1/doc/features.html#process-namespaces';
  FEATURE_REPORT_NAMESPACE_ATTRIBUTES = 'http://xmlpull.org/v1/doc/features.html#report-namespace-prefixes';
  FEATURE_PROCESS_DOCDECL = 'http://xmlpull.org/v1/doc/features.html#process-docdecl';
  FEATURE_VALIDATION = 'http://xmlpull.org/v1/doc/features.html#validation';

const
  E_NOT_SUPPORTED = 'Method is not supported.';
  ATTRIBUTE_IX_NAMESPACE_URI = 0;
  ATTRIBUTE_IX_NAME = 1;
  ATTRIBUTE_IX_VALUE_STRING = 2;
  ATTRIBUTE_IX_VALUE_TYPE = 3;
  ATTRIBUTE_IX_VALUE_DATA = 4;
  ATTRIBUTE_LENGHT = 5;

procedure readCheckType(reader: TIntReader; expectedType: Integer);
var
  atype: Integer;
begin
  atype := reader.readInt;
  if atype <> expectedType then
    raise Exception.Create('Expected chunk of type 0x' + IntToHex(expectedType, 6) +
      ', read 0x' + IntToHex(atype, 6) + '.');
end;

procedure MoveMemory(Destination: Pointer; Source: Pointer; Length: Cardinal); inline;
begin
  Move(Source^, Destination^, Length);
end;

{ TIntReader }

。。。

 

下载地址： http://pan.baidu.com/s/1sjK895r 密码: aq7c

 

  

如发现有Bug，请记录在这里留言告诉我。

 

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi组件开发教程指南（3）组件注册发布时间：2022-07-18
下一篇：
Delphi-注入的方式来禁止任务管理器发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap