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);