HHCOLREG

HTMLHELP коллекция (текстовый файл определенного формата с расширением .col) позволяет объединять для просмотра и поиска несколько справочных CHM-файлов, что бывает очень удобно при написании модульных приложений, когда с каждым модулем одновременно создается отдельный справочный файл. Однако чтобы данную коллекцию можно было использовать, её нужно зарегистрировать – внести записи о коллекции в регистрационный файл hhcolreg.dat.

Использование программы

HHCOLREG.exe – консольная win-программа, работающая с параметрами командной строки. При запуске без параметров, или с неправильным набором параметров выводится краткая справка:

Программа hhcolreg.exe предназначена для регистрации файлов 
HTMLHelp коллекций (*.col) на компьютере пользователя.
Использование:
     hhcolreg.exe [-u] MyCollection.col [путь к hhcolreg.dat]
-u ( или /u )    - разрегистрировать, если этого ключа нет,  
                   то зарегистрировать
MyCollection.col - файл новой коллекции
Если путь к hhcolreg.dat не задан явно, программа пытается 
найти его самостоятельно. 
Предполагается также, что в узле TitleString задано имя 
соответствующего chm файла.

Т.о. в командной строке должен быть, по крайней мере, один параметр - имя файла коллекции. Для разрегистрации коллекции нужно добавить ключ –u. Если есть необходимость, можно потренироваться на копии файла hhcolreg.dat, указав её местоположение в командной строке. Если программа не находит hhcolreg.dat, она его создаёт.

Перед внесением изменений в файл коллекции и hhcolreg.dat они сохраняются с добавлением расширения .orig.

CHM-файлы коллекции должны находится в одном каталоге с регистрируемым COL-файлом, их имена должны совпадать с параметрами, прописанными в TitleString-ах файла коллекции.

Работа программы проверялась в OC Windows 2000, Windows XP и Windows 98. Впрочем, для запуска программы под win98 придется установить MSXML3, а для просмотра коллекции обновить версию HTMLHELP.

Подробности реализации

Программа написана в среде VS7, главным образом из-за наличия в ATL7 класса CAtlRegExp. При компиляции использовались также Microsoft Platform SDK November 2001 и STLPort 4.5, если возникнут проблемы при компиляции, копайте в этом направлении. В части вывода сообщений об ошибках использован класс CErrCodeMsg от Игоря Вартанова.

Пример коллекции

Разбор полетов будет проводиться на примере регистрации следующей коллекции:

<XML>
    <HTMLHelpCollection>
        <masterchm value="=first"/>
        <masterlangid value=1033/>
        <samplelocation value=""/>
        <collectionnum value=10032/>
        <refcount value=0/>
        <version value=0/>
        <findmergedchms value=0/>
        <Folders>
            <Folder>
                <TitleString value="Раздел 1"/>
                <FolderOrder value=0/>
                <Folder>
                    <TitleString value="Часть 1"/>
                    <FolderOrder value=0/>
                    <Folder>
                        <TitleString value="=first"/>
                        <FolderOrder value=0/>
                        <LangId value=1033/>
                    </Folder>
                </Folder>
            </Folder>
            <Folder>
                <TitleString value="=second"/>
                <FolderOrder value=1/>
                <LangId value=1033/>
            </Folder>
        </Folders>
    </HTMLHelpCollection>
</XML>

first и second – это псевдонимы файлов, составляющих нашу коллекцию, по ним программа просмотра HTMLHELP получит из hhcolreg.dat полные пути и имена chm-файлов коллекции. Для упрощения реализации процесса регистрации принято, что эти псевдонимы должны совпадать с именами соответствующих chm-файлов, находящихся в одном каталоге с файлом коллекции, хотя в общем случае это не обязательно. “Раздел 1” и “Часть 1” – просто названия (на что указывает отсутствие знака ‘=’ ) дополнительных папочек, внутрь которой будет помещено содержимое first.chm.

На этом примере видно, что файл коллекции, как собственно и hhcolreg.dat представляет собой своеобразный “недоXML”, т.к. здесь в отличии от “честного” XML числовые значения атрибутов не заключены в кавычки и отсутствует ProcessingInstruction,

указывающая, что русские буквы - в кодировке Windows-1251. Возможны два варианта работы с такими файлами:

Поиск hhcolreg.dat

Если расположение файла hhcolreg.dat не задано в командной строке, программа пытается найти его самостоятельно. В зависимости от версии Windows возможны два варианта расположения hhcolreg.dat в системе: для семейства NT это каталог %COMMON_APPDATA%\Microsoft\Html Help\ (например C:\Documents and Settings\All Users\Application Data\Microsoft\HTML Help), а для windows 98 – каталог %WINDOWS%\Help (например c:\windows\help).

        // теперь разбираемся с hhcolreg.dat
        // shift - учитывает наличие/отсутствие ключа разрегистрации -u
        if ( argc < ( 3 + shift ) )
        {
            // имени hhcolreg.dat нет в командной строке
            // будем искать
            TCHAR hhcolregpath[ _MAX_PATH ];

            // место расположения файла отличается в разных версиях ОС
            if ( ::IsWindowsNT() )
            {
                hr = ::SHGetFolderPath( NULL, CSIDL_COMMON_APPDATA, NULL, 0,
                                        hhcolregpath );

                if ( FAILED( hr ) )
                {
                    throw CErrInfo( hr, "Поиск каталога %COMMON_APPDATA%:" );
                }
                else
                {
                    // остаток пути в %COMMON_APPDATA%
                    sColRegFileName = "\\Microsoft\\HTML Help\\hhcolreg.dat";
                }
            }
            else
            {
                hr = ::SHGetFolderPath( NULL, CSIDL_WINDOWS, NULL, 0,
                                        hhcolregpath );

                if ( FAILED( hr ) )
                {
                    throw CErrInfo( hr, "Поиск каталога %WINDOWS%:" );
                }
                else
                {
                    // остаток пути в %WINDOWS% 
                    sColRegFileName = "\\Help\\hhcolreg.dat";
                }
            }

            // составляем полное имя
            sColRegFileName = hhcolregpath + sColRegFileName;
        }
        else
        {
            // hhcolreg.dat нам указан в командной строке
            sColRegFileName = argv[ 2 + shift ];
        }

Если файл hhcolreg.dat не найден там, где он должен находиться (актуально для win98 и свежеустановленной winXP) программа его создаёт:

