Работа с TFileStream виснет

[macomics]

cs12, вроде - это значит немножко беременна...

[cs12]

macomics, ну вот я оригинальный код вставил - это не попробовал? Или может я не догнал, что имеется в виду...

upd:попробовал через TStreamreader Readline - тоже работает так же проблемно, даже если файл каждую секунду считывать

[macomics]

Попробуйте вот это:

procedure TLog.ReadLog;
var
  hFile: LongInt;
  hMap: THandle;
  Text: PChar;
begin
  hFile := 0;
  hMap  := 0;
  if FileExists(LogName)
    then hFile := FileOpen(LogFile, fmOpenReadWrite or fmShareDenyNone)
    else hFile := FileCreate(LogFile);
  if hFile <> 0 then begin
    hMap := CreateFileMapping(hFile, nil, PAGE_READWRITE, 0, 0, nil);
    if hMap <> 0 then begin
      Text := MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0);
      if Text <> nil then begin
        sl.Text := Copy(Text, 1, Length(Text));
        UnMapViewOfFile(hMap);
      end;
      CloseHandle(hMap);
    end;
    CloseHandle(hFile);
  end;
  writeln('loaded');
end;

[cs12]

macomics, а он не может работать в UTF-8, да?

[cs12]

Фигня какая-то. Я перенёс finally с FreeAndNil(fs) в конец проедуры считывания, чтобы даже в случае ошибки она очищалась, поменял в основном потоке TThreadedQueue на TThreadList<T> и обернул в try ..except и почему-то всё работает как часы. Хотя except вообще не отрабатывает - ошибок нет. Помогла ли смена очереди на список - тоже хз. Сейчас всё работает через LoadFromStream. Что-то мне подсказывает, что проблема была в неоткрывшемся потоке fs, но ранее я запихивал его в бесконечный цикл с секундным ожиданием в случае ошибки и до тех пор, пока Assigned не вернёт true - не работало. Я так и не понял, в чём проблема.

В интернетах пишут, что до XE2 upd4 была какая-то проблема с PopItem у очередей, но у меня вообще delphi 11 (alexandria), одна из последних, а проблема была лет 10 назад. Кстати говоря, PopItem на пустой очереди в моей версии не возвращает ничего, даже если очередь пополняется, то есть просто поток зависает на ожидании. Может всё-таки ничего не исправили

[macomics]

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

macomics, а он не может работать в UTF-8, да?

cs12, так преобразуйте. Я же только пример привел. Можно вместо Copy написать функцию типа MultiByteToWideChar.

[cs12]

Проблема была (скорее всего) в том, что библиотека даже при явном использовании внутри себя отдельных потоков TTask не устанавливала многопотоковый режим. Вручную в begin/end добавил IsMultiThread := true - вроде помогло