По моему, если хочешь отдать кашу со своим кодом, то самое лучшее - отдавать систему вместе с каким то исходным cache.dat (где ты уже предварительно скрыл свои исходники с помощью MakeClassDeployed) и механизмом импорта который я приведу ниже.
Для обновления классов на клиентской машине надо их написать на своей машине и экспортировать.
Экспортировать, запаковать в zip и закрыть паролем, а пароль дать "vedro".
Вот так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
/// Экспорт указанных классов (и/или рутин) в xml а потом в запароленный архив
/// classnames - одно или несколько имён классов разделённые запятой
/// например: "User.Myclass.cls,User.MyClass2.cls"
classmethod Export(classnames as %String = "") as %String
{
s Archiver = "c:\sklad\pkzip25.exe"
s password = "vedro"
s XmlExportFilename = "c:\zz.xml"
s ZipExportFilename = "c:\ExportCache.zip"
if '##class(%File).Exists(Archiver) q "Не найден файл архиватор "_Archiver
//экспортируем указанные элементы
s ok = $system.OBJ.Export(classnames,XmlExportFilename)
if '+ok q $$GetOneErrorText^%apiOBJ(ok, 1 )
//составим командную строку архивации и выполним её
s CommandString=Archiver_" -add -NoFix -move -pass="_password_" "_ZipExportFilename_" "_XmlExportFilename_" >c:\ZipExportLog.txt"
d $ZF(- 1 ,CommandString)
q 1
}
На клиентской машине надо будет принять zip архив закрытый мощным паролем "vedro" и запустить скрипт который распакует архив, импортирует классы и скроет их используя кашёвый MakeClassDeployed.
Вот так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
/// Импорт классов из zip архива и сокрытие импортированных классов
/// filename - запароленный zip файл в котором zz.xml с классами
classmethod Import(filename as %String = "") as %String
{
s Archiver = "c:\sklad\pkzip25.exe"
s password = "vedro"
s TempDir = "c:\sklad" //тут бы конечно использовать виндовую переменную %TMP% но я не знаю как это сделать
s XmlFile = "zz.xml"
if filename="" q "Не указан файл для импорта"
if '##class(%File).Exists(filename) q "Не найден файл импорта "_filename
if '##class(%File).Exists(Archiver) q "Не найден файл архиватора "_Archiver
//составим командную строку распаковки и выполним её
s CommandString=Archiver_" -extract -over=all -NoFix -path=root -pass="_password_" "_filename_" "_TempDir_" >c:\ZipImportLog.txt"
d $ZF(- 1 ,CommandString)
if '##class(%File).Exists(TempDir_"\"_XmlFile) q "Не найден импортируемый файл "_TempDir_"\"_XmlFile
//импортируем распакованный xml
s ok = $system.OBJ.Load(TempDir_"\"_XmlFile,"ck",.p1,.p2)
if '+ok q $$GetOneErrorText^%apiOBJ(ok, 1 )
//удалим xml файл
s ok=##class(%File).Delete(TempDir_"\"_XmlFile)
//даже если не смогли удалить, всё равно скрываем классы и молчим в тряпочку
//теперь скроем импортированные классы
//цикл по названиям импортированных элементов
f i= 1 : 1 :$L(p2,",") d
. s element=$P(p2,",",i)
. //пропускаем всё кроме классов
. q:$P(element,".",$L(element,".")'="cls")
. s ok = $system.OBJ.MakeClassDeployed($P(element,".",1,$L(element,".")-1))
. if '+ok w $$GetOneErrorText^%apiOBJ(ok, 1 ),!
q 1
}
pkzip25 бесплатен если вы не используете его в коммерческих целях. По своей зарплате и оплате подработки я считаю, что моё программирование это хобби, а не коммерция.
В итоге получается следующее (у себя я эти методы вставил в класс User.Test).
На своей машине я делаю класс и экспортирую его
1.
2.
3.
4.
5.
PTK7>w ##class(User.Test).Export("User.Test2.cls")
Экспорт в XML начался в 03 / 01 / 2010 15 : 26 : 43
Экспортируемый класс: User.Test2
Эскпорт завершился успешно.
Затем как бы сажусь за клиентскую машину а реально просто переключаю область и импортирую.
1.
w ##class(User.Test).Import("c:\ExportCache.zip")
По моему классно.
