VPF::Ошибка, которая приводит к закрытию (2 скриншота)

DmitryHT

Дата 2.4.2008, 01:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 31.8.2007

Репутация: нет
Всего: нет

Собственно ошибка при выполнении некой функции FmtStr
Повидимому функция это системная, либо из какой-то процедуры smile

Прикрепил к посту скриншот с ошибкой FmtStr, надеюсь кто-нибудь сможет по нему помочь smile

Это сообщение отредактировал(а) DmitryHT - 2.4.2008, 01:45

Присоединённый файл ( Кол-во скачиваний: 27 )

error2.gif 38,36 Kb

ivan219

Дата 2.4.2008, 05:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

DmitryHT, лучшебы код прекрепил.

--------------------

Мой первый сайт и моя первая программа!!!!!

MetalFan

Дата 2.4.2008, 08:19 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

скорее всего это ошибка у тебя. а то, что валится FmtStr - это уже следствие...

--------------------

There are always someone smarter than you...

DmitryHT

Дата 2.4.2008, 10:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 31.8.2007

Репутация: нет
Всего: нет

Добавлено @ 10:29

Цитата

скорее всего это ошибка у тебя. а то, что валится FmtStr - это уже следствие...

повидимоу ошибка просиходит в потоке, но все потоки одинаковые.
причем не постоянно, а может даже произойти в 100-м потоке.

да и если ошибка в потоке, то обычно после этого поток (виснет, закрывается), а тут вываливается вся программа.

а кода слишком много...ко его знает, что показывать smile

Это сообщение отредактировал(а) DmitryHT - 2.4.2008, 10:30

Insert

Дата 2.4.2008, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1

Весь код не нужен, скинь процедуру где выпадает, а мы уже посмотрим.

--------------------

пьяный русский кодер практически непобедим

DmitryHT

Дата 2.4.2008, 11:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 31.8.2007

Репутация: нет
Всего: нет

Цитата

Весь код не нужен, скинь процедуру где выпадает, а мы уже посмотрим.

я бы сразу сделал именно так, но имени процедуры я не знаю
прога вылетает и Try ... Except её не спасает

MetalFan

Дата 2.4.2008, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

тогда спасет только отладка. а гадать тут нам смысла нет.

--------------------

There are always someone smarter than you...

DmitryHT

Дата 2.4.2008, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 31.8.2007

Репутация: нет
Всего: нет

Код


procedure TPagesDlg.MyExceptionHandler(Sender : TObject; E : Exception );
var log : TextFile;
begin
  AssignFile(log,'D:\log.txt');
  Reset(log);
  Writeln(log, 'ERROR: ' + E.Message);
  CloseFile(log);
end;

Код


procedure TPagesDlg.FormCreate(Sender: TObject);
begin
  Application.OnException:= MyExceptionHandler;
...
...

попробовал это, но не помогло...пустой файл

Цитата

тогда спасет только отладка. а гадать тут нам смысла нет.

а как лучше?
а нельзя в этом окне (на скриншоте) перейти к строкам кода, где эти байты генерятся, а то эти байты - не поймешь smile

bems

Дата 2.4.2008, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

DmitryHT, возьми в try-except код каждого потока.

--------------------

Обижено школьников: 8

lukas

Дата 2.4.2008, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Код


procedure FmtStr(var Result: string; const Format: string;
  const Args: array of const);
var
  Len, BufLen: Integer;
  Buffer: array[0..4095] of Char;
begin
  BufLen := SizeOf(Buffer);
  if Length(Format) < (sizeof(Buffer) - (sizeof(Buffer) div 4)) then
    Len := FormatBuf(Buffer, sizeof(Buffer) - 1, Pointer(Format)^, Length(Format), Args)
  else
  begin
    BufLen := Length(Format);
    Len := BufLen;
  end;
  if Len >= BufLen - 1 then
  begin
    while Len >= BufLen - 1 do
    begin
      Inc(BufLen, BufLen);
      Result := '';          // prevent copying of existing data, for speed
      SetLength(Result, BufLen);
      Len := FormatBuf(Pointer(Result)^, BufLen - 1, Pointer(Format)^,
      Length(Format), Args);
    end;
    SetLength(Result, Len);
  end
  else
    SetString(Result, Buffer, Len);
end;

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

DmitryHT

Дата 2.4.2008, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 31.8.2007

Репутация: нет
Всего: нет

Цитата

возьми в try-except код каждого потока.

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

нужно же дождаться очередного вылета

lukas, ну вот это даже не мной написанная процедура, как я могу повлиять на возникновение ошибок в ней smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »