Добрый день,
Ситуация :
есть 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
}
}
}
Что не так ? какие есть предложения ?
