home *** CD-ROM | disk | FTP | other *** search
/ C Programming Starter Kit 2.0 / SamsPublishing-CProgrammingStarterKit-v2.0-Win31.iso / bc45 / regtest.pak / REGTEST.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-07-24  |  7.7 KB  |  236 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectComponents - (C) Copyright 1994 by Borland International
  3. // OLE registration test
  4. //----------------------------------------------------------------------------
  5. #include "ocf/ocreg.h"
  6. #include "regtest.rh"
  7.  
  8. #if !defined(BI_PLAT_WIN16)
  9. inline int GetTextExtent(HDC hDC, const char* buf, int len) {
  10.   SIZE s;
  11.   GetTextExtentPoint(hDC, buf, len, &s);
  12.   return s.cx;  // return width portion
  13. }
  14. #endif
  15.  
  16. //____________________________________________________________________________
  17. //
  18. //  Example registration tables
  19. //____________________________________________________________________________
  20.  
  21. REGISTRATION_FORMAT_BUFFER(100)
  22.  
  23. BEGIN_REGISTRATION(myappreg)
  24.  REGDATA(clsid,      "{01234567-1234-5678-1122-334455667788}")
  25.  REGDATA(progid,     "MySample.Application.1")
  26.  REGDATA(description,"My Sample 1.0 Application")
  27.  REGDATA(appname,    "My Sample 1.0")
  28.  REGDATA(cmdline,    "/automation")
  29.  REGDATA(version,    "1.2")
  30. END_REGISTRATION
  31.  
  32. BEGIN_REGISTRATION(mydocreg)
  33.  REGDATA(description,"My Sample 1.0 Document")
  34.  REGDATA(extension,  "myd")
  35.  REGDATA(directory,  "c:\temp")
  36.  REGDATA(docfilter,  "*.drw;*.drx")
  37.  REGDATA(debugger,   "tdw -l")
  38.  REGDATA(clsid,      "{01234568-1234-5678-1122-334455667788}")
  39.  REGDATA(progid,     "MySample.Document.1")
  40.  REGDATA(menuname,   "Document")
  41.  REGDATA(insertable,0)
  42.  REGDATA(usage,    ocrMultipleUse)
  43.  REGDATA(verb0,      "&Edit")
  44.  REGDATA(verb1,      "&Open")
  45.  REGDATA(verb2,      "&Play")
  46.  REGVERBOPT(verb2, ocrGrayed, ocrOnContainerMenu | ocrNeverDirties)
  47.  REGFORMAT(0, ocrEmbedSource,  ocrContent, ocrIStorage, ocrGet)
  48.  REGFORMAT(1, ocrText,         ocrContent, ocrHGlobal,  ocrGetSet)
  49.  REGFORMAT(2, ocrMetafilePict, ocrContent, ocrMfPict,   ocrGet)
  50.  REGFORMAT(3, ocrRichText,     ocrContent, ocrHGlobal,  ocrGetSet)
  51.  REGSTATUS(all,     ocrNoSpecialRendering)
  52.  REGSTATUS(icon,    ocrOnlyIconic)
  53.  REGSTATUS(content, ocrRecomposeOnResize)
  54.  REGICON(1)
  55.  REGITEM("CLSID\\<clsid>\\Conversion\\Readable\\Main","FormatX,FormatY")
  56. END_REGISTRATION
  57.  
  58. BEGIN_REGISTRATION(mytplreg)
  59.  REGDATA(description,"My Sample Draw View")
  60.  REGDATA(filter,     "*.drw;*.drx")
  61.  REGDATA(defaultext, "DVW")
  62.  REGDATA(directory,  0)
  63. END_REGISTRATION
  64.  
  65. TRegItem regAppName[2] = {{"appname",{myappreg["appname"]}}, {0,{0}}};
  66.  
  67. //____________________________________________________________________________
  68. //
  69. //  Example registration table processing
  70. //____________________________________________________________________________
  71.  
  72. TRegList* MyRegClasses[] = { &myappreg, &mydocreg, 0 };
  73.  
  74. const char*
  75. RegisterClasses(TRegList** regClasses, // null-term. array of reg lists
  76.                 HINSTANCE module,      // 0 defaults to current task
  77.                 ostream& out,          // open ostream to stream reg entries
  78.                 TLangId lang = LangSysDefault, // language for registration
  79.                 char* filter = 0,      // internal use to restrict entries
  80.                 TRegItem* defaults = regAppName)// optional registration default list
  81. {
  82.   // write registration file header
  83.   //
  84.   out << "REGEDIT\n";
  85.  
  86.   // loop to register each class
  87.   //
  88.   for ( ; *regClasses != 0; regClasses++) {
  89.     try {
  90.       ::OcRegisterClass(**regClasses, module, out, lang, filter, defaults);
  91.     }
  92.     catch (TXRegistry& xcpt) {
  93.       return xcpt.Key;
  94.     }
  95.   }
  96.   return 0;
  97. }
  98.  
  99. int UnregisterClasses(TRegList** regClasses)
  100. {
  101.   int  errorCount = 0;
  102.   for ( ; *regClasses != 0; regClasses++) {  // loop to unregister each class
  103.     errorCount += OcUnregisterClass(**regClasses);
  104.   }
  105.   return errorCount;
  106. }
  107.  
  108. //____________________________________________________________________________
  109. //
  110. //  Example code to exercise registration
  111. //____________________________________________________________________________
  112.  
  113. #include <fstream.h>
  114. #include <strstrea.h>
  115.  
  116. #define WM_USERSTAT (WM_USER + 100)
  117.  
  118. bool CALLBACK __export
  119. DlgProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam)
  120. {
  121.   if (msg == WM_INITDIALOG) {
  122.     return 1;
  123.   } else if (msg == WM_COMMAND) {
  124.     ::PostMessage(hDlg, WM_USERSTAT, wParam, lParam);
  125.     return 1;
  126.   } else if (msg == WM_CLOSE) {
  127.     ::PostMessage(hDlg, WM_USERSTAT, IDABORT, 0);
  128.     return 1;
  129.   }
  130.   return 0;
  131. }
  132.  
  133. int PASCAL
  134. WinMain(HINSTANCE hInst, HINSTANCE/*prev*/, char far* /*cmdLine*/, int/*show*/)
  135. {
  136.   HWND hWnd = ::CreateDialog(hInst, MAKEINTRESOURCE(IDD_MAIN), 0, (DLGPROC)DlgProc);
  137.   if (!hWnd) {
  138.     ::MessageBox(0, "Could Not Create Dialog Box", "Error", MB_OK);
  139.     return 1;
  140.   }
  141.   for (;;){
  142.     try {
  143.       MSG msg;
  144.       int id = 0;
  145.       while (!id && ::GetMessage(&msg, 0, 0, 0)) {
  146.         if (msg.message == WM_USERSTAT)
  147.           id = msg.wParam;
  148.         else
  149.           ::IsDialogMessage(hWnd, &msg);
  150.       }
  151.       if (id == IDABORT || id == IDOK)
  152.         break;
  153.       int errorCount = 0;
  154.       const char* errorText = 0;
  155.       switch (id) {
  156.         case IDC_DISPLAY:  { // Show reg entries in listbox
  157.           ::SendDlgItemMessage(hWnd, IDC_REGLIST, LB_RESETCONTENT, 0, 0);
  158.           strstream strm;
  159.           errorText = RegisterClasses(MyRegClasses, hInst, strm);
  160.           if (errorText) {
  161.             break;
  162.           }
  163.           char buf[512];
  164.           strm.getline(buf, sizeof(buf)); // skip reg file header written above
  165.           int maxlen = 0;
  166.           HDC hDC = ::GetDC(hWnd);
  167.           HFONT hFont = (HFONT)::SendDlgItemMessage(hWnd, IDC_REGLIST, WM_GETFONT,0,0);
  168.           HFONT oldFont = (HFONT)::SelectObject(hDC, hFont);
  169.           while (!strm.eof()) {
  170.             strm.getline(buf, sizeof(buf));
  171.             ::SendDlgItemMessage(hWnd, IDC_REGLIST, LB_ADDSTRING,
  172.                                        0, (LPARAM)(char far*)buf);
  173.             int n = (int)::GetTextExtent(hDC, buf, lstrlen(buf));
  174.             if (n > maxlen)
  175.               maxlen = n;
  176.           }
  177.           ::SelectObject(hDC, oldFont);
  178.           ::ReleaseDC(hWnd, hDC);
  179.           ::SendDlgItemMessage(hWnd, IDC_REGLIST, LB_SETHORIZONTALEXTENT,
  180.                                maxlen, 0);
  181.           break;
  182.         }
  183.         case IDC_REGISTER: { // Write all info to registry
  184.           strstream strm;
  185.           errorText = RegisterClasses(MyRegClasses, hInst, strm);
  186.           if (errorText) {
  187.             break;
  188.           }
  189.           try {
  190.             OcRegistryUpdate(strm);
  191.           }
  192.           catch (TXRegistry& xcpt) {
  193.             errorText = xcpt.Key;
  194.           }
  195.           break;
  196.         }
  197.         case IDC_UNREGISTER: { // Delete all info from registry
  198.           errorCount = UnregisterClasses(MyRegClasses);
  199.           break;
  200.         }
  201.         case IDC_WRITEFILE: { // Write registration file
  202.           ofstream out;
  203.           out.open("myapp.reg");
  204.           errorText = RegisterClasses(MyRegClasses, hInst, out);
  205.           out.close();
  206.           break;
  207.         }
  208.         case IDC_VERIFY: { // Validate registration file with single check
  209.           strstream strm;
  210.           RegisterClasses(MyRegClasses, hInst, strm,LangSysDefault,"\001");
  211.           errorCount = OcRegistryValidate(strm);
  212.           break;
  213.         }
  214.         case IDC_COMPARE: { // Validate entire registration file
  215.           strstream strm;
  216.           RegisterClasses(MyRegClasses, hInst, strm);
  217.           errorCount = OcRegistryValidate(strm);
  218.           break;
  219.         }
  220.         default:
  221.           continue;
  222.       }
  223.       char buf[40];
  224.       ::GetDlgItemText(hWnd, id, buf, sizeof(buf)-1);
  225.       ::SetDlgItemText(hWnd, IDC_OP, buf);
  226.       if (!errorText)
  227.         wsprintf(((char*)errorText = buf), "%d", errorCount);
  228.       ::SetDlgItemText(hWnd, IDC_ERRORS, buf);
  229.     }
  230.     catch (TXBase& x) {
  231.       ::MessageBox(0, x.why().c_str(), "OLE Exception", MB_OK);
  232.     }
  233.   }
  234.   return 0;
  235. }
  236.