// создание нового hhcolreg.dat
void CreateNewHhcolregDat( string sFileName )
{
    // строки для сообщения на экран
    CString sMsg;
    // и содержание нового файла
    CString sFileContent;

    sMsg.Format( "Создаём файл %s\n", sFileName.c_str() );
    RusOut( sMsg );

    // создаём файл
    ofstream destfile( sFileName.c_str(), ios::out );

    if ( !destfile )
    {
        sMsg.Format( "Невозможно создать новый файл HHCOLREG.dat.\n" );
        throw sMsg;
    }

    // формируем строку, содержимое нового файла hhcolreg.dat
    sFileContent = "<XML>\n"
                   "    <HTMLHelpDocInfo>\n"
                   "        <NextCollectionId value=\"10\"/>\n"
                   "        <Collections>\n"
                   "        </Collections>\n"
                   "        <Locations>\n"
                   "        </Locations>\n"
                   "        <DocCompilations>\n"
                   "        </DocCompilations>\n"
                   "    </HTMLHelpDocInfo>\n"
                   "</XML>";

    // пишем строку в файл
    destfile << ( LPCTSTR ) sFileContent;

    // закрываем файл
    destfile.close();

    // проверяем
    if ( _access( sFileName.c_str(), 0 ) == -1 )
    {
        sMsg.Format( "Не смогли создать файл %s для регистрации "
                     "коллекции.\n", sFileName.c_str() );
        throw sMsg;
    }

    sMsg.Format( "  Файл %s успешно создан.\n", sFileName.c_str() );
    RusOut( sMsg );
}

Предварительная обработка файлов

Перед началом работы программой сохраняются оригиналы файлов коллекции и hhcolreg.dat в файлах с добавлением расширения .orig, а также создаются временные файлы коллекции и hhcolreg.dat с добавлением расширения .xml. Если в процессе работы программы все действия по регистрации коллекции проходят успешно, эти файлы копируются на место первоначальных файлов коллекции и hhcolreg.dat, а временные файлы удаляются.

Теперь нужно подготовить файл коллекции и hhcolreg.dat для загрузки в XML-парсер. Для этого создается временный файл и в его начало записывается строка ProcessingInstruction. Содержимое исходного файла построчно обрабатывается с помощью регулярного выражения, обеспечивающего замену записей вида 'value=1' на 'value="1"' и также записывается во временный файл. Если обработка успешно завершается, оба файла, исходный и временный закрываются, а затем временный файл копируется на место исходного. Все действия по предобработке файлов вынесены в функцию RepairFileAsXML():

// Исходные файлы - "недоXML", числовые значения атрибутов там не в кавычках,
// и не указана кодировка,
// надо исправить
// sFileName - имя файла для обработки
void RepairFileAsXML( string sFileName )
{
    HRESULT hr;
    // строки для сообщения на экран
    CString sMsg;
    // и содержание исходного файла
    CString sFileContent;

    sMsg.Format( "Предобработка файла %s\n", sFileName.c_str() );
    RusOut( sMsg );

    // открываем на чтение
    ifstream srcfile( sFileName.c_str(), ios::in );

    if ( !srcfile )
    {
        sMsg.Format( "Невозможно открыть файл %s для чтения.\n",
                     sFileName.c_str() );
        throw sMsg;
    }

    // открываем новый файл на запись
    ofstream destfile( ( sFileName + ".new" ).c_str(),
                       ios::out |
                       ios::trunc );

    if ( !destfile )
    {
        sMsg.Format( "Невозможно открыть файл %s для записи.\n",
                     ( sFileName + ".new" ).c_str() );
        throw sMsg;
    }

    // пишем в файл:
    // сначала ProcessingInstruction с указанием кодировки
    // для понимания русских букв
    destfile << sProcInstruction.c_str();

    /* читаем файл построчно и преобразовываем */
    char* buf;

    // узнаем размер файла
    srcfile.seekg( 0, ios::end );

    DWORD fsize = srcfile.tellg();

    // снова в начало
    srcfile.seekg( 0, ios::beg );

    // выделяем память fsize байт ( а вдруг весь файл в одну строку?)
    buf = new char[ fsize + 1 ];

    // CRxUtil - классик, использующий регулярные выражения
    // для поиска/замены. Взят из примера
    // http://download.microsoft.com/download/VisualStudioNET/doc_samp/7.0/NT5XP/EN-US/atlserver_server_general_RegExp.exe
    CRxUtil<> myRxUtil;

    sMsg.Format( "  Идет преобразование. Ждите...\n" );

    RusOut( sMsg );

    // читаем и обрабатываем посторочно, иначе, если весь
    // файл (особенно hhcolreg.dat - 200...300K) затолкать
    // в CString, при поиске/замене винда обижается
    // и начинает менять размер файла подкачки
    while ( srcfile.tellg() < fsize )
    {
        srcfile.getline( buf, fsize + 1 );
        // работать будем с CString
        sFileContent = buf;

        // расставляем кавычки вокруг значений атрибутов,
        // например вместо value=1 будет value="1"
        hr = myRxUtil.s( sFileContent,
                         "value={[0-9]+}/", "value=\"$1\"/",
                         true, true, true );

        if ( FAILED( hr ) )
        {
            sMsg.Format( "Преобразование файла к XML:\n" );
            throw CErrInfo( hr, sMsg.GetBuffer( 0 ) );
        }

        // пишем обработанную строку
        destfile << ( LPCTSTR ) sFileContent << "\n";
    }

    // buf больше не нужен
    delete[] buf;

    buf = NULL;

    // закрываем файлы
    srcfile.close();

    destfile.close();

    // Записываем обработанный файл на место старого
    if ( !::CopyFile( ( sFileName + ".new" ).c_str(),
                      sFileName.c_str(), FALSE ) )
    {
        sMsg.Format( "Запись обработанного файла %s вместо %s:",
                     ( sFileName + ".new" ).c_str(),
                     sFileName.c_str() );
        throw CErrInfo( ::GetLastError(), sMsg.GetBuffer( 0 ) );
    }

    // удаляем промежуточный файл
    if ( !::DeleteFile( ( sFileName + ".new" ).c_str() ) )
    {
        sMsg.Format( "Удаление временного файла %s:",
                     ( sFileName + ".new" ).c_str() );
        throw CErrInfo( ::GetLastError(), sMsg.GetBuffer( 0 ) );
    }

    sMsg.Format( "  Файл %s преобразован к XML.\n", sFileName.c_str() );

    RusOut( sMsg );
}

Далее с нашими файлами можно работать, используя MSXML. Предварительно, для получения текстового сообщения по коду ошибки MSXML необходимо загрузить модуль, содержащий текстовые описания для кодов ошибок, возвращаемых MSXML:

Загрузка файлов и получение указателя на интерфейс IXMLDOMDocument2 для каждого файла происходят в LoadNewDocument().

Узнаём номер для новой коллекции

