WIS文件头格式

admin

1. TWisFileHeaderInfo = packed record
   
2.     nTitle: Integer;                    //04 $41534957 = WISA
   
3.     VerFlag: Integer;                   //01
   
4.     Reserve1: Integer;                  //00
   
5.     DateTime: TDateTime;
   
6.     Reserve2: Integer;
   
7.     Reserve3: Integer;
   
8.     CopyRight: string[20];
   
9.     aTemp1: array[1..107] of Char;
   
10.     nHeaderEncrypt: Integer;            //0XA0
    
11.     nHeaderLen: Integer;                //0XA4
    
12.     nImageCount: Integer;               //0XA8
    
13.     nHeaderData: Integer;               //0XAC
    
14. 
    
15.     aTemp2: array[1..$200 - $AC] of Char;
    
16.   end;
    
17.   PWisFileHeaderInfo = ^TWisFileHeaderInfo;
    
18. 
    
19.   TWisHeader = record
    
20.     OffSet: Integer;
    
21.     Length: Integer;
    
22.     temp3: Integer;
    
23.   end;
    
24.   PTWisHeader = ^TWisHeader;
    
25.   TWisFileHeaderArray = array of TWisHeader;
    
26. 
    
27.   TImgInfo = packed record
    
28.     btEncr0: Byte;                      //0X00
    
29.     btEncr1: Byte;                      //0X01
    
30.     bt2: Byte;                          //0X02
    
31.     bt3: Byte;                          //0X03
    
32.     wW: smallint;                       //0X04
    
33.     wH: smallint;                       //0X06
    
34.     wPx: smallint;                      //0X08
    
35.     wPy: smallint;                      //0X0A
    
36.   end;
    
37.   PTImgInfo = ^TImgInfo;

复制代码