Вопрос по TFileStream

← →
DJ Kondakov (2008-06-11 08:43) [0]

Здравствуйте! Делаю глобальное протоколирование Искючительных Ситуаций с помощью след. процедур:

procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
logexception(e);
end;

procedure tform1.logexception(exc:exception);
var
fs:tfilestream;
logname, buf: string;
m:word;
begin
logname:=extractfilepath(paramstr(0))+"errors.log";
if fileexists(logname) then m:=fmopenreadwrite else m:=fmcreate;
fs:=tfilestream.Create(logname,m);
fs.Seek(0,sofromend);
buf:=datetimetostr(now)+" - "+exc.classname+":"+exc.message;
fs.Write(buf,length(buf));
fs.Free;
showexceptionmessage(exc);
end;

procedure tform1.showexceptionmessage(ex:exception);
begin
showmessage("Произошла фатальная ошибка "+ex.ClassName+#13#10+ex.Message);
end;

В файле Errors.log получаю записи вроде

h рЬ8с Зqц Гц ёш Ђq {"ц ёш З"ц 8с Ђ( ЁЬ8с Зqц Гц ёш Ђq {"ц ёш З"ц 8с Ђh рЬ8с Зqц Гц ёш Ђq {"ц ёш З"ц 8с Ђ

А должно быть:

<Дата и время возникновения> - <Имя ошибки>:<Сообщение об ошибке>

Что такое может быть?

← →
Поросенок Винни-Пух © (2008-06-11 08:53) [1]

неправильное значение первого параметра для write

← →
Slym © (2008-06-11 09:12) [2]

PChar(buf)^

← →
DJ Kondakov (2008-06-11 09:12) [3]

А какое там должно быть значение? Я где-то видел, что там используется переменная типа array of char, но это, по-моему, то же самое.

← →
DJ Kondakov (2008-06-11 09:13) [4]

Извиняюсь, страница долго грузилась...

← →
Anatoly Podgoretsky © (2008-06-11 09:17) [5]

> DJ Kondakov (11.06.2008 8:43:00) [0]

fs.Write(@buf[1], length(buf));

← →
Palladin © (2008-06-11 09:19) [6]

только без @

← →
Поросенок Винни-Пух © (2008-06-11 09:19) [7]

Должен быть адрес, а у тебя указатель.

← →
Anatoly Podgoretsky © (2008-06-11 09:22) [8]

> DJ Kondakov (11.06.2008 9:12:03) [3]

А в справке взглянуть?

← →
DJ Kondakov (2008-06-11 09:24) [9]

Написал, как Slym предложил - все заработало.

← →
DJ Kondakov (2008-06-11 09:24) [10]

Взглядывал - там все по-английски

а ты со словариком

← →
DJ Kondakov (2008-06-11 09:37) [12]

М-м-да... А русской справки ни у кого нет?

русская справка продается в магазинах в печатном виде

Вопрос по TFileStream Найти похожие ветки