VPF::ошибка access violation - Форум программистов

northener

Дата 19.11.2011, 00:26 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(gl42 @ 19.11.2011, 00:07

)

Возможно, появилась когда стала использовать WMI.

А кто тут "она"? Ваша программа?
Ещё раз предложу вам использовать готовые инструменты для поиска причин ошибок!

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

gl42

Дата 19.11.2011, 00:50 (ссылка)

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

Загрузка ...

Новичок

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

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

ошибка AV в модуле rtl70.bpl
Вы настойчивы.) Ок. Не объясните, как пользоваться вашей "эврикой"?

Lols

Дата 19.11.2011, 01:47 (ссылка)

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

Загрузка ...

Шустрый

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

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

У меня при аналогичной ошибке Эврика ничего не выявила...

Keeper89

Дата 19.11.2011, 01:56 (ссылка)

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

Загрузка ...

Эксперт

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

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

gl42, насчет WMI. Попробуйте заменить

Код


Writeln(Format('ProductName: %s',[string(FWbemObject.ProductName)]));

на

Код


Writeln(Format('ProductName: %s',[VarToStr(FWbemObject.ProductName)]));

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

gl42

Дата 19.11.2011, 02:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Keeper89 @ 19.11.2011, 01:56

)

gl42, насчет WMI. Попробуйте заменить
код Pascal/Delphi
1:
Writeln(Format('ProductName: %s',[string(FWbemObject.ProductName)]));

на
код Pascal/Delphi
1:
Writeln(Format('ProductName: %s',[VarToStr(FWbemObject.ProductName)]));

я вывожу в memo. без переводов. и тип же ProductName - string.

northener

Дата 19.11.2011, 02:15 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(gl42 @ 19.11.2011, 00:50

)

Вы настойчивы.) Ок. Не объясните, как пользоваться вашей "эврикой"?

Ну во-первых. Эврика не моя. Но я её использую. И она мне много где помогла.
Как пользоваться? Просто скачать и установить!

Цитата(Lols @ 19.11.2011, 01:47

)

У меня при аналогичной ошибке Эврика ничего не выявила...

В суппорт Эврики обращались?

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Keeper89

Дата 19.11.2011, 02:41 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(gl42 @ 19.11.2011, 02:04

)

я вывожу в memo. без переводов. и тип же ProductName - string.

Как выводите, покажите

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

gl42

Дата 19.11.2011, 02:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


      while oEnum.Next(1, FWbemObject, iValue) = 0 do         
      begin
        Memo2.Lines.Add('Название: '+FWbemObject.ProductName);
        Memo2.Lines.Add('Производитель: '+FWbemObject.Manufacturer);       
        VarClear(FWbemObject);
      end;

northener

Дата 19.11.2011, 09:06 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(gl42 @ 19.11.2011, 00:50

)

Вы настойчивы.) Ок. Не объясните, как пользоваться вашей "эврикой"?

Вот тут всё максимально подробно описано.

Кстати. По поводу AV рекомендую прочитать эту статью
Пардон. Я имел в виду эту статью. Но это к лучшему! Будет время - прочитайте обе статьи. Очень полезно!

Это сообщение отредактировал(а) northener - 19.11.2011, 09:29

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Keeper89

Дата 19.11.2011, 09:51 (ссылка)

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

Загрузка ...

Эксперт

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

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

gl42, в своем же коде измените вывод на VarToStr.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

gl42

Дата 19.11.2011, 11:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(northener @ 19.11.2011, 09:06

)

Кстати. По поводу AV рекомендую прочитать эту статью
Пардон. Я имел в виду эту статью. Но это к лучшему! Будет время - прочитайте обе статьи. Очень полезно!

эти две статьи прочитала еще до того как обратиться на форум.

Добавлено через 40 секунд

Цитата(Keeper89 @ 19.11.2011, 09:51

)

gl42, в своем же коде измените вывод на VarToStr.

Это изменит что-нибудь?)

Keeper89

Дата 19.11.2011, 12:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

gl42, это правильнее. А изменит или нет - посмотрите smile

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

gl42

Дата 19.11.2011, 13:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Keeper89, ок
но ошибкам это не помогло)

northener

Дата 19.11.2011, 13:05 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(gl42 @ 19.11.2011, 11:24

)

эти две статьи прочитала еще до того как обратиться на форум.

Тогда я не пойму ваше нежелание использовать готовые инструменты для поиска причины AV!
Ведь AV - это самая плохая бяка! Любое исключение - либо оно есть, либо его нет. Кроме AV.
Его присутствие означает, что есть ошибка работы с памятью. Его отсутствие не означает ровным счётом ничего!

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

gl42

Дата 19.11.2011, 13:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(northener @ 19.11.2011, 13:05

)

Тогда я не пойму ваше нежелание использовать готовые инструменты для поиска причины AV!

Я установила EurekaLog, посмотрела видеоурок, прочла первую ссылку. но мне все равно не совсем понятно как она ловит AV если она появляется 1) периодически, 2) не в рабочей программе, а всего лишь иногда при сохранении проекта либо при отладке программы 3) при чем единожды (то есть при следующем нажатии Build'a она больше не появляется). в запущенном проекте никаких исключений не возникает.

Это сообщение отредактировал(а) gl42 - 19.11.2011, 13:24

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