2015-05-06 12:42:48

Краткое описание :

Нужна функция для чтения из XML текста объемом более 255 символов

Описание :

Общие вопросы по компонентам C_*

Что измененно :

Нужна функция для чтения из XML текста объемом более 255
символов

Как измененно :

Реализована функция для чтения из XML значения атрибута в виде
текста объемом более 255 символов
// Чтение NodeValue для узла "Attribute" (в PMemoryStream)
Function XMLDOMAttribute_get_NodeValueEx(
ahSource: longint; // адрес указателя на XMLDOMAttribute
asValue: longint // значение атрибута (ссылка на PMemoryStream)
): boolean; // True, если успешно

Пример использования:
var pMS : LongInt; pMS := MemoryStream_Init;
do
{
if (not XMLDOMAttribute_get_NodeValueEx(xmlAttr, pMS) )
{
sLastError := 'Не удалось прочитать значение атрибута';
FpLog('LoadData: '+sLastError);
Break;
}

var Npp : LongInt; Npp := 0;
if (not MemoryStream_Seek(pMS, 0) )
{
sLastError := 'Не удалось установить 0-ю позицию в потоке';
FpLog('LoadData: '+sLastError);
Break;
}
do
{
Npp++;
if (Npp>3)
{ Break; }

var sTmp : string; sTmp := '';
if (not MemoryStream_Read(pMS, 255, sTmp) )
{ Break; }
if (sTmp = '')
{ Break; }

Set arrValue[Npp] := sTmp;
}
while True;
}
while False;
MemoryStream_Done(pMS);