锐浪报表 Grid++Report 免注册DLL C/S报表开发（二）清单文件manifest分析

    锐浪报表 Grid++Report 免注册DLL，通过建立一个与执行EXE文件同名的清单文件（后缀名.manifest），实现Grid++Report发布DLL文件的COM免注册。

    其原理是，在清单文件中包含有COM组件相关的信息，由它来代替注册表的角色，来指定COM文件路径、COM版本等信息。从而实现直接复制文件发布用Grid++Report开发的软件。

    之前的文章，说明使用纯文本编辑器，修改Lserver.exe.manifest文件中的值。感觉不妥，应该通过XML控件来修改。今天，动手代码上来，完成了。下面的代码备案。

    一、清单文件（后缀名.manifest）是个XML文件

<?xml version="1.0"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity name="YourX86.exe" version="1.0.0.0" type="win32"/>
  <file name="grdes6.dll">
    <typelib tlbid="{c5a16330-a084-48c9-bc0f-0d0b37a14123}" version="6.0" helpdir="" resourceid="0" flags="HASDISKIMAGE"/>
    <comClass clsid="{6edd80cb-9f08-4c71-b406-479e5cb80fce}" threadingModel="Apartment" tlbid="{c5a16330-a084-48c9-bc0f-0d0b37a14123}" progid="grdes.GRDesigner.6" description="Grid++Report Designer 6"/>
  </file>
  <file name="gregn6.dll">
    <typelib tlbid="{4018f953-1bfe-441e-8a04-dc8ba1ff060e}" version="6.0" helpdir="" resourceid="0" flags="HASDISKIMAGE"/>
    <comClass clsid="{f9364159-6aed-4f9c-8baf-d7c7ed6160a8}" threadingModel="Apartment" tlbid="{4018f953-1bfe-441e-8a04-dc8ba1ff060e}" progid="gregn.GridppReport.6" description="GridppReport Class"/>
    <comClass clsid="{1b5ea181-a38d-4f42-88b2-6af74cf6d6c0}" threadingModel="Apartment" tlbid="{4018f953-1bfe-441e-8a04-dc8ba1ff060e}" progid="gregn.GRDisplayViewer.6" description="Grid++Report DisplayViewer 6"/>
    <comClass clsid="{7fd5dc62-ded0-4138-9c48-55f0a0fe7b66}" threadingModel="Apartment" tlbid="{4018f953-1bfe-441e-8a04-dc8ba1ff060e}" progid="gregn.GRDisplayViewerProps.6" description="GRDisplayViewerProps Class"/>
    <comClass clsid="{44cbb5de-5afb-4c3d-8f3f-0f70ca5372ad}" threadingModel="Apartment" tlbid="{4018f953-1bfe-441e-8a04-dc8ba1ff060e}" progid="gregn.GRPrintViewer.6" description="Grid++Report PrintViewer 6"/>
    <comClass clsid="{6ca58cb2-2ad1-4ad0-b3cc-5f5c000bbdee}" threadingModel="Apartment" tlbid="{4018f953-1bfe-441e-8a04-dc8ba1ff060e}" progid="gregn.GRPrintViewerProps.6" description="GRPrintViewerProps Class"/>
  </file>
</assembly>

    二、文件分析

    通过本人编写的XML分析代码：

     XML文件一个根节点：assembly。根目录下有三个子节点，我们要修改的节点名：第一个节点的，名称assemblyIdentity，需要修改属性名:name 的属性值。

     三、修改代码

var i,j:integer;
    nodeList:IXMLNodeList;
    XMLRootNode,XMLnode1:IXMLNode;
    sPath,EXEFileName,LoadFileName,SaveFileName,NodeName,NodeText:string;
begin
  LoadFileName:=ReportPath+'YourX86.exe.manifest';

  XMLDocument1.FileName := LoadFileName;
  XMLDocument1.Active := True;     {激活}
  Memo1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);   // 显示原XML

  sPath:=DirectoryListBox1.Directory;                         // 尾部无\
  with ClientDataSet1 do
  begin
    if RecNo>0 then
    EXEFileName:=FieldByName('文件').AsString;
  end;

  if ExtractFileExt(EXEFileName)<>'.exe'  then
  begin
    exit;
  end;
  SaveFileName:=sPath+'\'+EXEFileName+'.manifest';
  NodeName:='assemblyIdentity';
  NodeText:=EXEFileName;

  Memo1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);    // Memo1 显示格式化的XML
  XMLRootNode := XMLDocument1.DocumentElement;                 // 根节点
  try
    NodeList:=XMLRootNode.ChildNodes;                          // 第1级
    fOR I:=0 TO NodeList.Count-1 DO                            // 子节点数
    BEGIN
      XMLNode1:=NodeList.Get(i);                               // 子节点
      if XMLNode1.NodeName=NodeName then
      begin
        for J:=0 to XMLNode1.AttributeNodes.Count-1 do          // 节点的属性数循环
          if XMLNode1.AttributeNodes[j].NodeName='name' then
            XMLNode1.AttributeNodes[j].Text:=NodeText;
      end;
    end;
  except
  end;
  Memo2.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);    // Memo1 显示格式化的XML
  XMLDocument1.SaveToFile(SaveFileName);                       // 保存XML文件
end;

    四、有关窗口

      说明：由于编写的c/s系统，功能窗口达到数百个，需按EXE组成模块，这样，功能模块达到几十个。

    因此，必须编写一个，统一快速创建清单的窗口。有利于编程，快速同步清单文件，当Grid++Report升级时，也能快速同步。

    窗口完成，可以将几十个EXE，一键完成对应清单的创建。

其它文章：1、​​​​​​​Windows COM 免注册 manifest 清单文件​​​​​​​​​​​​​​​​​​​2​​​​​​​                   2、 锐浪报表 Grid++Report 免注册DLL C/S报表开发（一）