[sitesv]

Доброго времени дня! Пытаюсь написать приложение в C++ Builder, которое бы использовало интегрированную картографию MapInfo.
Проанализировав примеры, реализованные на Delphi, сначала необходимо создать ОЛЕ объект
Variant a=CreateOleObject("MapInfo.Application");

При выполнении, эта строчка проходит нормально, а как проверить правильность ее выполнения?

В дальнейшем необходимо использовать метод a.DO... , но в c++ builder такого нет, и никаких комментариев по реализации в с++ builder нет, помогите с реализацией выполения кода MapBasic из под C++ Builder 6.0

Заранее спасибо.

[Андрей Могильный]

1) Если код:
Variant a=CreateOleObject("MapInfo.Application");
выполнился без ошибки и в переменной a есть значение, то значит все хорошо.
2) Почему вы думаете, что в c++ builder так
a.DO('')
нельзя? Пробовали?

[sitesv]

Переменная "а" принимает значение {{ }}, это нормально?
a.do пробовал, хотел сделать по аналогии с примером для Delphi, но что-то никак не получилось... Билдер пишет "Member Identifier Expected", видимо он распознает do как структуру do...while
К примеру реализация команд MapBasic, так она выглядит в Delphi (из примера):
procedure TKDMapInfoServer.ExecuteCommandMapBasic(Command:string;const Args: array of const);
begind
a.do(Format(Command,Args));
end;

может быть какие-то доп.библиотеки нужны?

[Arhara]

А должна иметь вид тестовой строки "Mapinfo Professional"
Mapinfo устанавливает себя как OLE-Сервер.
Прежде чем говорить о подпрограммах, надо выяснить происходит ли вообще обращение к Mapinfo.
Самый простой случай, что возвращает команда
a.Eval("2*2")
И прежде чем создавать объект MapInfo, который плохо управляем, попробуйте подключиться к активной запущенной ранее копии Mapinfo командой аналогичной
GetObject(,"MapInfo.Application")
К тому же, видимо именно для этих случаев, для Do есть аналог RunCommand

[sitesv]

В обоих случаях a.RunCommand или a.Eval, RunCommand и Eval is not a member of Variant - Так выдает c++ builder при компиляции.
и вариант GetObject( , "MapInfo.Application") напрямую в билдере не проходит, он пишет Expression Syntax... Использую при открытом MapInfo GetActiveOleObject. Верный вариант? В вариантную переменную "а" записывается тоже выражение {{}} как и при CreateOleObject при закрытом MapInfo. c Eval и RunCommand не ясно.

[Serj]

Все проще пареной репы:
1. Project -> Import Type Library...
Если в списке есть объект MapInfo - замечательно, если нет - говорим Add... и добавляем из папки, где лежит MapInfo либо файл MAPINFOW.TLB, а если его нет, то сам exe-юк (это зависит от версии)
2. Install - не обязательно, достаточно Create Unit. если не указано другое, то в папку CBuilder6\Imports\ положит интерфейсы и классы для доступа к MapInfo.
3. Хе! Не забываем header-ы подключить в свой проект!

[sitesv]

[Serj]

А в сами файлы заглянуть лень?
Пользовать надо DMapInfoDisp...
Ну, и в проект рожденные cpp не забыть подключить!

[sitesv]

[Serj]

Users Guide описывает общие подходы, а дальше надо исходить от своего компилятора, и своего понимания... Опять же, заглянуть в рожденные файлы, справку по Builder поюзать... Лень матушка - уже не двигатель прогресса, а его полная остановка... )))
Ну хотя бы так...
void __fastcall TForm1::FormCreate(TObject *Sender)
{
if (!mapinfo.IsBound()) {
if (mapinfo.Bind(WideString("MapInfo.Application")) != S_OK) {
MessageDlg("Ошибка соединения с MapInfo!!!", mtError, TMsgDlgButtons() << mbOK, 0);
Application->Terminate();
return;
}
AnsiString param = "Set Application Window ";
param += (unsigned int) Handle;
mapinfo.Do(WideString(param));
}
}
Там только рано или поздно возникнет вопрос, когда запущено несколько приложений MapInfo... Вот тут уже сложности, решаемые, но не так просто... ;)))

[sitesv]

[sitesv]

А если сервер, т.е. MapInfo находится на другом компе, то как с помощью CreateOleObject подсоедениться к нему по средством локальной сети или интернета?

Можно ли в CreateOleObject(server.Project3) дописать ip адрес чтоб соединиться по локалке?

[Андрей Могильный]

Вообще-то никак.

[sitesv]

[Андрей Могильный]

Да, это технология COM. Есть конечно еще и DCOM (Distributed COM), но не уверен, что MapInfo сможет в ней работать, в документации ничего про это нет.