| Вопрос: Что такое - Automation Error? | Добавлено: 13.03.06 23:04 |
Автор вопроса:  Nj | ICQ: 223663115 |
|
Что такое - Automation Error
и что провоцирует эту ошибку, как избежать? Подскажите, please, кто знает |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #1 | Добавлено: 13.03.06 23:15 |
| Можешь код показать, где эта ошибка вылетает? | ||
|
Номер ответа: 2 Автор ответа: Chiper ICQ: 253369339 Вопросов: 6 Ответов: 6 |
Профиль | | #2 | Добавлено: 14.03.06 03:49 |
| Циклы смотри, обычно там... | ||
|
Номер ответа: 3 Автор ответа:  [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #3 | Добавлено: 14.03.06 06:21 |
|
440 Automation error Ошибка программирования объектов
|
||
|
Номер ответа: 4 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #4 | Добавлено: 14.03.06 11:13 |
|
Такое часто бывает при некорректных создании/убивании объектов.
У меня такое особенно часто было при двойной(тройной и т.п.) регистрации ActiveX. Зачастую после перекомпиляции (даже с бинарной совместимостью) в реестре правится CLSID самого класса, но число ID интерфейсов растет. После чего приложение, использующее эту библу в 50% выдает Automation Error. А если совместимость не установлена - вообще ass  Шансы вырастают до 97% )
Причин очень много, лучше приведи код (и опиши ситуацию) |
||
|
Номер ответа: 5 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #5 | Добавлено: 14.03.06 19:05 |
|
Простая ситуация: Как только страница загружается в элемент WebBrowser происходит эта ошибка,
а главное - только в скомпилированном файле, что не даёт отследить её в коде, но вот клачок кода: Sub abHack() On Error GoTo HaveError: Ap(0) = Ap(0) + 1 'Количество попыток увеличено на 1 If Ap(0) = Hun Then Ap(0) = 0 DoEvents ' Даем шанс прервать программу abStop.lll = abP If StopIt = True Then Print #7, "Program Stopped by user" ResultMsg = "Прервано пользователем" FinalFile ' Exit from prog End If NewLog = NewLog + 1 If NewLog = 10 Then 'Зададим новый файл журнала NewLog = 0 Close 7 Open abLogMake For Append As 7 End If 'Ap(0) = 0 z = 1 ' Индексы переменных-счетчиков попыток Do Ap(z) = Ap(z) + 1 If Ap(z) = Hun Then z = z + 1 'Прибавляем еще 1 в следующий разряд Попыток Else Exit Do ' Иначе смену разрядов прекратить End If Loop End If Print #7, abP & " "; 'Отметились в журнале wriHTML 'Записали вэбстраницу vcx.Navigate (mP & "\-f.html"  'Показали Вебстраницу
Exit Sub HaveError: ResultMsg = "Произошла ошибка в основном процессе! (01)" & vbNewLine & Err.Description ' Вот это то и выдает экзешник FinalFile ' Exit from Program End Sub |
||
|
Номер ответа: 6 Автор ответа:  NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #6 | Добавлено: 14.03.06 21:57 |
|
Я добавил в код переменную, для уловки ошибки
Sub abHack()
eR = 0 '-- On Error GoTo HaveError: eR = 1 '-- Ap(0) = Ap(0) + 1 'Êîëè÷åñòâî ïîïûòîê óâåëè÷åíî íà 1 eR = 1.1 '-- If Ap(0) = Hun Then ... ... HaveError: ResultMsg = "Ïðîèçîøëà îøèáêà â îñíîâíîì ïðîöåññå! (01)" & eR & vbNewLine & Err.Description FinalFile End Sub Получилось, что ошибка возникает после eR=1 и до eR=1.1
Т.е. её вызывает обычный оператор присваивания??? Ap(0) = Ap(0) + 1
Массив задекларирован в (General)(Declarations)
Dim Ap(9) As Integer
|
||
Страница: 1 |