VPF::screen.Cursor := crDefault -> AV Access Violation - Форум программистов

Akella

Дата 28.9.2011, 13:48 (ссылка)

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

Загрузка ...

Творец

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

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

Почему-то вдруг screen.Cursor := crDefault; вызывает Access Violation

Ничего военного в коде нет.

Код


screen.Cursor := crHourGlass;
  try

    Цикл по таблице, скачивание инфы с сайта с помощью компонент ICS, 
finally

  screen.Cursor := crDefault;  
end;

пробовал пройтись отладчиком ,но сразу попадаю в модуль system, в код где куча asm инструкций, там черт ногу сломит %)

AV:

Цитата

Access violation at address 00B30666 in module 'xxxxxxxxxxx.exe'. Read of address 00000000.

Frees

Дата 28.9.2011, 14:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

а если

Код


Forms.Screen.Cursor := crDefault;

Screen случаем не nil?

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

Кольцов Виктор Владимирович

Akella

Дата 28.9.2011, 14:06 (ссылка)

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

Загрузка ...

Творец

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

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

Цитата(Frees @ 28.9.2011, 14:03

)

Screen случаем не nil?

нет

Добавлено через 5 минут и 20 секунд

Цитата(Frees @ 28.9.2011, 14:03

)

Forms.Screen.Cursor := crDefault;

не помогает

Добавлено через 5 минут и 27 секунд
user posted image

Добавлено через 6 минут и 53 секунды
Кстати курсор мышки принимает нормальный вид. Наверняка AV происходит уже в недрах VCL после изменения курсора.

Frees

Дата 28.9.2011, 14:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

а если все между try finally закоментить заработает?

Добавлено через 1 минуту и 46 секунд
а этот код у тебя не в потоке случаем?

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

Кольцов Виктор Владимирович

Akella

Дата 28.9.2011, 14:24 (ссылка)

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

Загрузка ...

Творец

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

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

Ошибка где-то в другом месте. А именно между finally и end %)

Код


      finally
        EndUpdate;
//        forms.screen.Cursor := crDefault;
      end;

Добавлено через 5 минут и 16 секунд
у меня в finally уже даже нет ничего О_о

Akella

Дата 28.9.2011, 14:40 (ссылка)

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

Загрузка ...

Творец

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

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

это в мну где-то напартачено, поспешил и тему создал smile

Akella

Дата 28.9.2011, 16:42 (ссылка)

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

Загрузка ...

Творец

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

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

Да, баг был у меня. странно что AV вываливалось именно между finnaly/end

Frees

Дата 28.9.2011, 16:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

а флажок Use debug DCUs стоит? или может оптимизация портит....

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

Кольцов Виктор Владимирович

Akella

Дата 29.9.2011, 09:34 (ссылка)

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

Загрузка ...

Творец

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

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

да, наверное

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