В файле hhcolreg.dat, в узле XML/HTMLHelpDocInfo/NextCollectionId хранится номер для следующей регистрируемой коллекции. Наша задача – узнать его, вписать в файл регистрируемой коллекции, нарастить на 1 и сохранить увеличенный номер в hhcolreg.dat. Функция GetNextCollectionNumber() получает указатель на IXMLDOMDocument2 для hhcolreg.dat и возвращает номер новой коллекции в CComVariant:

// получение номера следующей коллекции из файла регистрации с наращиванием
CComVariant
GetNextCollectionNumber( CComPtr<IXMLDOMDocument2> spHHCOLREGDoc )
{
    USES_CONVERSION;

    // строка для сообщения на экран
    CString sMsg;
    // переменные для номеров следующей и нашей коллекций
    CComVariant varNextColNum, varNewColNum;
    int NewColNum = 0;

    // для этого ищем соответствующий узел
    CComPtr<IXMLDOMNode> spNextColNumNode;
    CComQIPtr<IXMLDOMElement> spNextColNumElement;

    // NextCollectionId - номер для следующей регистрируемой коллекции
    CComBSTR bstrNextColNumNode( L"XML/HTMLHelpDocInfo/NextCollectionId" );

    HRESULT hr = spHHCOLREGDoc->selectSingleNode( bstrNextColNumNode,
                                                  &spNextColNumNode );

    if ( FAILED( hr ) )
    {
        sMsg.Format( "Поиск узла \"%s\" в файле для регистрации:",
                     W2A( bstrNextColNumNode ) );
        throw CErrInfo( hr, sMsg.GetBuffer( 0 ), hmMSXML3R );
    }

    if ( spNextColNumNode.p == NULL )
    {
        sMsg.Format( "Не найден узел \"%s\" в файле для регистрации\n",
                     W2A( bstrNextColNumNode ) );
        throw sMsg;
    }

    // рассматриваем его как элемент
    spNextColNumElement = spNextColNumNode;

    if ( spNextColNumElement.p == NULL )
    {
        sMsg.Format( "Ошибка при подключении к \"%s\" в файле для "
                     "регистрации\n",
                     W2A( bstrNextColNumNode ) );
        throw sMsg;
    }

    // теперь собственно чтение номера
    hr = spNextColNumElement->getAttribute( CComBSTR( L"value" ),
                                            &varNextColNum );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Чтение номера коллекции:", hmMSXML3R );

    if ( varNextColNum.vt == VT_BSTR )
    {
        NewColNum = atoi( W2A( varNextColNum.bstrVal ) );
    }
    else
    {
        throw "Ошибка: Тип номера коллекции не BSTR.\n";
    }

    varNewColNum = varNextColNum;

    ATLTRACE( "NewColNum = %d\n", NewColNum );
    sMsg.Format( "Считали номер следующей коллекции ( %d )  из файла для "
                 "регистрации\n",
                 NewColNum );
    RusOut( sMsg );

    // наращиваем номер
    sMsg.Format( "%d", NewColNum + 1 );
    CComBSTR bstrNextColNum = A2W( sMsg.GetBuffer( 0 ) );
    varNextColNum = bstrNextColNum;

    // вписываем номер следующей коллекции в файл регистрации коллекций
    hr = spNextColNumElement->setAttribute( CComBSTR( L"value" ),
                                            varNextColNum );

    if ( FAILED( hr ) )
    {
        sMsg.Format( "Установка номера коллекции (%s) в файле для "
                     "регистрации:",
                     W2A( bstrNextColNumNode ) );
        throw CErrInfo( hr, sMsg.GetBuffer( 0 ), hmMSXML3R );
    }

    sMsg.Format( "Изменили номер следующей коллекции на %d\n",
                 NewColNum + 1 );
    RusOut( sMsg );

    return varNewColNum;
}

Теперь вписываем этот номер в файл новой коллекции, он должен хранится в узле XML/HTMLHelpCollection/collectionnum:

// установка номера коллекции в регистрируемой коллекции
void SetNewCollectionNumber( CComPtr<IXMLDOMDocument2> spNewCollDoc,
                             CComVariant varNewNumber )
{
    USES_CONVERSION;

    CString sMsg;
    HRESULT hr;
    // устанавливаем номер коллекции в файле коллекции
    // для этого ищем соответствующий узел
    CComPtr<IXMLDOMNode> spColNumNode;

    CComBSTR bstrColNumNode( L"XML/HTMLHelpCollection/collectionnum" );

    hr = spNewCollDoc->selectSingleNode( bstrColNumNode, &spColNumNode );

    if ( FAILED( hr ) )
    {
        sMsg.Format( "Поиск узла \"%s\" в файле новой коллекции:",
                     W2A( bstrColNumNode ) );
        throw CErrInfo( hr, sMsg.GetBuffer( 0 ), hmMSXML3R );
    }

    if ( spColNumNode.p == NULL )
    {
        sMsg.Format( "Не найден узел \"%s\" в файле новой коллекции\n",
                     W2A( bstrColNumNode ) );
        throw sMsg;
    }

    ::SetNodeAttribute( spColNumNode, CComBSTR( L"value" ), varNewNumber );

    sMsg.Format( "Установили номер новой коллекции в %s\n",
                 W2A ( varNewNumber.bstrVal ) );
    RusOut( sMsg );
}

Формируем список файлов новой коллекции

Для формирования списка chm-файлов, входящих в коллекцию нужно обойти и проанализировать значение атрибута value всех узлов TitleString. Если это значение начинается со знака '=' в соответствии с соглашением, описанным в разделе "Пример коллекции" считаем его именем (без пути и расширения) одного из файлов коллекции и сохраняем в своем списке. Если знака '=' в первой позиции нет – это просто название одного из разделов коллекции.

 // получение списка документов (chm-файлов) из регистрируемой коллекции
