Мапировать глобалы научился... А вот как мапировать данные класса со свойствами %FileBinaryStream?
Сделал класс
1.
2.
3.
4.
5.
6.
7.
8.
/// tmp
Class soi.data.tmp Extends %Persistent
{
/// test
Property test As %FileBinaryStream;
}
Потом программку
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
save
n
s file="\\ksa\box\tmp\t.jpg"
s of=##class(%File).%New(file)
d of.Open("RU")
s oc=##class(soi.data.tmp).%New()
d oc.test.CopyFrom(of)
d oc.%Save()
d of.Close()
k oc
k of
q
Запись прошла без ошибок и файл потом записался обратно без проблем
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
load
n
s file="\\ksa\box\tmp\test.jpj"
s oc=##class(soi.data.tmp).%OpenId(1)
s of=##class(%File).%New(file)
d of.Open("WNU")
d of.CopyFrom(oc.test)
d of.Close()
k oc
k of
q
Но глобала ^soi.data.tmpD я не обнаружил... Но в каталоге stream в соответствующей БД я обнаружил файл с данными...
Глобал появился только когда добавил обычное поле
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
/// tmp
Class soi.data.tmp Extends %Persistent
{
/// test
Property test As %FileBinaryStream;
/// str
Property str As %String;
}
и поменял программку
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.
test
load
n
s file="\\ksa\box\tmp\test"
s oc=##class(soi.data.tmp).%OpenId(3)
s file=file_"."_oc.str
s of=##class(%File).%New(file)
d of.Open("WNU")
d of.CopyFrom(oc.test)
d of.Close()
k oc
k of
q
save
n
s file="\\ksa\box\tmp\t.jpg"
s of=##class(%File).%New(file)
d of.Open("RU")
s oc=##class(soi.data.tmp).%New()
zw oc
s val=$re(file)
s val=$p(val,".")
s val=$re(val)
s oc.str=val
d oc.test.CopyFrom(of)
d oc.%Save()
d of.Close()
k oc
k of
q
Причём глобал отмапился в нужную мне БД... А вот "стрём" создался в текущей области.
Как теперь наладить мапирование "стрёмного потока" в нужную мне БД?
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
Cache for Windows (x86-32) 2009.1.3 (Build 704_0_9104) Mon Mar 8 2010 19:31:10 EST
