Я сейчас не на работе, да и рабочий класс смысла нет присылать, сделал миникласс, смысл тот же.
Класс данных
1.
2.
3.
4.
Class Test.Reply Extends (%XML.Adaptor,%RegisteredObject)
{
Property Data as %Binary;
}
Класс запросов:
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.
Class Test.Remote Extends %CSP.Page
{
Parameter CONTENTTYPE = "text/xml";
ClassMethod OnPage() As %Status
{
s key=%request.Get("key")
s reply=##class(Test.Reply).%New()
//генерим всякую чушь
while (key>$l(reply.Data))
{s reply.Data=reply.Data_$l(reply.Data)
}
s writer=##class(%XML.Writer).%New()
d writer.OutputToDevice()
s writer.Charset="windows-1251"
d writer.StartDocument()
d writer.RootObject(reply)
d writer.EndDocument()
q 1
}
ClassMethod GetData(IP as %String,NS as %String, Key as %String)
{
s reader=##class(%XML.Reader).%New()
s url="http://"_IP_"/"_NS_"/Test.Remote.cls?key="_Key
w !,url
s st=reader.OpenURL(url)
w !,"Статус ридера:",##class(%Status).LogicalToOdbc(st)
d reader.CorrelateRoot("Test.Reply")
d reader.Next(.reply,.st)
w !,"Статус парсер:",##class(%Status).LogicalToOdbc(st)
w:$g(reply)'="" !,"Полученные данные:",reply.Data
}
}
Результаты запусков (третий параметр позволяет регулировать длину данных в ответе)
Удачный:
авторUSER>d ##class(Test.Remote).GetData("127.0.0.1","csp/user",50)
http://127.0.0.1/csp/user/Test.Remote.cls?key=50
Статус ридера:1
Статус парсер:1
Полученные данные:01234567891012141618202224262830323436384042444648
Неудачный:
авторUSER>d ##class(Test.Remote).GetData("127.0.0.1","csp/user",100)
http://127.0.0.1/csp/user/Test.Remote.cls?key=100
Статус ридера:1
Статус парсер:ОШИБКА #6232: Проверка типа данных завершилась неудачей для тега, Data (заканчивается в строке 2 символ 14), со значением: MDEyMzQ1Njc4OTEwMTIxNDE2MTgyMDIyMjQyNjI4MzAzMjM0MzYzODQwNDI0NDQ2NDg1MDUyNTQ1
NjU4NjA2MjY0NjY2ODcwNzI3NDc2Nzg4MDgyODQ4Njg4OTA5Mjk0OTY5OA==
Полученные данные:
Сам XML-документ выглядит так:
автор<?xml version="1.0" encoding="windows-1251" ?>
<Reply><Data>MDEyMzQ1Njc4OTEwMTIxNDE2MTgyMDIyMjQyNjI4MzAzMjM0MzYzODQwNDI0NDQ2NDg1MDUyNTQ1 NjU4NjA2MjY0NjY2ODcwNzI3NDc2Nzg4MDgyODQ4Njg4OTA5Mjk0OTY5ODEwMDEwMzEwNjEwOTEx MjExNTExODEyMTEyNDEyNzEzMDEzMzEzNjEzOTE0MjE0NTE0ODE1MTE1NDE1NzE2MDE2MzE2NjE2 OTE3MjE3NTE3ODE4MTE4NDE4NzE5MDE5MzE5NjE5OQ==</Data></Reply>
Переводы строк именно так и есть, и перевод строки внутри элемента вызывает затыкание.
Переводится при длине исходных данных больше 50 символов.