void GetDocumentsList( CComPtr<IXMLDOMDocument2> spNewCollDoc,
                       vector<string>& ColDocNames )
{
    USES_CONVERSION;

    // список узлов документов в коллекции
    CComPtr<IXMLDOMNodeList> pFolderList = NULL;
    // указатель на очередной документ в узле
    CComPtr<IXMLDOMNode> pNextFolder = NULL;

    // теперь надо считать названия всех документов, они хранятся в узлах
    // TitleString
    HRESULT hr = spNewCollDoc->getElementsByTagName(
                     CComBSTR( L"*/TitleString" ),
                     &pFolderList );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Получение списка названий документов "
                        "коллекции:", hmMSXML3R );

    if ( pFolderList == NULL )
        throw "Не смогли получить список названий документов коллекции\n";

    // найдено узлов
    long FoldersCount = 0;

    hr = pFolderList->get_length( &FoldersCount );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Получение количества документов коллекции:",
                        hmMSXML3R );

    // обходим все найденные узлы и читаем названия документов
    pFolderList->reset();

    CComQIPtr<IXMLDOMElement> spNextFolderElement;

    CComVariant varTitleString;

    string stmp;

    for ( int ii = 0; ii < FoldersCount; ii++ )
    {
        // берем очередной узел
        hr = pFolderList->get_item( ii, &pNextFolder );

        if ( FAILED( hr ) )
            throw CErrInfo( hr, "Получение следующего документа:",
                            hmMSXML3R );

        if ( pNextFolder )
        {
            // подключаемся как к элементу
            spNextFolderElement = pNextFolder;

            // читаем значение атрибута
            hr = spNextFolderElement->getAttribute( CComBSTR( L"value" ),
                                                    &varTitleString );

            if ( FAILED( hr ) )
                throw CErrInfo( hr, "Чтение названия документа:",
                                hmMSXML3R );

            // добавляем в свой список имен chm-файлов новой коллекции
            if ( varTitleString.vt == VT_BSTR )
            {
                stmp = W2A( varTitleString.bstrVal );
                // Если не начинается со знака =, то это просто название
                // папки, игнорируем
                if ( stmp[ 0 ] == '=' )
                {
                    stmp.erase( 0, 1 ); // удаляем знак = перед именем
                    ColDocNames.push_back( stmp );
                }
            }

            pNextFolder = NULL;
        }

    }

    RusOut( "Прочитали список документов коллекции\n" );

}

Собственно регистрация

Очистка от предыдущих регистраций данной коллекции

Наличие нескольких регистраций одной и той же коллекции под разными номерами и из разных каталогов может быть одной из причин ошибки при попытке открыть коллекцию для просмотра (HTMLHELP сможет открыть для просмотра только первый из нескольких зарегистрированных экземпляров коллекции), поэтому нужно найти все предыдущие регистрации данной коллекции и удалить их.

Для очистки hhcolreg.dat от предыдущих регистраций вызывается функция разрегистрации, UnregisterCollection, принимающая в качестве параметра имя файла коллекции. Если имя файла (+ расширение) разрегистрируемой коллекции встречается в полном имени какой-либо из уже зарегистрированных в hhcolreg.dat коллекций, данные об этой коллекции и её документах удаляются из hhcolreg.dat. Сравнение имен файлов нужно проводить без учета регистра, т.к. предыдущие регистрации могли быть произведены другой программой, с приведением всех символов в имени файла к верхнему или нижнему регистру.

Итак, по очереди обходим в hhcolreg.dat все узлы XML/HTMLHelpDocInfo/Collections/Collection, в которых атрибут value дочернего узла ColName содержит имя файла разрегистрируемой коллекции. Для каждой найденной таким образом коллекции получаем ее номер из атрибута value соседнего с ColName узла ColNum. По каждому полученному номеру выбираем документы, входящие в коллекцию (для каждого документа номер его коллекции находится в атрибуте value узла XML/HTMLHelpDocInfo/DocCompilations/DocCompilation/LocationHistory/ColNum) и удаляем секцию XML/HTMLHelpDocInfo/DocCompilations/DocCompilation содержащую данные этого документа. На последнем этапе удаляются секции XML/HTMLHelpDocInfo/Collections/Collection всех попавших под нашу выборку коллекций.

