www.map-info.ru :: Просмотр темы - Почему "выбивает" MI при запуске программки на MB?
                               РќР° главную страницу сайта

 
                                
ВходВход    РегистрацияРегистрация    ПрофильПрофиль    ПользователиПользователи    ГруппыГруппы    FAQFAQ    ПоискПоиск  

 
   Список форумов www.map-info.ru | Форум - программирование в среде MapInfo Добавить ответ
Предыдущая тема :: Следующая тема  
Автор Сообщение
VLog



Зарегистрирован: 27.05.2011
Сообщения: 2

СообщениеДобавлено: Пт Май 27, 2011 2:31 pm    Заголовок сообщения: Почему "выбивает" MI при запуске программки на MB? Добавить ответ со ссылкой на данный текст

Кто знает почему при запуске программы с циклом на MB по разделу полилинии на отдельные линии может испортить MapInfo так что приходиться переустанавливать Windows? Такое впечатление что без переустановки W не работает временная таблица Selection и связанные с ней операции! Используется MI v8.5 и приложение на MB v8. Заранее благодарен.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Андрей Могильный



Зарегистрирован: 21.03.2006
Сообщения: 864

СообщениеДобавлено: Пн Май 30, 2011 1:47 pm    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

Что-то у вас не так :) Программа на MapBasic врядли может так повлиять. Похоже на вирус. Кстати на MapBasic тоже был 1 вирус, проверьтесь короче.
Ну или покажите программный код.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
VLog



Зарегистрирован: 27.05.2011
Сообщения: 2

СообщениеДобавлено: Вт Май 31, 2011 2:38 pm    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

Спасибо за ответ. Текст программы следующий:

Close all
Open Table "D:\ОБЪЕМЫ\ЕГРЗиспГраницаРаздел.TAB"
Dim i, j, nrow1, nobj1, k As Integer
nrow1=TableInfo(ЕГРЗиспГраницаРаздел,Cool
Fetch First From ЕГРЗиспГраницаРаздел
Do While i<nrow1
i=i+1
k=i
nobj1=Objectinfo(ЕГРЗиспГраницаРаздел.obj,20)
Do While j<nobj1-2
j=j+1
Select * from ЕГРЗиспГраницаРаздел where Rowid=k into Selection
Objects Pline Split At Node 2 Into Table ЕГРЗиспГраницаРаздел
k=TableInfo(ЕГРЗиспГраницаРаздел,Cool
Loop
j=0
Fetch Next From ЕГРЗиспГраницаРаздел
Loop
Commit Table ЕГРЗиспГраницаРаздел As "D:\ОБЪЕМЫ\ЕГРЗиспОтрезки.TAB" TYPE NATIVE Charset "WindowsCyrillic"
Close All

Приложение на основе этого текста полгода добросовестно делило полилинии образованные из некоторого количества полигонов на отдельные линии. Затем при попытке раздела полилиний образованных из регионов - полигонов с внутренними дырками - "озерами" ( понятно что она не должна сработать т.к. нет счетчика полигонов внутри региона) происходит такой фатальный сбой. Я нашел рекомендации произвести очистку временных файлов. Попробую. Еще раз спасибо.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
   Список форумов www.map-info.ru | Форум - программирование в среде MapInfo Добавить ответ
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Top.Mail.Ru