TStreamReader и метод ReadBlock

[Heneken87]

Ув. форумчане, направьте в нужную сторону. Проблема вроде и есть, и вроде ее нет. Но хочется разобраться.
Собрал свой XML парсер, все работает замечательно для XML оч. больших объемов. Но во всем этом мёде, есть ложечка.......
При загрузке одного файла никаких сбоев не наблюдаю, но при цикличном Load двух и более файлов
в этом месте:

  SetLength(FChildBlock,FSizeBlock);
  ReadBlock(FChildBlock,0,FSizeBlock);

наблюдаю потерю "чаров" при размере блока 100 000, при размере 10 000 потерь нет. Вот чилд XML:

<ZAP N_ZAP="1129">
<PACIENT DR="1982-08-24"/>
<SLUCH DATE_1="2017-02-16" DS1="E03" LPU="720037" RSLT="314" GOSP_TYPE="3" PVT="0" AP_TYPE="П"/>
<EKMP NO_PROBLEM="1" TYPE="0"/>
</ZAP>

А это я получаю в FChildBlock:

<ZAP N_ZAP="1129">
<PACIENT DR="1982-08-24"/>
<SLUCH DATE_1="2017-02"  -<---- ХДЕ ОСТАЛЬНОЕ? оО/>
<EKMP NO_PROBLEM="1" TYPE="0"/>
</ZAP>

......естественно символов больше, но пример для понимания аказии.
Код перепроверил, все очищаю и уничтожаю. Загрузка XML прописана следующим образом:

for I := 0 to FFileBox.Count - 1 do
  begin
    FXmlReads := TXmlReader.Create(FFileBox[i],TEncoding.Default);
    FXmlReads.BaseStream.Position := 0;
    FXmlReads.DiscardBufferedData;
    while FXmlReads.LastChild = False do
    begin
      Inc(HH);
      Application.ProcessMessages;
      FXmlReads.WriteChild('ZAP',ReadSize);
      if HH mod 1000 = 0  then
      begin
        LabelInfo.Caption := (' - Чтение файла ' + IntToStr(I + 1) + ' из ' + IntToStr(FFileBox.Count) + '. Выполнено: ' + FormatFloat('0',(FXmlReads.Position / FXmlReads.BaseStream.Size) * 100) + ' %');
        LabelInfo.Refresh;
      end;
    end;
  FXmlReads.CloseFile;
  FreeAndNil(FXmlReads);
  end;

P/S: TXmlReader = class (TStreamReader)
ReadSize := 100 000, при 10 000 все ОК

[Serge_Bliznykov]

во-первых, Вы код, где идёт чтение и работа с FChildBlock не выложили.
к чему выложенный кусок кода - мне непонятно.

а во-вторых,

Сообщение от Heneken87

А это я получаю в FChildBlock:

это какая-то нереальная фантастика.
не может пропасть часть символов внутри. может пропасть в начале, может — в конце. Но не внутри!

Скажите, после того, как Вы прочитали в FChildBlock Вы выполняете процедуру парсинга? Очень вероятно, что это именно она косячит.

[Heneken87]

Спасибо за быстрый ответ.

Сообщение от Serge_Bliznykov

во-первых, Вы код, где идёт чтение и работа с FChildBlock не выложили.

Не вложил, чтобы не городить код. Причина могла быть в чем то другом.

Сообщение от Serge_Bliznykov

Скажите, после того, как Вы прочитали в FChildBlock Вы выполняете процедуру парсинга? Очень вероятно, что это именно она косячит.

не исключено. Я пока не могу найти в чем дефект. Когда чтение из одного файла, этой проблемы нет.

 .......
  SetLength(FChildBlock,FSizeBlock);
  ReadBlock(FChildBlock,0,FSizeBlock);
  TextAll := (PChar(FChildBlock));
  StartC :=  Pos('<' + ChildName + ' ',TextAll);
  EndC :=  Pos('</' + ChildName + '>',TextAll);
  if (StartC = 0) and (EndC = 0) then
  LastChild := True
  else  LastChild := False;
  if (StartC <> 0) and (EndC = 0) then
  begin
    ShowMessage('В загружаемом блоке не найден конец элемента ' + ChildName + ' попробуйте увеличить блок чтения');
    LastChild := True;
    Exit;
  end;
  while (EndC <> 0) and (StartC <> 0)  do
  begin
    TextBlock := Copy(TextAll,StartC, EndC - StartC + Length(ChildName) + 3);
    Insert(TChild.Create(ChildName,TextBlock,Self),FChilds,GetCountChild);
    TextAll := Copy(TextAll,EndC + Length(ChildName) + 3,Length(TextAll));
    LastPosition := LastPosition + EndC + Length(ChildName) + 2;  <---- Это возникает скорее всего тут. Неясно только почему это только при работе с множеством файлов. 
    StartC := 0;
    EndC := 0;
    StartC :=  Pos('<' + ChildName + ' ',TextAll);
    EndC :=  Pos('</' + ChildName + '>',TextAll);
    if (StartC <> 0) and (EndC = 0) then
    begin
      LastPosition := LastPosition + StartC - 1;
      Break;
    end;
  end;

[Serge_Bliznykov]

LastPosition обнулять не забываете?

а так - раз ситуация повторяется, тогда моделируйте ситуацию, когда возникает глюк, ставьте точку останова и смотрите в отладчике, что не так.
вариантов много. например, Вы используете переменные типа byte, word или smallint для позиций.
а может в логике есть небольшой изъян. Без отладчика и понимания алгоритма - трудно сразу сказать.

[Heneken87]

Сообщение от Serge_Bliznykov

LastPosition обнулять не забываете?

нет конечно не забываю) Чтение файла:
1- Создал класс TXmlReader
2- Установил дефолты
3- Пропарсил
4- Закрыл файл
5 - Уничтожил класс

стоит эти пункты в цикл завернуть..приехали.
Если честно там и с отладчиком не просто=) Методы рекурсивные, XML любой вложенности кушает. На простых XML я не могу отловить такую ошибку,а на сложных может крыша съехать))) Использую Int64 для позиций. Через отладчик, как раз и нашел что в

  SetLength(FChildBlock,FSizeBlock);
  ReadBlock(FChildBlock,0,FSizeBlock);
  TextAll := (PChar(FChildBlock));

TextAll получаю кастрированый текст (( А золдея с ножичком не видать))
LastPosition это TStremReader.Position, хотя вы поняли что это и зачем это

[Heneken87]

Сообщение от Serge_Bliznykov

Без отладчика и понимания алгоритма - трудно сразу сказать.

По алгоритму, чей листинг выложен. Метод ищет в переданном тексте начало и конец требуемого чилдика. Нашел, вырезал весь чилдик, перешел к следующему и так пока не вырежет все блоки. .... МБ проблема в переносе строки может крыться..... если да, тогда я вообще не понимаю как это зависит от кол-ва файлов...

[Slym]

ReadBlock- функция
SetLength(FChildBlock,FSizeBlock);
TextAll :=string.Create(FChildBlock,0,ReadB lock(FChildBlock,FSizeBlock))

[Heneken87]

Сообщение от Slym

ReadBlock- функция
SetLength(FChildBlock,FSizeBlock);
TextAll :=string.Create(FChildBlock,0,ReadB lock(FChildBlock,FSizeBlock))

Спасибо, помогло. Вопрос закрыт.