制作OCX的网络发布CAB包

 

1. #include <atl/atlbase.h>
3. //.inf文件模板
4. const
5.   AnsiString Templete =
6. "; /%Title/%/r/n/
7. ; File Name /%DLLName/%  File Version= /%DllVersion/%/r/n/
8. ; ProgId= /%ProgId/% ClassId= /%DLLClsid/%/r/n/r/n/
9. [version]/r/n/
10. signature=/"$CHICAGO$/"/r/n/
11. AdvancedINF=2.0/r/n/r/n/
12. [Add.Code]/r/n/
13. /%DLLName/%=/%DLLName/%/r/n/r/n/
14. [/%DLLName/%]/r/n/
15. file-win32-x86=thiscab/r/n/
16. RegisterServer=yes/r/n/
17. clsid=/%DLLClsid/%/r/n/
18. DestDir=/r/n/
19. FileVersion=/%DLLVersion/%/r/n/r/n/
20. [Setup Hooks]/r/n/
21. AddToRegHook=AddToRegHook/r/n/r/n/
22. [AddToRegHook]/r/n/
23. InfSection=DefaultInstall/r/n/r/n/
24. [DefaultInstall]/r/n/
25. AddReg=AddToRegistry/r/n/r/n/
26. [AddToRegistry]/r/n/
27. HKLM,/"SOFTWARE//Classes//CLSID///%DLLClsid/%//Implemented Categories//{7DD95801-9882-11CF-9FA9-00AA006C42C4}/"/r/n/
28. HKLM,/"SOFTWARE//Classes//CLSID///%DLLClsid/%//Implemented Categories//{7DD95802-9882-11CF-9FA9-00AA006C42C4}/"";
30. //MackCab 用的中间文件模板,文件附加在后面，不能带路径（估计可以支持8.3短路径)
31. const AnsiString MakeCabDirective =
32. ".OPTION EXPLICIT     ; Generate errors/r/n/
33. .Set CabinetNameTemplate=/%CABFile/%/r/n/
34. .set DiskDirectoryTemplate=CDROM ; All cabinets go in a single  directory/r/n/
35. .Set CompressionType=MSZIP;** All files are compressed in cabinet files/r/n/
36. .Set UniqueFiles=/"OFF/"/r/n/
37. .Set Cabinet=on/r/n/
38. .Set DiskDirectory1=/%CABFilePath/%/r/n";
40. //---------------------------------------------------------------------------
42. //取得CoClass的ClassID
43. AnsiString __fastcall GetCLSID(AnsiString FileName)
44. {
45.     HRESULT hr;
46.     AnsiString Result="";
47.     CComPtr<ITypeLib> spTypeLib;
48.     USES_CONVERSION;
49.     hr = LoadTypeLib(A2OLE(FileName.c_str()), &spTypeLib);
50.     if (FAILED(hr)) return Result;
51.     UINT n = spTypeLib->GetTypeInfoCount();
52.     CComBSTR bstrName0;
53.     hr = spTypeLib->GetDocumentation(   -1,
54.                                         &bstrName0,
55.                                         0,
56.                                         0,
57.                                         0
58.                                         );
59.     if(FAILED(hr))return Result;
60.     for (UINT i=0; i<n; ++i)
61.     {
62.         CComPtr<ITypeInfo> spTypeInfo;
64.         hr = spTypeLib->GetTypeInfo(i, &spTypeInfo);
65.         if (FAILED(hr)) return Result;
66.         CComBSTR bstrName;
68.         hr = spTypeInfo->GetDocumentation(  -1,
69.                                             &bstrName,
70.                                             0,
71.                                             0,
72.                                             0
73.                                             );
74.         if (FAILED(hr)) return Result ;
75.         TYPEATTR* pta = 0;
76.         hr = spTypeInfo->GetTypeAttr(&pta);
77.         if (FAILED(hr)) return Result;
78.         CComBSTR bstrGuid(pta->guid);
79.         if (TKIND_COCLASS == pta->typekind )
80.         {
81.             Result = AnsiString(bstrGuid);
82.             spTypeInfo->ReleaseTypeAttr(pta);
83.             pta = 0;
84.             return Result;
85.         }
86.         spTypeInfo->ReleaseTypeAttr(pta);
87.         pta = 0;
88.      }
89.      return Result;
90. }
92. //取得ProgID
93. AnsiString __fastcall GetProgID(AnsiString FileName)
94. {
95.     HRESULT hr;
96.     AnsiString Result="";
97.     CComPtr<ITypeLib> spTypeLib;
98.     USES_CONVERSION;
99.     hr = LoadTypeLib(A2OLE(FileName.c_str()), &spTypeLib);
100.     if (FAILED(hr)) return Result;
101.     UINT n = spTypeLib->GetTypeInfoCount();
102.     CComBSTR bstrName0;
103.     hr = spTypeLib->GetDocumentation(   -1,
104.                                         &bstrName0,
105.                                         0,
106.                                         0,
107.                                         0
108.                                         );
109.     if(FAILED(hr))return Result;
110.     for (UINT i=0; i<n; ++i)
111.     {
112.         CComPtr<ITypeInfo> spTypeInfo;
114.         hr = spTypeLib->GetTypeInfo(i, &spTypeInfo);
115.         if (FAILED(hr)) return Result;
116.         CComBSTR bstrName;
118.         hr = spTypeInfo->GetDocumentation(  -1,
119.                                             &bstrName,
120.                                             0,
121.                                             0,
122.                                             0
123.                                             );
124.         if (FAILED(hr)) return Result ;
125.         TYPEATTR* pta = 0;
126.         hr = spTypeInfo->GetTypeAttr(&pta);
127.         if (FAILED(hr)) return Result;
128.         CComBSTR bstrGuid(pta->guid);
129.         int iKind = pta->typekind ;
130.         if (iKind == TKIND_COCLASS)
131.         {
132.             Result = AnsiString(bstrName0)+"."+AnsiString(bstrName);
133.             spTypeInfo->ReleaseTypeAttr(pta);
134.             pta = 0;
135.             return Result;
136.         }
137.         spTypeInfo->ReleaseTypeAttr(pta);
138.         pta = 0;
139.     }
140.     return Result;
141. }
144. //取得文件版本
145. AnsiString __fastcall GetVersion(char *szFile)
146. {
147.     DWORD dwHandle;
148.     char m_szVersion[256];
149.     DWORD dwVerSize = GetFileVersionInfoSize((char *)szFile, &dwHandle);
150.     char *pbBuffer = new BYTE[dwVerSize];
151.     VS_FIXEDFILEINFO     *lpVSInfo = NULL;
152.     UINT    uiVerSize = 0;
153.     if (!pbBuffer)
154.     {
155.         return E_OUTOFMEMORY;
156.     }
157.     if (GetFileVersionInfo((char *)szFile, 0, dwVerSize, pbBuffer))
158.     {
159.         if (VerQueryValue(pbBuffer, "//", (void **)&lpVSInfo, &uiVerSize))
160.         {
161.             wsprintf(   m_szVersion,
162.                         "%d,%d,%d,%d",
163.                         (lpVSInfo->dwFileVersionMS >> 16) & 0xFFFF,
164.                         lpVSInfo->dwFileVersionMS & 0xFFFF,
165.                         (lpVSInfo->dwFileVersionLS >> 16) & 0xFFFF,
166.                         lpVSInfo->dwFileVersionLS & 0xFFFF
167.                         );
168.         }
169.     }
171.     delete [] pbBuffer;
172.     return AnsiString(m_szVersion);
173. }
176. //制作用于发布的CAB包
177. void __fastcall MakeCab(AnsiString FileName)
178. {
179.     AnsiString FileVer = GetVersion(FileName.c_str());
180.     AnsiString ClsID = GetCLSID(FileName);
181.     AnsiString DLLName = ExtractFileName(FileName);
182.     AnsiString ProgID =  GetProgID(FileName);
183.     AnsiString Title = "Ocx Inf file Maker";
184.     AnsiString InfFileName = ChangeFileExt(FileName,".inf");
185.     AnsiString CabFileName = ChangeFileExt(FileName,".cab");
186.     AnsiString DDFFileName = ChangeFileExt(FileName,".ddf");
187.     AnsiString CABDirective =   StringReplace(  MakeCabDirective,
188.                                                 "/%CABFile/%",
189.                                                 ExtractFileName(CabFileName),
190.                                                 TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase
191.                                                 );
193.     CABDirective =  StringReplace(  CABDirective,
194.                                     "/%CABFilePath/%",
195.                                     ExtractFilePath(CabFileName),
196.                                     TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase
197.                                     )
198.                     +   "/"" + FileName + "/""
199.                     +   "/r/n/"" + InfFileName + "/"";
201.     AnsiString InfFile;
202.     InfFile =   StringReplace(  Templete,
203.                                 "/%Title/%",
204.                                 Title,
205.                                 TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase
206.                                 );
207.     InfFile =   StringReplace(  InfFile,
208.                                 "/%DLLName/%",
209.                                 DLLName,
210.                                 TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase
211.                                 );
212.     InfFile =   StringReplace(  InfFile,
213.                                 "/%DllVersion/%",
214.                                 FileVer,
215.                                 TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase
216.                                 );
217.     InfFile =   StringReplace(  InfFile,
218.                                 "/%ProgId/%",
219.                                 ProgID,
220.                                 TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase
221.                                 );
222.     InfFile =   StringReplace(  InfFile,
223.                                 "/%DLLClsid/%",
224.                                 ClsID,
225.                                 TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase
226.                                 );
227.     TFileStream *f = new TFileStream(InfFileName,fmCreate);
228.     try
229.     {
230.         char *p = InfFile.c_str();
231.         int iLen = InfFile.Length();
232.         while (iLen){
233.             int iWrote = f->Write(p,iLen);
234.             p += iWrote;
235.             iLen -= iWrote;
236.         }
237.     }
238.     __finally
239.     {
240.         f->Free();
241.     }
243.     //更新.INF的文件时间为.OCX的时间
244.     HFILE hFile;
245.     FILETIME mCreationTime;
246.     FILETIME mLastAccessTime;
247.     FILETIME mLastWriteTime;
248.     hFile=_lopen(FileName.c_str(),OF_READWRITE);
249.     GetFileTime(    (HANDLE *)hFile,
250.                     &mCreationTime,
251.                     &mLastAccessTime,
252.                     &mLastWriteTime
253.                     );
255.     hFile=_lopen(InfFile.c_str(),OF_READWRITE);
256.     SetFileTime(    (HANDLE *)hFile,
257.                     &mCreationTime,
258.                     &mLastAccessTime,
259.                     &mLastWriteTime
260.                     );
261.     _lclose(hFile);
263.     f = new TFileStream(DDFFileName,fmCreate);
264.     try
265.     {
266.         char *p = CABDirective.c_str();
267.         int iLen = CABDirective.Length();
268.         while (iLen){
269.             int iWrote = f->Write(p,iLen);
270.             p += iWrote;
271.             iLen -= iWrote;
272.         }
273.     }
274.     __finally
275.     {
276.         f->Free();
277.     }
279.     //执行MakeCAB创建CAB包
280.     STARTUPINFO StartInfo; // name structure
281.     PROCESS_INFORMATION ProcInfo; // name structure
282.     memset(&ProcInfo, 0, sizeof(ProcInfo)); // Set up memory block
283.     memset(&StartInfo, 0 , sizeof(StartInfo)); // Set up memory block
284.     StartInfo.cb = sizeof(StartInfo); // Set structure size
285.     if (!CreateProcess( NULL,
286.                         AnsiString("makecab /f /""+DDFFileName+"/"").c_str(),
287.                         NULL,
288.                         NULL,
289.                         NULL,
290.                         NULL,
291.                         NULL,
292.                         ExtractFilePath(FileName).c_str(),
293.                         &StartInfo,
294.                         &ProcInfo))
295.         return;
297.     WaitForSingleObject(ProcInfo.hProcess,INFINITE);
298.     CloseHandle(ProcInfo.hThread);
299.     CloseHandle(ProcInfo.hProcess);
301.     //更新CAB的文件时间为.OCX的时间
302.     hFile=_lopen(FileName.c_str(),OF_READWRITE);
303.     GetFileTime(    (HANDLE *)hFile,
304.                     &mCreationTime,
305.                     &mLastAccessTime,
306.                     &mLastWriteTime
307.                     );
309.     hFile=_lopen(CabFileName.c_str(),OF_READWRITE);
310.     SetFileTime(    (HANDLE *)hFile,
311.                     &mCreationTime,
312.                     &mLastAccessTime,
313.                     &mLastWriteTime
314.                     );
315.     _lclose(hFile);
317. }

示例：

1. void __fastcall TfrmMakeCAB::btnMakeClick(TObject *Sender)
2. {
3.     if (dlgOpenOCX->Execute()) {
4.         AnsiString FileName = dlgOpenOCX->FileName;
5.         if (SameText(ExtractFileExt(FileName),".OCX")) {
6.             MakeCab(FileName);
7.         }
8.     }
9. }