Сообщений в теме: 388

[Jismo]

Кстати, столкнулся с еще одной маленькой проблемкой, хотелось бы узнать, может кто нашел решение:
Если открывать таблицу с предложением Interactive и такая таблица не найдена, то вылазиет стандартный диалог открытия, так вот как поймать событие нажатия на кнопки "открыть" и "отмена" или закрытие окна "Х".

PS: If CommandInfo(CMD_INFO_DLG_OK) Then - не пашет

[d_d_t]

Может кто сталкивался и не знает как узнать открыта ли та или иная таблица. Я написал функцию, с помощью которой, Вы можете узнать это :

Declare Function IsTableExist(MyTabName As String) As Logical

Function IsTableExist(MyTabName As String) As Logical
'******************************************************
	 Dim i, TabCount As Integer		 
	 TabCount = NumTables()	'Число открытых таблиц
	 IsTableExist = False
	 For i = 1 To TabCount	 'цикл по открытым таблицам
		  If TableInfo(i, TAB_INFO_NAME) = MyTabName Then
			   IsTableExist = True	
			   Exit For			
		  End If
	 Next
End Function

Есть еще один способ - с помощью обработчиков ошибок:
http://www.gis-news....lefunctions.htm

[d_d_t]

Кстати, столкнулся с еще одной маленькой проблемкой, хотелось бы узнать, может кто нашел решение:
Если открывать таблицу с предложением Interactive и такая таблица не найдена, то вылазиет стандартный диалог открытия, так вот как поймать событие нажатия на кнопки "открыть" и "отмена" или закрытие окна "Х".

PS: If CommandInfo(CMD_INFO_DLG_OK) Then - не пашет

Можно вместо Open Interactive самому открывать стандартное диалоговое окно открытия файла с пом. функции FileOpenDlg(), а затем использовать возвращаемое ею значение в предложении Open, если пользователь нажал ОК (вернется путь и название файла), либо выполнять другие действия, если вернулась пустая строка (пользователь нажал отмену)

Сообщение отредактировал d_d_t: 03.06.2009, 14:27:34

[Jismo]

Кстати, столкнулся с еще одной маленькой проблемкой, хотелось бы узнать, может кто нашел решение:
Если открывать таблицу с предложением Interactive и такая таблица не найдена, то вылазиет стандартный диалог открытия, так вот как поймать событие нажатия на кнопки "открыть" и "отмена" или закрытие окна "Х".

PS: If CommandInfo(CMD_INFO_DLG_OK) Then - не пашет

Можно вместо Open Interactive самому открывать стандартное диалоговое окно открытия файла с пом. функции FileOpenDlg(), а затем использовать возвращаемое ей значения в предложении Open, если пользователь нажал ОК (вернется путь и название файла), либо выполнять другие действия, если вернулась пустая строка (пользователь нажал отмену)

Да нет это то понятно, я так и делаю, но всеже интересно было бы узнать как отловить это событие

[swatch]

Можно глупый вопрос? А зачем это нужно отловить?
После выполнения Open Table .... interactive можно проверить есть ли такая таблица в сеансе воспользовавшись функцией IsTableExist (см. выше), если вернет True, значит нажата была кнопа "открыть", если False, то соответственно "отмена" или "X".
Цель обработки не понятна...

[Jismo]

Можно глупый вопрос? А зачем это нужно отловить?
После выполнения Open Table .... interactive можно проверить есть ли такая таблица в сеансе воспользовавшись функцией IsTableExist (см. выше), если вернет True, значит нажата была кнопа "открыть", если False, то соответственно "отмена" или "X".
Цель обработки не понятна...

Ваша идея, конечно теоретически верна(этот вариант я тоже проверил прежде чем спросить здесь), но на практике ошибка происходит именно в строке открытия таблицы, а до строки проверки открыта она или нет она по просту не доходит

[swatch]

Значит только придется пользоваться обработчиком ошибок OnError:

Sub Sample
Dim tForOpen As Alias
	tForOpen = "TableForOpen"
	'Здесь включаем обработчик на случай отмены или X в диалоге открытия
	OnError GoTo Table_Not_Opened
	Open Table "Имя таблицы" as tForOpen Interactive
   	Print "Таблица открыта"