// удаление записей о коллекции из рег. файла
// коллекция могла быть зарегистрирована не один раз, под разными
// номерами, поэтому удаляем по имени файла коллекции,
// а не по номеру
void UnregisterCollection(
    // XML-документ коллекции
    CComPtr<IXMLDOMDocument2> spHHCOLREGDoc,
    // полное имя файла коллекции
    string sNewColFullName )
{
    USES_CONVERSION;

    // списки узлов документов в коллекции
    CComPtr<IXMLDOMNodeList> pColNumFolderList = NULL;
    CComPtr<IXMLDOMNodeList> pDocCompFolderList = NULL;
    CComPtr<IXMLDOMNodeList> pCollectionFolderList = NULL;
    // указатели на очередной узел в списках
    CComPtr<IXMLDOMNode> pNextColNumFolder = NULL;
    CComPtr<IXMLDOMNode> pNextDocCompFolder = NULL;
    CComPtr<IXMLDOMNode> pNextCollectionFolder = NULL;
    // указатель на удалённый узел
    CComPtr<IXMLDOMNode> pRemovedFolder = NULL;
    // указатели на родительские для удаляемых узлы
    CComPtr<IXMLDOMNode> pParentDocCompilationsFolder = NULL;
    CComPtr<IXMLDOMNode> pParentCollectionsFolder = NULL;
    // элемент - номер коллекции
    CComQIPtr<IXMLDOMElement> spColNumElement;
    // номер коллекции
    CComVariant varColNum;
    // строки сообщения и запроса
    CString sMsg, sPath;

    HRESULT hr;

    // Выделяем из полного имени файла только имя и расширение:
    char drive[ _MAX_DRIVE ];
    char dir[ _MAX_DIR ];
    char fname[ _MAX_FNAME ];
    char ext[ _MAX_EXT ];
    string sColFileName;

    _splitpath( sNewColFullName.c_str(), drive, dir, fname, ext );
    sColFileName = fname;
    sColFileName += ext;

    // Надо удалить все узлы с информацией о документах коллекции
    // и о самой коллекции

    // родительский узел для удаляемых записей о документах - <DocCompilations>
    hr = spHHCOLREGDoc->selectSingleNode(
             CComBSTR( L"XML/HTMLHelpDocInfo/DocCompilations" ),
             &pParentDocCompilationsFolder );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Получение родительского узла "
                        "<DocCompilations>:\n", hmMSXML3R );

    if ( pParentDocCompilationsFolder == NULL )
        throw "Не найден узел <DocCompilations>\n";

    // родительский узел для удаляемых узлов <Collection> - <Collections>
    hr = spHHCOLREGDoc->selectSingleNode(
             CComBSTR( L"XML/HTMLHelpDocInfo/Collections" ),
             &pParentCollectionsFolder );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Получение родительского узла <Collections>:\n",
                        hmMSXML3R );

    if ( pParentCollectionsFolder == NULL )
        throw "Не найден узел <Collections>\n";

    // Сначала надо получить все номера, под которыми зарегистрирована
    // удаляемая колекция, они в узлах ColNum
    // приводим имя файла коллекции к нижнему регистру
    CString lowername = sColFileName.c_str();

    lowername.MakeLower();

    // составляем запрос по _имени_файла_ коллекции
    // В процессе выборки, перед сравнением имён файлов, приводим
    // имена файлов коллекций, зарегистрированных в hhcolreg.dat
    // к нижнему регистру при помощи XPath функции translate
    sPath.Format( "//*/Collection[ColName"
                  "[contains(translate(@value,'%s','%s'),'%s')]]/ColNum",
                  UpperChars, LowerChars, lowername );

    // получаем список
    hr = spHHCOLREGDoc->selectNodes( CComBSTR( sPath.GetBuffer( 0 ) ),
                                     &pColNumFolderList );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Получение списка узлов <ColNum>:", hmMSXML3R );

    if ( pColNumFolderList == NULL )
        throw "Не смогли получить список узлов <ColNum>\n";

    // количество регистраций данной коллекции под разными номерами
    long ColNumFoldersCount = 0;

    // количество документов коллекции данного номера
    long DocCompilationFoldersCount = 0;

    hr = pColNumFolderList->get_length( &ColNumFoldersCount );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Получение количества узлов <ColNum> c номерами "
                        "удаляемых коллекций:", hmMSXML3R );

    // обходим все найденные узлы, читаем номера коллекций и удаляем
    // регистрационные записи о документах этих коллекций
    pColNumFolderList->reset();

    // счетчики в циклах
    int i = 0;

    int k = 0;

    for ( i = 0; i < ColNumFoldersCount; i++ )
    {
        // берем очередной узел
        hr = pColNumFolderList->get_item( i, &pNextColNumFolder );

        if ( FAILED( hr ) )
            throw CErrInfo( hr, "Получение следующего узла ColNum из списка "
                            "удаляемых записей:", hmMSXML3R );

        if ( pNextColNumFolder )
        {
            // подключаемся как к элементу
            spColNumElement = pNextColNumFolder;

            // читаем значение атрибута
            hr = spColNumElement->getAttribute( CComBSTR( L"value" ),
                                                &varColNum );

            if ( FAILED( hr ) )
                throw CErrInfo( hr, "Чтение номера коллекции для удаления:",
                                hmMSXML3R );

            /* ищем все документы коллекции с таким номером и удаляем их */
            // запрос
            sPath.Format( "//XML/HTMLHelpDocInfo/DocCompilations/"
                          "DocCompilation"
                          "[LocationHistory/ColNum[@value='%s']]",
                          W2A( varColNum.bstrVal ) );

            hr = spHHCOLREGDoc->
                 selectNodes( CComBSTR( sPath.GetBuffer( 0 ) ),
                              &pDocCompFolderList );

            if ( FAILED( hr ) )
                throw CErrInfo( hr, "Получение списка узлов "
                                "<DocCompilation> для удаления:\n",
                                hmMSXML3R );

            if ( pDocCompFolderList == NULL )
                throw "Не смогли получить список узлов <DocCompilation> "
                "для удаления\n";

            // количество записей о документах для удаления
            DocCompilationFoldersCount = 0;

            hr = pDocCompFolderList->
                 get_length( &DocCompilationFoldersCount );

            if ( FAILED( hr ) )
                throw CErrInfo( hr, "Получение количества узлов "
                                "<DocCompilation> для удаления:\n",
                                hmMSXML3R );

            // обходим все найденные узлы и удаляем их
            pDocCompFolderList->reset();

            for ( k = 0; k < DocCompilationFoldersCount; k++ )
            {
                // берем очередной узел
                hr = pDocCompFolderList->get_item( k, &pNextDocCompFolder );

                if ( FAILED( hr ) )
                    throw CErrInfo( hr, "Получение следующего узла "
                                    "<DocCompilation> из списка для "
                                    "удаления:\n", hmMSXML3R );

                if ( pNextDocCompFolder )
                {

                    hr = pParentDocCompilationsFolder->
                         removeChild( pNextDocCompFolder,
                                      &pRemovedFolder );

                    if ( FAILED( hr ) )
                    {
                        sMsg.Format( "Удаление узла <DocCompilation> "
                                     "коллекции %s:\n",
                                     W2A( varColNum.bstrVal ) );
                        throw CErrInfo( hr, sMsg.GetBuffer( 0 ), hmMSXML3R );
                    }

                    sMsg.Format( "Удалён узел <DocCompilation> "
                                 "коллекции %s\n",
                                 W2A( varColNum.bstrVal ) );
                    RusOut( sMsg );

                    // освобождаем
                    pRemovedFolder = NULL;
                    pNextDocCompFolder = NULL;
                }

            }

            pDocCompFolderList = NULL;
        }
    }

    pParentDocCompilationsFolder = NULL;
    pColNumFolderList = NULL;

    // теперь можно удалить все узлы <Collection> для данной коллекции
    // опять составляем запрос по _имени_файла_ коллекции
    // опять же применяя translate для сравнения имен файлов
    // без учёта регистра
    sPath.Format( "//*/Collection[ColName"
                  "[contains(translate(@value,'%s','%s'),'%s')]]",
                  UpperChars, LowerChars, lowername );

    // получаем список
    hr = spHHCOLREGDoc->selectNodes( CComBSTR( sPath.GetBuffer( 0 ) ),
                                     &pCollectionFolderList );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Получение списка узлов <Collection> "
                        "для удаления:", hmMSXML3R );

    if ( pCollectionFolderList == NULL )
        throw "Не смогли получить список узлов <Collection> "
        "для удаления\n";

    // число регистрационных записей для данной коллекции
    long CollectionFoldersCount = 0;

    hr = pCollectionFolderList->get_length( &CollectionFoldersCount );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Получение количества узлов <Collection> "
                        "для удаления:", hmMSXML3R );

    // обходим все найденные узлы и удаляем их
    pCollectionFolderList->reset();

    for ( int ii = 0; ii < CollectionFoldersCount; ii++ )
    {
        // берем очередной узел
        hr = pCollectionFolderList->get_item( ii, &pNextCollectionFolder );

        if ( FAILED( hr ) )
            throw CErrInfo( hr, "Получение следующего узла из списка для "
                            "удаления:", hmMSXML3R );

        if ( pNextCollectionFolder )
        {
            hr = pParentCollectionsFolder->removeChild(
                     pNextCollectionFolder,
                     &pRemovedFolder );

            if ( FAILED( hr ) )
            {
                sMsg.Format( "Удаление узла <Collection> коллекции %s:\n",
                             sColFileName.c_str() );
                throw CErrInfo( hr, sMsg.GetBuffer( 0 ), hmMSXML3R );
            }

            sMsg.Format( "Удалён узел <Collection> коллекции %s\n",
                         sColFileName.c_str() );
            RusOut( sMsg );

            // освобождаем
            pRemovedFolder = NULL;
            pNextCollectionFolder = NULL;
        }

    }

    pParentCollectionsFolder = NULL;
    pCollectionFolderList = NULL;
}

