Добрый день,

Ситуация :

есть xml файл, с фотографиями закодированными в base64 , каждая фотография хранится в своем node



<tarapmsg:AttachedDocument>
<tarapmsg:AttachedDocument xmlns:s02=" http://www.belvis.be/xsd/v1/TarapDataTypes">
<s02:DocumentNr>00199936eebea03880da000F</s02:DocumentNr>
<s02:DocumentName>Winter</s02:DocumentName>
<s02:DocumentData>/9jV06n1HEx ... Ky0lH0Pmu6h//9k=</s02:DocumentData>
<s02:DocumentType>0001.01</s02:DocumentType>
<s02:DocumentNameExtention>jpg</s02:DocumentNameExtention>
</tarapmsg:AttachedDocument>
<tarapmsg:AttachedDocument xmlns:s02=" http://www.belvis.be/xsd/v1/TarapDataTypes">
<s02:DocumentNr>00199936eebed68730900271</s02:DocumentNr>
<s02:DocumentName>Images</s02:DocumentName>
<s02:DocumentData>yZWYN ... JSVFT0Y=</s02:DocumentData>
<s02:DocumentType>0001.01</s02:DocumentType>
<s02:DocumentNameExtention>pdf</s02:DocumentNameExtention>
</tarapmsg:AttachedDocument>
</tarapmsg:AttachedDocument>

для удобства сократил поле с елементом содержащим фото в base64 (<s02:DocumentData>)

Проблема:

пробовал парсить с помощью TextReadera, елемент разбивается на несколько секций которые потом просто копируются в stream a дальше просто декодирую его c помощью ##class(%SYSTEM.Encryption).Base64Decode(аргумент) и потом пытаюсь просто сохранить в файл, НО

после того как загружаю stream он по длине почему=то в два раза короче чем сами данные в xml файле и на выходе у меня файл содержащий чуть меньше половины фотографии да и к тому же мазайкой

вот сам класс который парсит

ClassMethod getData(PathName As %String) [ SqlName = GetData, SqlProc ]
{
s stream=##class(%Library.GlobalBinaryStream).%New()
s status=##class(%XML.TextReader).ParseFile(PathName,.textreader)
if $$$ISERR(status) do $System.Status.DisplayError(status) quit
while textreader.Read() {
if (textreader.LocalName = "DocumentData") && (textreader.NodeType = "element") {
while (textreader.Read()) && (textreader.NodeType '= "endelement") {
if (textreader.Value'="") && ($l(textreader.Value)>0) {
d stream.Write(textreader.Value)
}
}
d stream.Rewind()
s FileNameSave="C:\tmp\"_Filename_".zzz"
s file=##class(%FileBinaryStream).%New()
s file.Filename=FileNameSave
While 'stream.AtEnd {
set len = 4000
Set line=stream.Read(.len)
if (len>0) {
s lineout=##class(%SYSTEM.Encryption).Base64Decode(line)
d file.Write(lineout)
}
}
d file.%Save()
s Filename = ""
s FileNameSave = ""
s stream = ""
q
}
}
}

Что не так ? какие есть предложения ?

DAiMor,

Xml файлы генерируются в COS,

данные записаны одной строкой не содержат переводов строк, проверял в делфи конвертирова обратно и получал файл

а яснее можно про обрамление в сдата ?

Блок А.Н.,

пробовал и с %XML.Reader он по моему вообще с нодами содержащими больше 32кб работать не умеет, GetText(.tmp) метод возвращает только стринг.

krvsa,

в спец контейнер совать не могу потому что этот xml файл будут читать еще вне Cache, какие еще будут предложения ?

Спасибо за советы и подсказки,

нашел еще один выход, воспользовался Sax parser-ом , создал свой ContentHanlder указал в нем складывать данные в stream. и включил этот handler в метод ParseFile Sax.parser-a и получил свой stream object содержащий полные данные.

Теперь, как эффективней избавиться от переводов строк и пробелов , на случай если данные base64 все-таки будут содержать их ?