Lazarus stream read error

Начиная с какого-то транка лазаря при запуске программы вылетает ошибка Stream read error
Ссылается на процедуру

Код: Выделить всё

procedure TRxVersionInfo.DoVersionInfo(V: TVersionResource);
var
  i,j:integer;
begin
  for i:=0 to V.StringFileInfo.Count-1 do
  begin
    for j:=0 to V.StringFileInfo[i].Count-1 do
      FValues.Values[V.StringFileInfo[i].Keys[j]]:=SysToUTF8(V.StringFileInfo[i].ValuesByIndex[j]);
  end;
end;

Если внутренность процедуры закомментарить, то программа нормально стартует, но версию свою есссссссно не кажет.
Такая же бяка и с примером из папки demos.

Методом быстрого художественного тыка —
если в параметрах проекта — Сведения о версии — Comments есть русские символы, то номер версии не выводится —
B CompanyName кириллица — stream read error

Убрал из проекта все, кроме FileVersion — взлетело

Lazarus 1.9.0 r56180 FPC 3.1.1 i386-win32-win32/win64

Всё работает

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  if RxVersionInfo1.Valid then
  begin
    Memo1.Lines.Add('FileName = ' + RxVersionInfo1.FileName);
    Memo1.Lines.Add('FileLongVersion = '+RxVersionInfo1.FileLongVersion);
    Memo1.Lines.Add('ProductLongVersion = '+RxVersionInfo1.ProductLongVersion);
    Memo1.Lines.Add('VersionLanguage = '+RxVersionInfo1.VersionLanguage);
    Memo1.Lines.Add('VersionCharSet = '+RxVersionInfo1.VersionCharSet);
    Memo1.Lines.Add('VersionNum = '+RxVersionInfo1.VersionNum.ToString);
    Memo1.Lines.Add('Comments = '+RxVersionInfo1.Comments);
    Memo1.Lines.Add('CompanyName = '+RxVersionInfo1.CompanyName);
    Memo1.Lines.Add('FileDescription = '+RxVersionInfo1.FileDescription);
    Memo1.Lines.Add('FileVersion = '+RxVersionInfo1.FileVersion);
    Memo1.Lines.Add('InternalName = '+RxVersionInfo1.InternalName);
    Memo1.Lines.Add('LegalCopyright = '+RxVersionInfo1.LegalCopyright);
    Memo1.Lines.Add('LegalTrademarks = '+RxVersionInfo1.LegalTrademarks);
    Memo1.Lines.Add('OriginalFilename = '+RxVersionInfo1.OriginalFilename);
    Memo1.Lines.Add('ProductVersion = '+RxVersionInfo1.ProductVersion);
    Memo1.Lines.Add('ProductName = '+RxVersionInfo1.ProductName);
    Memo1.Lines.Add('SpecialBuild = '+RxVersionInfo1.SpecialBuild);
    Memo1.Lines.Add('PrivateBuild = '+RxVersionInfo1.PrivateBuild);
  end
  else
    Memo1.Lines.Add('Ошибка чтения');
end;     

Даже на пустом проекте (с одной строкой)

Код: Выделить всё

Label1.Caption:=RxVersioninfo1.CompanyName;

в конце выводится квадрат
На незаполненном поле — только квадрат….Это касается и, к примеру, FileVersion…

Все транковое — Rx svn 6050
Lazarus 1.9.0 r56244 FPC 3.1.1 i386-win32-win32/win64

…
Блин, это почему-то только на ХР… на Вынь7 все корректно

• 
• Dyaka
• Участник
• Неактивен

• На форуме с 29 марта 2021
• Сообщений: 5

Тема: Ошибка Stream Read Error

Добрый день! Не нашел решения проблемы по данному вопросу. При входе в программу и выполнении любого действия у пользователя вылетает ошибка Stream read error. У остальных пользователей все нормально. Переустановка не помогает.

• 
• Олег Зырянов
• Технический руководитель
• Неактивен

• Откуда: Новосибирск
• На форуме с 10 декабря 2008
• Сообщений: 4,183

Re: Ошибка Stream Read Error

• 
• Dyaka
• Участник
• Неактивен

• На форуме с 29 марта 2021
• Сообщений: 5