Регистрация файлов коллекции

Во-первых, нужно занести в hhcolreg.dat информацию о каждом файле коллекции. Для приведенного выше примера коллекции нужно добавить примерно следующее:

            <DocCompilation>
                <DocCompId value="first"/>
                <DocCompLanguage value="1033"/>
                <LocationHistory>
                    <ColNum value="10032"/>
                    <TitleLocation value="E:\PROJECTS\VC7\hhcolreg\test\first.chm"/>
                    <IndexLocation value="E:\PROJECTS\VC7\hhcolreg\test\first.chm"/>
                    <QueryLocation value=""/>
                    <LocationRef value=""/>
                    <Version value="1"/>
                    <LastPromptedVersion value="0"/>
                    <TitleSampleLocation value=""/>
                    <TitleQueryLocation value=""/>
                    <SupportsMerge value="0"/>
                </LocationHistory>
            </DocCompilation>
            <DocCompilation>
                <DocCompId value="second"/>
                <DocCompLanguage value="1033"/>
                <LocationHistory>
                    <ColNum value="10032"/>
                    <TitleLocation value="E:\PROJECTS\VC7\hhcolreg\test\second.chm"/>
                    <IndexLocation value="E:\PROJECTS\VC7\hhcolreg\test\second.chm"/>
                    <QueryLocation value=""/>
                    <LocationRef value=""/>
                    <Version value="1"/>
                    <LastPromptedVersion value="0"/>
                    <TitleSampleLocation value=""/>
                    <TitleQueryLocation value=""/>
                    <SupportsMerge value="0"/>
                </LocationHistory>
            </DocCompilation>

Это происходит в функции RegisterDocuments(). Для получения полного пути к файлу каждого документа к имени, полученному при чтении списка документов добавляется расширение chm и путь. совпадающий с путем к файлу коллекции. Его можно получить либо из полного имени файла коллекции, переданного в командной строке, либо, если передано только имя – как путь к текущему каталогу.

// занесение данных о документах коллекции в файл регистрации
void RegisterDocuments(
    // hhcolreg.dat как XML документ
    CComPtr<IXMLDOMDocument2> spHHCOLREGDoc,
    // полный путь к каталогу где лежит колекция и её файлы
    string sColDir,
    // имена chm-файлов коллекции
    vector<string>& ColDocNames,
    // номер новой коллекции
    CComVariant varNewNumber )
{
    USES_CONVERSION;

    CString sMsg;
    HRESULT hr;
    // ищем узел DocCompilations чтобы добавить туда новые узлы DocCompilation
    CComPtr<IXMLDOMNode> spDocCompilationsNode;

    CComBSTR bstrDocCompilations( L"XML/HTMLHelpDocInfo/DocCompilations" );

    hr = spHHCOLREGDoc->selectSingleNode( bstrDocCompilations,
                                          &spDocCompilationsNode );

    if ( FAILED( hr ) )
    {
        sMsg.Format( "Поиск узла \"%s\" в файле регистрации коллекций:",
                     W2A( bstrDocCompilations ) );
        throw CErrInfo( hr, sMsg.GetBuffer( 0 ), hmMSXML3R );
    }

    if ( spDocCompilationsNode.p == NULL )
    {
        sMsg.Format( "Не найден узел \"%s\" в файле регистрации коллекций\n",
                     W2A( bstrDocCompilations ) );
        throw sMsg;
    }

    CComPtr<IXMLDOMNode> spNewNode;
    CComPtr<IXMLDOMNode> spLocHistNode;
    CComPtr<IXMLDOMNode> spNewDocCompNode;
    CComVariant NextColDocFileName;

    sMsg.Format( "Добавляем информацию о документах коллекции...\n" );
    RusOut( sMsg );

    for ( UINT k = 0; k < ColDocNames.size(); k++ )
    {
        // формируем полное имя chm-файла
        NextColDocFileName = ( sColDir + ColDocNames[ k ] + ".chm" ).c_str();

        // создаем новые узлы с инфоормацией о документах коллекции
        spNewDocCompNode = ::CreateNode( spHHCOLREGDoc, spDocCompilationsNode,
                                         CComBSTR( L"DocCompilation" ) );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spNewDocCompNode,
                                  CComBSTR( L"DocCompId" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            CComVariant( ColDocNames[ k ].c_str() ) );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spNewDocCompNode,
                                  CComBSTR( L"DocCompLanguage" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            CComVariant( L"1033" ) );

        spLocHistNode = ::CreateNode( spHHCOLREGDoc, spNewDocCompNode,
                                      CComBSTR( L"LocationHistory" ) );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"ColNum" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ), varNewNumber );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"TitleLocation" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            NextColDocFileName );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"IndexLocation" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            NextColDocFileName );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"QueryLocation" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            CComVariant( L"" ) );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"LocationRef" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            CComVariant( L"" ) );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"Version" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            CComVariant( L"1" ) );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"LastPromptedVersion" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            CComVariant( L"0" ) );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"TitleSampleLocation" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            CComVariant( L"" ) );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"TitleQueryLocation" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            CComVariant( L"" ) );

        spNewNode = ::CreateNode( spHHCOLREGDoc, spLocHistNode,
                                  CComBSTR( L"SupportsMerge" ) );
        ::SetNodeAttribute( spNewNode, CComBSTR( L"value" ),
                            CComVariant( L"0" ) );

        sMsg.Format( "  %s\n",
                     ( sColDir + ColDocNames[ k ] + ".chm" ).c_str() );
        RusOut( sMsg );

    }

}

Регистрация файла коллекции

И, во-вторых, занести информацию о файле коллекции:

