Проблемы и решения при записи событий в файл в Delphi и Pascal: иероглифы и замена файла

Delphi , Интернет и Сети , Браузер

Запись событий в файл в Delphi: проблемы с кодировкой и перезапись файла

При работе с файлами в Delphi и Pascal часто возникают вопросы, связанные с кодировкой и обработкой текста. Одной из таких проблем является неправильное отображение символов и замена содержимого файла. В данной статье мы рассмотрим, как решить эти проблемы на примере записи событий в файл, содержащий текст и метку времени.

Проблема: Отображение времени в виде китайских символов и замена содержимого файла

Разработчик столкнулся с проблемой, когда время в файле отображалось в виде китайских символов, и файл перезаписывался снова и снова, заменяя одну и ту же строку. Пример кода, который вызвал проблему:

uses sysUtils, classes;

function log: Boolean;
var
  fs: TFileStream;
  i : String;
  time : TDateTime;
begin
  i := 'Boss is dead!';
  time := now;
  try
    fs := TFileStream.Create('log.txt', fmCreate or fmOpenWrite);
    fs.Write(PChar(i + TimeToStr(time)), Length(i + TimeToStr(time)));
    fs.Write(PChar(i), Length(i)); // Эта строка не нужна и вызывает ошибку
  finally
    fs.Free;
  end;
end;

Решение проблемы

Обычно, если текст отображается как китайские символы, это означает, что ANSI текст интерпретируется как UTF-16. В данном случае, скорее всего, используется Delphi без поддержки Unicode. Для решения проблемы следует использовать THandleStream и вызвать CreateFile напрямую, чтобы открыть существующий файл для записи или создать новый, если его нет. В новых версиях Delphi можно использовать TFile.Open, который предоставляет функционал OPEN_ALWAYS.

Для записи UTF-16 текста можно использовать WideString. Пример кода с использованием WideString:

var
  ws: WideString;
...
Stream.Seek(0, soFromEnd);
ws := TimeToStr(Now) + sLineBreak;
Stream.WriteBuffer(PWideChar(ws)^, SizeOf(WideChar)*Length(ws));

В случае использования Delphi с поддержкой Unicode, запись текста будет похожей:

var
  s: string;
...
Stream.Seek(0, soFromEnd);
s := TimeToStr(Now) + sLineBreak;
Stream.WriteBuffer(PWideChar(s)^, SizeOf(WideChar)*Length(s));

Для добавления текста в конец файла, код может выглядеть следующим образом:

var
  hFile: THandle;
...
hFile := CreateFile(
  PChar(LogFileName),
  GENERIC_WRITE,
  FILE_SHARE_READ,
  nil,
  OPEN_ALWAYS,
  FILE_ATTRIBUTE_NORMAL,
  0
);
Win32Check(hFile <> INVALID_HANDLE_VALUE);
Try
  Stream := THandleStream.Create(hFile);
  Try
    ... код записи в поток
  Finally
    Stream.Free;
  End;
Finally
  CloseHandle(hFile);
End;

Альтернативные подходы

Можно использовать более высокоуровневые обёртки, предоставляемые фреймворком, такие как TFile.AppendAllText. Это решение является кросс-платформенным и, скорее всего, будет работать в будущем:

uses System.IoUtils;
...
TFile.AppendAllText(FileName, LogLine);

При использовании AnsiString и форматировании даты с использованием только цифр и знаков, можно избежать проблем с кодировкой:

var s: AnsiString;
...
s := FormatDateTime('yyyy-mm-dd hh:nn:ss', now);
fs.Write(s[1], Length(s));

Заключение

Важно помнить, что при работе с файлами и текстовыми данными важно учитывать кодировку и правильно обрабатывать потоки данных. В зависимости от версии Delphi и используемых библиотек, подход к решению проблемы может отличаться. Следует также всегда указывать версию используемого Delphi и четко формулировать цели, чтобы получить наиболее точные рекомендации.

Создано по материалам из источника по ссылке.

Разработчик сталкивается с проблемами при записи событий в файл в Delphi, включая неправильное отображение символов из-за ошибок в кодировке и постоянную перезапись файла.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::