Мне казалось, я сие уже делал. Или только собирался, но не сделал?!
]]>T16bit WINAPI EnCryptFile (char *file_in,
char *file_out,
T16bit node_From,
P16bit node_To,
char *ser);
Функция имеет параметры:
(i) file_in — указатель на строку полного пути к незашифрованному файлу;
(i) file_out — указатель на строку полного пути к зашифрованному файлу;
(i) node_From — номер ключа шифрования отправителя (XXXX), представленный в виде числа типа unsigned short;
(i) node_To — список номеров ключей получателей, который представляется строкой элементов, имеющих тип unsigned short, и оканчивается нулем (0);
(i) ser — указатель на строку длиной 6 символов с номером серии (SSSSSS) открытых ключей шифрования получателей. Если в качестве значения этого параметра указать последовательность из шести нулевых символов (\0\0\0\0\0\0), т. е. зашифрованный файл предназначен для пользователей с тем же номером серии, что и у отправителя, то номер серии берется из драйвера хранения ключевой информации.
Пример вызова функции зашифрования:
char ser_To[7] = “000005”;
node_To[0] = 2;
node_To[1] = 3;
node_To[2] = 0;
node_From = 1;
error_code = EnCryptFile("C:\\AUTOEXEC.BAT", "C:\\TEST.TST",
node_From, node_To , ser_To);
пытаюсь
Set UserWrap = CreateObject("DynamicWrapperX")
UserWrap.Register "wbotho.dll", "EnCryptFile", "i=sstss", "r=t"
res = UserWrap.EnCryptFile("C:\\AUTOEXEC.BAT", "C:\\TEST.TST",1,array(2,3,0),"000005")
Получаю
Ошибка выполнения Microsoft VBScript: Несоответствие типа: 'UserWrap.EnCryptFile'
Как передать в виде аргумента строку элементов, имеющих тип unsigned short, и оканчивающийся нулем ?
]]>ИМХО Про this_call неточно написано, непонятно, как применять
Пропущен его вызов
ЗЫ лично я нашел вариант только на форуме 1спп.ру
http://www.1cpp.ru/forum/YaBB.pl?num=1289558528/10#10
ЗЗЫ как исправишь, этот пост удалю
А так всё сразу станет ясно — другой номер версии + ещё один разработчик приложил руку.
Согласен. Исправил.
]]>Я думаю, пусть пока пройдет тестирование, потом изменим.
Неправильные файлы разойдутся. Скрипт, работающий с одним, не будет работать с другим, и будет непонятно, в чём дело. Как я уже говорил, Семёрка некоторые поля в свойствах не показывает, а глянуть в ResHacker'е надо ещё как-то додуматься. А так всё сразу станет ясно — другой номер версии + ещё один разработчик приложил руку.
]]>Или такая идея: измените номер версии и добавьте себя в копирайт. Чтобы не вставлять куда-то длинных описаний.
Я думаю, пусть пока пройдет тестирование, потом изменим.
Ещё такой вопрос приходил мне в голову: если объекту добавляются новые методы, не положено ли вообще менять CLSID? Ведь по сути это уже не тот объект, что был, а CLSID должен идентифицировать объект однозначно. Вроде бы.
Не дошли руки выяснить этот вопрос, да и не очень пока представляю, где искать ответ.
Честно, я не вижу в этом никакого практического смысла.
]]>Ещё такой вопрос приходил мне в голову: если объекту добавляются новые методы, не положено ли вообще менять CLSID? Ведь по сути это уже не тот объект, что был, а CLSID должен идентифицировать объект однозначно. Вроде бы. 
Не дошли руки выяснить этот вопрос, да и не очень пока представляю, где искать ответ.
В FileDescription тогда, что ли, добавить? По смыслу вроде годится. Ну и номер версии лучше бы изменить. На 1.1.0.0, к примеру?]]>chessman
Зря не пометили в ресурсах DLL, что версия другая.
Как не пометил? В "Варианте" написал.
]]>Сегодня попробовал на боевой базе, на Win 7, все взлетело.
]]>