// добавление узла с информацией о новой коллекции
void AddNewCollectionNode(
    // hhcolreg.dat как XML документ
    CComPtr<IXMLDOMDocument2> spHHCOLREGDoc,
    // полный путь и имя файла новой коллекции
    CComVariant varNewColFile,
    // номер новой коллекции
    CComVariant varNewNumber )
{
    USES_CONVERSION;

    CString sMsg, sPath;
    HRESULT hr;
    // список узлов
    CComPtr<IXMLDOMNodeList> pFolderList = NULL;

    // а может такой узел уже есть?
    // составляем запрос по _номеру_ коллекции
    sPath.Format( "//XML/HTMLHelpDocInfo/Collections/Collection"
                  "[ColNum[@value='%s']]",
                  W2A( varNewNumber.bstrVal ) );

    // получаем список
    hr = spHHCOLREGDoc->selectNodes( CComBSTR( sPath.GetBuffer( 0 ) ),
                                     &pFolderList );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Поиск существующего узла <Collection> перед "
                        "добавлением:", hmMSXML3R );

    if ( pFolderList == NULL )
        throw "Не смогли получить список узлов <Collection> перед "
        "добавлением\n";

    // найдено узлов
    long FoldersCount = 0;

    hr = pFolderList->get_length( &FoldersCount );

    if ( FAILED( hr ) )
        throw CErrInfo( hr, "Получение количества узлов <Collection> перед "
                        "добавлением:", hmMSXML3R );

    pFolderList = NULL;

    if ( FoldersCount > 0 )
    {
        sMsg.Format( "Для коллекции %s уже есть узел <Collection> в файле "
                     "регистрации.\n",
                     W2A( varNewNumber.bstrVal ) );
        RusOut( sMsg );
        return ;
    }

    CComBSTR bstrCollectionsNode( L"XML/HTMLHelpDocInfo/Collections" );
    CComPtr<IXMLDOMNode> spCollectionsNode;
    CComPtr<IXMLDOMNode> spNewCollectionNode;
    CComPtr<IXMLDOMNode> spNewColNumNode;
    CComPtr<IXMLDOMNode> spNewColNameNode;

    // теперь надо добавить секцию <Collection>
    // вообще говоря её можно и не добавлять, и тогда при первом обращении к
    // коллекции HH.exe добавит ее сам, но он же при этом опять
    // УБЕРЕТ КАВЫЧКИ У ВСЕХ ЧИСЛОВЫХ ЗНАЧЕНИЙ АТРИБУТОВ! Зараза.
    hr = spHHCOLREGDoc->selectSingleNode( bstrCollectionsNode,
                                          &spCollectionsNode );

    if ( FAILED( hr ) )
    {
        sMsg.Format( "Поиск узла \"%s\" в файле для регистрации:",
                     W2A( bstrCollectionsNode ) );
        throw CErrInfo( hr, sMsg.GetBuffer( 0 ), hmMSXML3R );
    }

    if ( spCollectionsNode.p == NULL )
    {
        sMsg.Format( "Не найден узел \"%s\" в файле для регистрации\n",
                     W2A( bstrCollectionsNode ) );
        throw sMsg;
    }

    spNewCollectionNode = ::CreateNode( spHHCOLREGDoc, spCollectionsNode,
                                        CComBSTR( L"Collection" ) );
    spNewColNumNode = ::CreateNode( spHHCOLREGDoc, spNewCollectionNode,
                                    CComBSTR( L"ColNum" ) );
    spNewColNameNode = ::CreateNode( spHHCOLREGDoc, spNewCollectionNode,
                                     CComBSTR( L"ColName" ) );
    ::SetNodeAttribute( spNewColNumNode, CComBSTR( L"value" ),
                        varNewNumber );
    ::SetNodeAttribute( spNewColNameNode, CComBSTR( L"value" ),
                        varNewColFile );

    RusOut( "Добавили узел <Collection> для новой коллекции в файле "
            "регистрации.\n" );
}

Сохранение внесённых изменений

Пока все изменения проводились только в памяти, в XML-документах, представляющих наши файлы. Теперь нужно сохранить внесенные изменения на диске. Операция предельно простая, но иррациональное желание видеть при просмотре файла правильное XML-деревце, а не одну строку длиной в 300000 символов заставляет сделать пару финтов. Весь XML-документ выгружается в BSTR-строку, строка обрабатывается – между тэгами вставляются знаки перевода строки, после чего снова загружается в XML-документ. Поскольку в процессе этих преобразований неизбежно теряется ProcessingInstruction с данными о кодировке, восстанавливаем ее, после чего со спокойной душой и чистой совестью вызываем save() и сохраняем документ в файле. Мораль: красота – страшная сила :)

// сохранение DOMDocument в файл
void SaveDocument( CComPtr<IXMLDOMDocument2> spDOMDoc, string sFileName )
{
    USES_CONVERSION;

    CString sMsg, slocator;
    VARIANT_BOOL bSuccess = VARIANT_FALSE;

    sMsg.Format( "Структурируем документ %s...\n", sFileName.c_str() );
    RusOut( sMsg );

    // чтобы при сохранении в файл (IXMLDOMDocument2::save) файл получился
    // правильно структурированным, нужно кое-что сделать:
    // загружаем содержимое в строку BSTR
    CComBSTR bstrXML( L"" );
    HRESULT hr = spDOMDoc->get_xml( &bstrXML );

    if ( FAILED( hr ) )
    {
        throw CErrInfo( hr, "Сохраняем документ в строке BSTR:", hmMSXML3R );
    }

    // между узлами вставляем переводы строки
    CString sXml = W2A( bstrXML );

    sXml.Replace( "><", ">\n<" );

    bstrXML = sXml.GetBuffer( 0 );

    // загружаем взад (в IXMLDOMDocument2)
    hr = spDOMDoc->loadXML( bstrXML, &bSuccess );

    if ( FAILED( hr ) )
    {
        throw CErrInfo( hr, "Загрузка измененного документа:", hmMSXML3R );
    }

    if ( !bSuccess )
    {
        // получаем информацию, что и где не понравилось парсеру
        CComPtr<IXMLDOMParseError> errPtr = NULL;
        CComBSTR bstrReason( L"" ), bstrSrc( L"" );
        long LineInFile = 0, errCode = 0, linePos = 0;

        hr = spDOMDoc->get_parseError( &errPtr );

        if ( FAILED( hr ) )
        {
            throw CErrInfo( hr,
                            "Получаем IXMLDOMParseError для анализа "
                            "ошибки:", hmMSXML3R );
        }

        errPtr->get_reason( &bstrReason );
        errPtr->get_line( &LineInFile );
        errPtr->get_errorCode( &errCode );
        errPtr->get_linepos( &linePos );
        errPtr->get_srcText( &bstrSrc );

        // отмечаем место ошибки
        slocator = "";

        for ( int j = 1; j < linePos; j++ )
        {
            slocator += " ";
        }

        slocator += "^";

        sMsg.Format( "Ошибка 0x%X в строке %d поз. %d файла "
                     "%s:\n\n%s\n%s\n%s\n",
                     errCode, LineInFile, linePos, sFileName.c_str(),
                     W2A( bstrSrc ), slocator, W2A( bstrReason ) );

        errPtr = NULL;

        throw sMsg;
        // sMsg.AnsiToOem();
        // cout << ( LPCTSTR ) sMsg;
    }

    // Воостанавливаем ProcessingInstruction, если она была
    // код имени ak_alex, см.
    // http://www.rsdn.ru/forum/message.asp?mid=88591&only
    // Это необходимо, чтобы русские буквы при сохранении
    // документа записались в правильной кодировке win1251
    CComPtr <IXMLDOMNode> instr;

    hr = spDOMDoc->get_firstChild( &instr );

    if ( FAILED( hr ) )
    {
        throw CErrInfo( hr, "Получение ProcessingInstruction:", hmMSXML3R );
    }

    DOMNodeType tp;
    instr->get_nodeType( &tp );

    if ( tp == NODE_PROCESSING_INSTRUCTION )
    {
        ::RusOut( "Обнаружили остатки ProcessingInstruction, "
                  "будем восстанавливать.\n" );

        CComPtr<IXMLDOMProcessingInstruction> pi = NULL;
        hr = instr->QueryInterface( __uuidof( IXMLDOMProcessingInstruction ),
                                    ( void** ) & pi );

        if ( FAILED( hr ) )
        {
            throw CErrInfo( hr, "Получение IXMLDOMProcessingInstruction:",
                            hmMSXML3R );
        }

        CComBSTR instType( L"xml" );
        CComBSTR instData( L"version=\"1.0\" encoding=\"WINDOWS-1251\"" );
        CComPtr<IXMLDOMProcessingInstruction> ptrInstr;
        hr = spDOMDoc->createProcessingInstruction( instType, instData,
                                                    &ptrInstr );

        if ( FAILED( hr ) )
        {
            throw CErrInfo( hr, "Создание новой ProcessingInstruction:",
                            hmMSXML3R );
        }

        CComPtr<IXMLDOMNode> oldInstr;
        hr = spDOMDoc->replaceChild( ptrInstr, instr, &oldInstr );

        if ( FAILED( hr ) )
        {
            throw CErrInfo( hr, "Замена ProcessingInstruction:", hmMSXML3R );
        }

        sMsg.Format( "Восстановлена ProcessingInstruction: %s",
                     sProcInstruction.c_str() );
        RusOut( sMsg );
    }

    sMsg.Format( "Сохраняем изменения в файле %s...\n", sFileName.c_str() );
    RusOut( sMsg );
    // сохраняем файл
    hr = spDOMDoc->save( CComVariant( sFileName.c_str() ) );

    if ( FAILED( hr ) )
    {
        sMsg.Format( "Сохранение измененного файла %s:", sFileName.c_str() );
        throw CErrInfo( hr, sMsg.GetBuffer( 0 ), hmMSXML3R );
    }

}

