终于找到一点有关增量压缩的门了

终于找到一点有关增量压缩的门了

使用系统自带的 msdelta.dll，对系统中的增量干缩文件进行有关操作，GetDeltaInfo、Apply，总是提示参数错误。

一直就以为定义的结构、类型有错误，直到放弃了这些操作，压缩了一个新文件，才知道前面的操作都是对的，只不过微软对标准的增量压缩文件进行了一些改造，在文件的前面加上了四个字节，即， 我们提到过的 DCN、DCD、DCM等，和一个分隔符。

去掉前面的四个字节以后，再进行 GetDeltaInfo、Apply 操作就正常了。

这只解决了一个问题，DCN 的问题。

但后面的也可以不管了。

DCM 文件，可以 GetDeltaInfo，但不能 Apply，还是提示参数错误。

DCD 文件，由于过于复杂，就不想管了。因为涉及到基准文件的问题，难于确定。

这也可以解释在日志看到有关解压缩时，微软使用的是 ApplyB 了，不是针对文件进行，而是针对数组进行的操作了。

读出文件来以后，去掉了前面的四个字节。

知道问题以后，代码实际上很简单：

[<Struct; StructLayoutAttribute(LayoutKind.Explicit)>]
type Anonymous_654d2e53_a177_4231_98a2_dbbc4dcf1d8a =

/// LPCVOID->void*
[<FieldOffsetAttribute(0)>]
val lpcStart : System.IntPtr

/// LPVOID->void*
[<FieldOffsetAttribute(0)>]
val lpStart : IntPtr

[<Struct; StructLayoutAttribute(LayoutKind.Sequential)>]
type DELTA_INPUT =

/// Anonymous_654d2e53_a177_4231_98a2_dbbc4dcf1d8a
val Union1 : Anonymous_654d2e53_a177_4231_98a2_dbbc4dcf1d8a

/// SIZE_T->ULONG_PTR->unsigned int
val uSize : UInt32

/// BOOL->int
[<MarshalAsAttribute(UnmanagedType.Bool)>]
val Editable : bool

[<Struct; StructLayoutAttribute(LayoutKind.Sequential)>]
type DELTA_OUTPUT =

/// LPVOID->void*
val lpStart : System.IntPtr

/// SIZE_T->ULONG_PTR->unsigned int
val uSize : UInt32

[<Struct; StructLayoutAttribute(LayoutKind.Sequential, CharSet=CharSet.Ansi)>]
type DELTA_HASH =
/// DWORD->unsigned int
val HashSize : UInt32
/// UCHAR[]
[<MarshalAsAttribute(UnmanagedType.ByValTStr,SizeConst=32)>]
val HashValue : string

[<Struct; StructLayoutAttribute(LayoutKind.Sequential)>]
type DELTA_HEADER_INFO =
/// DELTA_FILE_TYPE->__int64
val FileTypeSet : Int64
/// DELTA_FILE_TYPE->__int64
val FileType : Int64
/// DELTA_FLAG_TYPE->__int64
val Flags : Int64
/// SIZE_T->ULONG_PTR->unsigned int
val TargetSize : UInt32
/// FILETIME->_FILETIME
val TargetFileTime : ComTypes.FILETIME
/// ALG_ID->unsigned int
val TargetHashAlgId : UInt32
/// DELTA_HASH->_DELTA_HASH
//    val TargetHash : DELTA_HASH[<DllImport("msdelta.dll")>]
extern bool GetDeltaInfo(
string              lpDeltaName,
DELTA_HEADER_INFO&  lpHeaderInfo
)
[<DllImportAttribute("msdelta.dll",SetLastError=true)>]
extern  bool ApplyDelta(
int64 ApplyFlags,
string lpSourceName,
string lpDeltaName,
string lpTargetName)

let (++) a b  = System.IO.Path.Combine(a, b)

let GetDeltaInfo FilePath =
let mutable hd = new DELTA_HEADER_INFO()
GetDeltaInfo ( FilePath, &hd  )
hd

GetDeltaInfo @"d:\vmicshutdown-DCN.dll"
GetDeltaInfo @"d:\wnv-DCN.sys"

let ApplyDCN DCNFilePath =
//    (IO.DirectoryInfo(noDCNFile)).Name
let basePath = IO.Path.GetDirectoryName(DCNFilePath)
let noDCNFile = IO.Path.GetTempFileName()
let Target = DCNFilePath + ".Apply"
use r = System.IO.File.OpenRead(DCNFilePath)
let mutable fileContent = Array.init (int r.Length) ( fun i -> byte 0)

r.Read(fileContent, 0, (int r.Length))
r.Close()

if ( System.Text.Encoding.ASCII.GetString( fileContent.[0..2] ) = "DCN" ) then
use w = System.IO.File.OpenWrite(noDCNFile)
w.Write(fileContent.[4..], 0, (fileContent.[4..]).Length)
w.Close()
ApplyDelta ( 0L, "", noDCNFile, Target  ) |> ignore
IO.File.Delete(noDCNFile)
ApplyDCN @"d:\wnv.sys"

IO.Directory.GetFiles(@"S:\R\amd64_microsoft-windows-wnv_31bf3856ad364e35_6.3.9600.16384_none_a06476a92abb3455")
|>Seq.map ApplyDCN