Архив форумов ЦИТФорума

[rainbow_eyes]

Здравствуйте, уважаемые посетители форума.
Испытываю следующего рода затруднения.
Нужно использовать в Delphi 6 классы ГИС Manifold System 5.00. С помощью Project - Import type library получил файл Manifold_TLB.pas (из библиотеки TlbCommon.tlb, специально для подобных целей
предназначенной).
Пытаюсь выполнить следующий код:
----------------------------------------------
uses
Manifold_TLB,
.....
procedure TForm1.Button1Click(Sender:TObject);
var
a : Manifold_TLB.Application;
begin
a := Manifold_TLB.CoApplication.Create;
a.DocumentSet.Open('D:\Prj\Bay.map', true);
end;
----------------------------------------------
В результате
"a := Manifold_TLB.CoApplication.Create;"
получаем
"a: Pointer($29735CC) as IApplication",
т.е., по видимому, экземпляр
Manifold_TLB.Application имеется.
Но
"a.DocumentSet.Open('D:\Prj\Bay.map', true);"
не выполняется, как и другие методы, например "a.Set_Caption('aaa');",
Manifold System не запускается.

Далее пробую следующий код:
----------------------------------------------procedur e TForm1.Button1Click(Sender:TObject);
const
G : TGUID = '{3F343403-7ABF-11D5-BAFA-00A0C98DED6D}';
var
a : Variant;
begin
a := CreateCOMObject(G);
end;
--------------------------------- -------------
и проект вызывает исключение класса EOleSysError с сообщением "Класс не зарегистрирован", что странно, т.к. GUID
{3F343403-7ABF-11D5-BAFA-00A0C98DED6D} зарегистрирован у меня в реестре.
Объяните, пожалуйста, кто знает, в чём здесь загвоздка.
Спасибо.

[AndyC]

Пробовал с другим сервером и на билдере, но результаты бали равными
Как я понял, оно некорректно выполняется импорт

Вызывал интерфейсы по имени.
А библиотека для контроля типов и имён

Короче, всё в рукопашную.