Пост-обработка файлов

Осталось только вычистить строку ProcessingInstruction из начала файлов. Для этой операции удобно использовать класс CFileMap для работы с проецируемыми в память файлами от Виталия Брусенцева. Проецируем обрабатываемый файл в память, сдвигаем то что следует сразу за ProcessingInstruction в начало файла, устанавливаем новый конец и сохраняем изменения.

// Удаляем из файлов ProcessingInstruction, ибо HTMLHELP их не разумеет :(
// sFileName - имя файла для обработки
void PostFix( string sFileName )
{
    // строки для сообщения на экран
    CString sMsg;

    sMsg.Format( "Последняя чистка %s от ProcessingInstruction.\n",
                 sFileName.c_str() );
    ::RusOut( sMsg );

    // длина строки sProcInstruction + ещё один символ
    // т.к. \n заменяется на \r\n
    UINT PISHIFT = ( UINT ) sProcInstruction.size() + 1;

    // фактически, файл надо сдвинуть вперёд на 47 символов
    // и (excuse me) откусить конец 
    CFileMap file2fix( sFileName.c_str(), true );

    if ( !file2fix )
    {
        sMsg.Format( "PostFix() : Невозможно открыть файл %s.\n",
                     sFileName.c_str() );
        throw sMsg;
    }

    //        куда,
    memmove( file2fix.Base(),
             // откуда,
             file2fix.Base() + PISHIFT,
             // сколько
             file2fix.Size() - PISHIFT );

    if ( !file2fix.Close( file2fix.Size() - PISHIFT ) )
    {
        sMsg.Format( "PostFix() : Невозможно установить новый "
                     "размер для %s.\n",
                     sFileName.c_str() );
        throw sMsg;
    }

}

Уфф-ф, может зря я не начал писать свой парсер? Ладно, если уж мы благополучно добрались до этого момента, осталось только сохранить временные файлы под их настоящими именами и почистить за собой.

Зарегистрированную коллекцию можно открыть для просмотра двойным щелчком, либо из командной строки: hh.exe sample.col:

Разрегистрация

При разрегистрации коллекции нужно удалить из hhcolreg.dat все относящиеся к ней записи. Для этого просто вызывается уже известная вам UnregisterCollection.

Заключение

Утилита с таким же назначением входит в состав инсталлятора GhostInstaller, однако, на момент написания данной программы она не вполне корректно регистрировала некоторые виды файлов коллекций, что собственно и стало причиной появления данного опуса.

HHCOLREG

Регистрация HTMLHELP коллекций

Автор: Алексей Кирюшкин
The RSDN Group
Источник: RSDN Magazine #2

Опубликовано: 03.02.2003
Исправлено: 15.04.2009
Версия текста: 1.0

Зачем это надо?

Использование программы

Подробности реализации

Пример коллекции

Поиск hhcolreg.dat

Предварительная обработка файлов

Узнаём номер для новой коллекции

Формируем список файлов новой коллекции

Собственно регистрация

Очистка от предыдущих регистраций данной коллекции

Регистрация файлов коллекции

Регистрация файла коллекции

Сохранение внесённых изменений

Пост-обработка файлов

Разрегистрация

Заключение

HHCOLREG

Регистрация HTMLHELP коллекций

Автор: Алексей КирюшкинThe RSDN GroupИсточник: RSDN Magazine #2

Опубликовано: 03.02.2003Исправлено: 15.04.2009Версия текста: 1.0

Зачем это надо?

Использование программы

Подробности реализации

Пример коллекции

Поиск hhcolreg.dat

Предварительная обработка файлов

Узнаём номер для новой коллекции

Формируем список файлов новой коллекции

Собственно регистрация

Очистка от предыдущих регистраций данной коллекции

Регистрация файлов коллекции

Регистрация файла коллекции

Сохранение внесённых изменений

Пост-обработка файлов

Разрегистрация

Заключение

Автор: Алексей Кирюшкин
The RSDN Group
Источник: RSDN Magazine #2

Опубликовано: 03.02.2003
Исправлено: 15.04.2009
Версия текста: 1.0