After_Error_Handler:
	'Если мы здесь, то либо ошибки не произошло, либо мы ее обработали
	'Выключаем обработчик ошибок
	OnError GoTo 0
	Exit Sub
Table_Not_Opened:
	'Если мы здесь значит произошла ошибка в диалоге открытия таблицы
	Note "Таблица должна быть открыта обязательно!"
	Resume After_Error_Handler
End sub

Удачи в борьбе с КартБейсиком

[Jismo]

Тьфу ты блин я в своем коде забыл просто выход из процедуры сделать после выключения обработчика ошибок.

2Swatch спс за наглядность примера

[Conkistador]

Появился еще вопрос по связке с дотнетом... Ситуация такая: если после запуска программы на МБ, которая вызывает функцию дот нета при выборе точки, открыть любой слой через меню файл->открыть, то во время выбора точки получаю Ексепшен: System cannot find the file specified. Тоесть получается что нарушается условие в соответствии с которым dll с дотнетовским методом должна находиться в одной папке со скриптом, т.к. папкой по умолчанию становится та папка откуда был открыт последний слой.
Как изменить путь по умолчанию для МИ? Путем имперических исследований выяснено что если выполнить программы->запустить программу... то все начинает работать, НО если выполнить Run Application ... то все тотже ексепшен...
Может кто то сталкивался ? или как можно обойти эту проблему ?

[Zulkar]

На МБ не писал, но похожая проблема возникает где угодно. Это связано с тем, что при открытии файла через стандартный диалог FileOpen рабочим каталогом становится тот, где был открыт файл. И в дальнейшем при открытии файлов, если задается не полный путь естественно возникают ошибки. Решение одно - запоминать текущую директорию до вызова диалога открытия файла, и восстанавливать ее после закрытия.

[Conkistador]

в том то и дело что непонятно как её восстановить...
ошибка падает в тот момент когда МБ пытается вызвать процедуру описанную в dll. Связка с ней описана при обьявлении процедуры...
причем вызов Run Application НЕ МЕНЯЕТ путь по умолчанию... совсем уже непонятно как обойти эту особенность...

[Zulkar]

в том то и дело что непонятно как её восстановить...

GetCurrentDirectory/SetCurrentDirectory - неа?

[Conkistador]

если бы

[d_d_t]

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

А если попробовать dll-ку и .mbx положить в один каталог с mapinfo.exe?
PS: сам не пробовал, но, вроде как, этот путь должен проверяться перед тем как mapInfo начнет ругаться.

[Jismo]

Есть вопросец господа!
Как воспользоваться DotNet'овской функцией передающей массив в качестве параметра в программе на MB? Если можно то пример плиз!

[swatch]

Как описываете импорт из dll в МБ? какие пути указываете к dll? примерчик дайте

[Jismo]

2Conkistador У меня в программах достаточно того чтобы MBX файл лежал в одной директории с DLLкой.

[Jismo]

Как описываете импорт из dll в МБ? какие пути указываете к dll? примерчик дайте

Я вроде писал уже, а может только подумал что писал

Первое условие которое необходимо для вызова .NET библиотеки из MB: метод должен быть статичным!!!

Это пример когда метод ничего не возвращает:

Declare Method ShowMsg
Class "Sample.Msg" Lib "Sample.dll" 
(ByVal str As String)

и внутри любого метода пишешь вызов:

Call ShowMsg("Привет")

результат: вылазиет окошко стандартное для .Net - MessageBox с текстом что ты написал в мапбэйсике.

А это когда возвращает значение:

Declare Method ShowMsg
Class "Sample.Msg" Lib "Sample.dll" 
(ByVal str As String) As Logical

и внутри метода пишешь вызов:

Dim mybool As Logical
mybool = ShowMsg("Привет")

результат: вылазиет окошко стандартное для .Net - MessageBox с текстом что ты написал в мапбэйсике и в переменную заносится True.

ЗЫ: Примеры образные, но рабочие. Да и еще кое что при объявлении класса в Мапбэйсике указывается и пространство имен и класс в данных примерах, пространство имен это Sample, а класс это Msg

[swatch]

2Jismo: у меня аналогично все работало.
Поэтому я и спрашиваю пример декларации сабов из DLL, мож там экзотично написано

[Jismo]

Да я и сам сталкнулся с траблом выше описано