MapBasic. Руководство пользователя
Подождите немного. Документ загружается.
Глава 7: Работа с таблицами
MapBasic Руководство пользователя
159
Правило 3. Если таблица открыта на чтение одним из пользователей,
другой не может сохранять ее.
Если другие пользователи читают таблицу в момент, когда, А выбрал
команду меню Ф
АЙЛ > СОХРАНИТЬ ТАБЛИЦУ, процесс сохранения не
будет запущен. MapInfo отобразит сообщение “Нельзя открыть файл
<имя таблицы>.DAT на запись”. Окно диалога будет содержать
кнопки “Отмена” и “Повторить” со следующим назначением:
Повторить
Если выбрана эта кнопка, MapInfo повторит попытку сохранить
таблицу. Эту кнопку можно нажимать до тех пор, пока таблица
не будет сохранена
.
Отмена
В этом случае диалоговое окно исчезнет с экрана, и операция
будет отменена. Изменения в таблице не будут сохранены
вплоть до следующей попытки сделать это
.
Как избежать конфликтов при чтении
Как указано в предыдущем разделе, некоторые конфликты
совместного доступа к таблице приводят к появлению окна диалога с
кнопками “Повторить”/”Отмена”. Обычно диалоговое окно появляется
в момент возникновения конфликта. Однако программа MapBasic
может подавлять появление окна, используя оператор Set File
Timeout.
В той части Вашей программы, где открывается на чтение совместно
используемая таблица, используйте оператор Set File Timeout со
значением большем нуля. Например, если процедура открывает
несколько файлов, поместите этот оператор в ее начале:
Set File Timeout 100
Оператор Set File Timeout устанавливает ограничение времени; в этом
примере ограничение времени – 100 секунд. Другими словами,
MapInfo автоматически повторит любые операции таблицы, которые
производят конфликт совместного использования, и MapInfo
продолжит попытки повторить операцию в течение 100 секунд.
Обратите внимание, что MapInfo повторяет операции таблицы вместо
того, чтобы отобразить диалог “Повторить”/”Отмена”. Если конфликт
все еще происходит после 100 секунд повторений, автоматическое
повторение останавливается, и MapInfo отображает диалоговое окно.
Глава 7: Работа с таблицами
160 MapBasic Руководство пользователя
Как избежать конфликтов при записи
Некоторые операторы MapBasic изменяют содержание таблицы.
Например, утверждение Insert добавляет новые строки к таблице. Если
Ваша программа пытается изменять содержание таблицы, и возникает
конфликт совместного использования, то произойдет ошибка времени
выполнения. Чтобы перехватить эту ошибку, используйте оператор
OnError.
Например, если Ваша процедура вставляет новые строки в таблицу
(как в примере ниже), Вы должны создать процедуру обработки
ошибок и разместить оператор OnError перед опасным участком
(Обработка ошибок обсуждена более подробно в главе 5).
Внимание: Используйте операторы Set File Timeout и OnError в разных
местах. Там, где обработка ошибок разрешена, значение
задержки должно быть равно нулю. В местах, где значение
задержки не равно нулю, обработка ошибок должна быть
заблокирована. Следующий пример демонстрирует это:
Function MakeNewRow(ByVal new_name As String) As
Logical
’отключение автоматического повторения попыток
Set File Timeout 0
’отключение перерисовки окна
Set Event Processing Off
’разрешение обработки ошибок
OnError Goto trap_the_error
’добавление новой строки и немедленное сохранение
Insert Into Sitelist (”Name”) Values ( new_name
)
Commit Table Sitelist
’установка признака успешного завершения
MakeNewRow = TRUE
exit_ramp:
Глава 7: Работа с таблицами
MapBasic Руководство пользователя
161
Set Event Processing On
Exit Function
trap_the_error:
’ Переход сюда, если предложения Insert или Com
mit
’ привели к ошибке времени исполнения
If Ask(”Ошибка доступа; попробовать еще раз?”,
”Да”, ”Нет”) Then
’ ... попробовать еще.
Resume 0
Else
’ больше не пробовать.
’ Если оператор Insert был успешным и возникла
ошибка
’ во время выполнения оператора
’ Commit, возвратимся к исходному варианту.
Rollback Table Sitelist
’ установим признак ошибки:
MakeNewRow = FALSE
Resume exit_ramp
End If
End Function
Отметим следующие моменты.
• Когда Вы изменяете “общедоступнную” таблицу, старайтесь
уменьшить количество времени, в течение которого таблица
содержит несохраненные изменения. В примере, приведенном
выше, оператор Commit следует немедленно после оператора
Insert и указанное время очень мало.
• Пример использует оператор Set Event Processing Off, чтобы
приостановить обработку событий; в результате MapInfo не
будет перерисовывать окна во время редактирования. Если бы
мы этого не сделали, оператор Insert мог бы привести к
перерисовке одного или нескольких окон, а это могло бы,
очевидно, вызывать конфликт совместного использования
Глава 7: Работа с таблицами
162 MapBasic Руководство пользователя
данных (например, потому что другие таблицы в том же самом
окне Карты могут стать причиной конфликта).
• Оператор устанавливает задержку равную нулю. От процедуры,
которая вызывает его, может потребоваться вернуть задержку к
предыдущему значению.
Открытие таблицы для записи
Когда Вы открываете таблицу в многопользовательской среде, имеется
возможность, что MapInfo откроет таблицу с доступом только для
чтения, даже если файлы, составляющие таблицу – не являются
таковыми. Если программа MapBasic выдает оператор Open Table
точно в момент, когда к таблице обращается другой пользователь,
MapInfo может открыть таблицу только для чтения. Это не позволит
внести в нее изменения.
Следующий пример показывает, как избежать этого. Вместо выдачи
оператора Open Table, поместите его внутри цикла, который
выполняет итерации, пока файл не будет открыт на чтениезапись.
Retry_point:
Open Table ”G:\MapInfo\World”
If TableInfo(”World”, TAB_INFO_READONLY) Then
Close Table World
Goto Retry_point
End If
Файлы>компоненты таблицы
Таблица состоит из нескольких файлов: один из них содержит
информацию о структуре таблицы (названия колонок и т.п.); второй —
значения полей в записях; третий — графические объекты таблицы
(если таковые существуют); прочие — индексы. Значения записей (то
есть собственно числовые данные) могут храниться в любом формате,
который доступен в MapInfo: .DBF, Lotus .WKS или .WK1, текстовый
(ASCII с разделителями) или .XLSформат электронной таблицы Excel.
имя_файла.tab: Содержит описание структуры таблицы.
имя_файла.dat или имя_файла.dbf или имя_файла.wks и т.п.:
содержит числовые данные.
имя_файла.map: Содержит графические объекты.
имя_файла.id: Содержит географический индекс.
имя_файла.ind: Содержит индексы для различных колонок
таблицы.
Глава 7: Работа с таблицами
MapBasic Руководство пользователя
163
Поскольку каждая таблица состоит из нескольких файлов, Вы должны
быть осторожными при переименовании таблиц. Для переименования
таблиц пользуйтесь командой Т
АБЛИЦА > ИЗМЕНИТЬ > ПЕРЕИМЕНОВАТЬ
в MapInfo или оператором Rename Table в MapBasic.
Таблицы, содержащие растровые изображения
Таблицы, содержащие растровые изображения (без векторных
графических данных), имеют лишь некоторые из компонент,
перечисленных нами в предыдущем разделе. Это связано с тем, что
таблице с растровым изображением не соответствуют никакие
числовые данные. Каждая растровая таблица состоит из двух или более
файлов: .TABфайла (в нем хранится информация о контрольных
точках изображения) и одного или нескольких файлов, содержащих
собственно растровое изображение. Например, если растровая таблица
основана на файле PHOTO.TIF, то такая таблица может состоять из
двух файлов: PHOTO.TIF и PHOTO.TAB.
Во многих отношениях растровые таблицы сходны с обычными
таблицами в MapInfo. Чтобы открыть растровую таблицу, надо
выполнить оператор Open Table. Чтобы показать растровую таблицу в
окне Карты, следует выполнить оператор Map. Чтобы добавить
растровую таблицу в окно Карты, надо применить Add Map Layer. С
другой стороны, к растровым таблицам неприменимы операции типа
Select.
Чтобы узнать, является ли таблица растровой, следует обратиться к
функции TableInfo( ) с параметром TAB_INFO_TYPE. Если таблица
является растровой, TableInfo( ) возвратит код TAB_TYPE_IMAGE.
Как правило, MapInfo не вносит никаких изменений в исходный файл
с растровым изображением, на котором основана та или иная
растровая таблица. Поэтому:
• При использовании оператора Drop Table для удаления
растровой таблицы MapInfo удаляет .TABфайл, но не удаляет
файл с исходным растровым изображением.
• При использовании оператора Rename Table для растровой
таблицы MapInfo переименует .TABфайл, но не изменит
название файла с исходным растровым изображением.
• При использовании оператора Commit для копирования
растровой таблицы MapInfo скопирует только .TABфайл, но не
файл с исходным растровым изображением.
Глава 7: Работа с таблицами
164 MapBasic Руководство пользователя
TABфайл для растровых таблиц создается в тот момент, когда
пользователь заполняет поля диалога "Регистрация изображения".
Чтобы создать такой .TABфайл в программе MapBasic, Вам следует
использовать стандартные операции файлового ввода/вывода: создать
файл оператором Open File и поместить в него текст с помощью
оператора Print #; см. пример ниже в этой главе.
В следующем примере программы показано, как создать .TABфайл
для растровой таблицы.
Внимание: В данной программе контрольным точкам присвоены
произвольные координаты (а не реальные географические
координаты, которые следует задавать). Поэтому полученную
таблицу нельзя использовать для совмещения растрового
изображения с векторными картами. Однако при
использовании изображения, не связанного с
географическими координатами (скажем, Вашего фирменного
знака), проблем не возникнет.
Include "mapbasic.def"
Declare Sub Main
Declare Function register_nonmap_image(ByVal file
name As String,
ByVal tablename As
String) As Logical
Sub Main
Dim fname, tname As String
fname = "c:\data\raster\photo.gif" 'файл с растровым
'изображением
tname = PathToDirectory$(fname)
+ PathToTableName$(fname) + ".tab" 'название
создаваемой 'таблицы
If FileExists(tname) Then
Note "Растровое изображение уже было
зарегистрировано; 'остановка."
Else
If register_nonmap_image(fname, tname) Then
Note "Создана таблица для изображения из файла:
" + fname + "."
Else
Note "Таблица не может быть создана."
Глава 7: Работа с таблицами
MapBasic Руководство пользователя
165
End If
End If
End Sub
Function register_nonmap_image( ByVal filename As
String,
ByVal tablename As String)
As Logical
register_nonmap_image = FALSE
OnError GoTo handler
Open File tablename For Output As #1 FileType
"MIta"
Print #1, "!Table"
Print #1, "!Version 300"
Print #1, "!charset WindowsLatin1"
Print #1
Print #1, "Definition Table"
Print #1, " File """ + filename + """"
Print #1, " Type ""RASTER"" "
Print #1, " (1,1) (1,1) Label ""Pt 1"", "
Print #1, " (5,1) (5,1) Label ""Pt 2"", "
Print #1, " (5,5) (5,5) Label ""Pt 3"" "
Print #1, " CoordSys NonEarth Units ""mm"" "
Print #1, " Units ""mm"" "
Print #1, " RasterStyle 1 45" ' Brightness;
default is 50
Print #1, " RasterStyle 2 60" ' Contrast; default
is 50
Close File #1
register_nonmap_image = TRUE ' установить
значение, которое вернет ' функция
last_exit:
Exit Function
handler:
Close File #1
Resume last_exit
Глава 7: Работа с таблицами
166 MapBasic Руководство пользователя
End Function
Работа с метаданными
Что такое метаданные?
Метаданные – это данные, хранящиеся в файле .TAB не в виде строк
или колонок. Например, если Вы хотите записать сведения типа “кто и
когда работал с данной таблицей”, Вам следует запомнить их в виде
метаданных.
Метаданные не отображаются в стандартном интерфейсе пользователя
MapInfo. Пользователи не могут видеть метаданных таблицы (если они
не просматривают .TABфайл в текстовом редакторе или не запускают
программупример TABLEMGR). Однако MapBasicприложение может
читать и записывать метаданные.
Каждая таблица может содержать (или не содержать) один или
несколько ключей метаданных. Каждый ключ соответствует своему
разделу, например, “имя автора”, “объявления об авторском праве”, и
т.д. Например, ключ, именованный "\Copyright", мог бы иметь
значение " Copyright 1995 Acme Corp.”
Как выглядят ключи метаданных?
Каждый ключ метаданных имеет имя, которое всегда начинается с
символа "\" (наклонной черты влево). Имя ключа никогда не
заканчивается этим символом. В имени ключа не различаются
прописные и строчные буквы.
Значение ключа – это строка длиной не более 239 символов.
В таблице приведены примеры имен и значений ключей.
Отметим следующие моменты:
Имя ключа Значение ключа (пример)
”\Copyright Notice” ”Copyright 1995 Горбунков.”
”\Info” ”Стамбул город контрастов”
”\Info\Author” ”Семен Семеныч Горбунков”
”\Info\Date\Start” ”12/14/95”
”\Info\Date\End” ”12/31/95”
”\IsReadOnly” ”FALSE”
Глава 7: Работа с таблицами
MapBasic Руководство пользователя
167
• Пробелы внутри имен и значений ключей разрешены.
• Вы можете определить иерархию ключей, используя имена,
которые имеют два или больше символов (\). В приведенной
таблице выше несколько ключей принадлежат иерархии,
которая начинается с ключа "\Info". Устройство ключей в
иерархиях разрешают работать со всей иерархией одновременно
(например, Вы можете удалять всю иерархию одним
оператором).
• "\IsReadOnly" – специальный ключ, зарезервированный для
внутреннего использования MapInfo. Когда Вы добавляете
метаданные к таблице, MapInfo автоматически создает ключ
\IsReadOnly. Не пытайтесь изменять его.
• В таблице выше каждая строка записана в кавычках, чтобы
подчеркнуть, что она имеет строковое значение. Однако, когда
Вы извлекаете ключи из таблицы, MapBasic не заключает их в
кавычки.
Примеры работы с метаданными
Функция GetMetadata$( ) позволяет сделать запрос о метаданных
таблицы, но только если Вы уже знаете точное имя ключа метаданных.
Если Вы знаете, что таблица имеет ключ с именем "\Copyright", то
следующее обращение к функции возвратит значение ключа:
s_variable = GetMetadata$(table_name, ”\Copyright”)
Оператор Metadata позволяет создавать, изменять или прочитывать
метаданные таблицы, даже если Вы не знаете имена ключей.
Следующие примеры показывают различные действия, которые Вы
можете выполнять, используя оператор Metadata. Обратите внимание:
в следующих примерах table_name представляет строковую
переменную, которая содержит имя открытой таблицы.
Следующий пример сохраняет значение ключа в таблице. Если ключ
уже существует, это действие изменяет его значение; если не
существует, то происходит добавление ключа к метаданным таблицы.
Metadata Table table_name
SetKey ”\Info\Author” To ”Семен Семеныч”
В следующем примере ключ удаляется.
Metadata Table table_name
Dropkey ”\Info\Author”
Здесь удаляется целая иерархия ключей. Все ключи, имена которых
начинаются с “\Info\” , будут удалены.
Глава 7: Работа с таблицами
168 MapBasic Руководство пользователя
Metadata Table table_name
Dropkey ”\Info” Hierarchical
Когда Вы используете оператор Metadata, чтобы записывать или
удалять метаданные, изменения происходят немедленно. Вы не
должны выполнять операцию Save.
Вы также можете использовать оператор Metadata, чтобы читать
метаданные из таблицы, даже если Вы не знаете имена ключей. Для
этого нужно:
1. Использовать оператор Metadata Table ... SetTraverse для
инициализации просмотра имен ключей.
2. Использовать оператор Metadata Table ... Next, чтобы получить
значение следующего ключа. Оператор возвращает имя ключа в
строковой переменной. Обычно это следует повторять в цикле.
Если ключа нет, оператор вернет пустое значение в качестве его
имени.
3. Завершить поиск оператором Metadata Traverse ... Destroy.
Пример:
Sub Print_Metadata(ByVal table_name As String)
Dim i_traversal As Integer
Dim s_keyname, s_keyvalue As String
’ Инициализация просмотра ключей. Укажите ”\” как
’ начальный ключ, просмотр начнется с первого
ключа
Metadata Table table_name
SetTraverse ”\” Hierarchical Into ID
i_traversal
’ Попытка доступа к первому ключу:
Metadata Traverse i_traversal
Next Into Key s_keyname Into Value s_keyvalue
’ цикл по всем ключам
Do While s_keyname <> ””
Print ” ”
Print ”Имя ключа: ” & s_keyname
Print ”Значение: ” & s_keyvalue