Re: Ошибка Stream Read Error

• 
• Олег Зырянов
• Технический руководитель
• Неактивен

• Откуда: Новосибирск
• На форуме с 10 декабря 2008
• Сообщений: 4,183

Re: Ошибка Stream Read Error

А можно точную версию TechnologiCS , и более подробное описание того что просходит, послеlовательно по шагам.
В идеале чтобы шаги эти повторялись, а не были случайными. То есть делаем — ошибка. Еще раз делаем — та же ошибка. Перезапустили TCS, повторяем -снова ошибка эта.

• 
• Dyaka
• Участник
• Неактивен

• На форуме с 29 марта 2021
• Сообщений: 5

Re: Ошибка Stream Read Error

• 
• Олег Зырянов
• Технический руководитель
• Неактивен

• Откуда: Новосибирск
• На форуме с 10 декабря 2008
• Сообщений: 4,183

Re: Ошибка Stream Read Error

• 
• Dyaka
• Участник
• Неактивен

• На форуме с 29 марта 2021
• Сообщений: 5

Re: Ошибка Stream Read Error

• 
• Олег Зырянов
• Технический руководитель
• Неактивен

• Откуда: Новосибирск
• На форуме с 10 декабря 2008
• Сообщений: 4,183

Re: Ошибка Stream Read Error

• 
• Dyaka
• Участник
• Неактивен

• На форуме с 29 марта 2021
• Сообщений: 5

Re: Ошибка Stream Read Error

• 
• Олег Зырянов
• Технический руководитель
• Неактивен

• Откуда: Новосибирск
• На форуме с 10 декабря 2008
• Сообщений: 4,183

Re: Ошибка Stream Read Error

I’m getting this error message under heavy load. Here is code abstract and message from my error log.
I tried everything I could think of. Any suggestion would be greatly appreciated.

Procedure tCacheInMemory.StreamValue(Name: String; IgnoreCase: Boolean; Var Stream:     TStringStream);
Var
  i: Integer;
Begin
  i := 0;
  Try
    If Not active Then
      exit;
    arrayLock.BeginRead;
    Try
      i := Search(Name);
      If i > -1 Then Begin
        If fItems[i].value = Nil Then
          exit;
        fItems[i].value.Position := 0;
        Stream.Position := 0;
        Stream.CopyFrom(fItems[i].value, fItems[i].value.Size);
      End;
    Finally
      arrayLock.EndRead;
    End;
  Except { ...execution jumps to here }
    On E: Exception Do Begin
      x.xLogError('LogErrorCacheInMemory.txt', 'StreamValue:' + E.Message + ' ItemsCount:' + IntToStr( High(fItems)) + 'Memory:' + IntToStr(x.GetMemoryInfoMemory) + endLn + 'StreamSize : ' + IntToStr(fItems[i].value.Size) + ' i=' + IntToStr(i) + 'Name: ' + Name);
      Clear;
    End
  End;
End;

Log Entries:

 3/10/2011 10:52:59 AM: StreamValue:Stream read error ItemsCount:7562 Memory:240816
   StreamSize : 43 i=7506 Name: \xxxxxxxxWebRoot\images1x1.gif
3/10/2011 12:39:14 PM: StreamValue:Stream read error ItemsCount:10172 Memory:345808
   StreamSize : 849 i=10108 Name: \xxxxxxxxWebRoot\cssscreen.add.css
3/10/2011 3:45:29 PM: StreamValue:Stream read error ItemsCount:11200 Memory:425464
   StreamSize : 3743 i=11198 Name: \xxxxxxxxWebRoot\JSArtWeb.js

P.S.

arrayLock: TMultiReadExclusiveWriteSynchronizer;
 fItems: Array Of rCache;
Type
  rCache = Record
    Name: String;
    value: TStringStream;
    expired: TDateTime;
  End;

And calling function:

Function tCacheInMemory.CacheCheck(cName: String; Out BlobStream: TStringStream):   Boolean;
Begin
Result := False;
   If Not IfUseCache Then
      exit;
    BlobStream.SetSize(0);
    BlobStream.Size := 0;
    StreamValue(trim(cName), True, BlobStream);
    If BlobStream.Size > 0 Then
    Result := True;
End;

`