www.integro.ru

[Удовица Андрей]

Подскажите где найти пример
приложения Windows, взаимодействующего с запущенной
копией ИнГео.
Желательно конечно приложения написанного на Net Framework

[Удовица Андрей]

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

[rvm]

Я на Делфи и спользую:

interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ActiveX, Ingeo_TLB, ComCtrls;

function GetActiveIngeoApp: IIngeoApplication;
procedure CreateMapObject(anApp: IIngeoApplication;
const aLayerID, aStyleID, aTableID: String; Xs, Ys, Cs: array of double;
bTp:byte);

implementation

uses FormDmf;

function GetActiveIngeoApp: IIngeoApplication;
var
anInterface: IUnknown;
begin
// function GetActiveObject defined in the ActiveX.pas unit
if (GetActiveObject(CLASS_IngeoApplication, nil, anInterface) = S_OK) then
Result := anInterface as IIngeoApplication
else
Result := nil
end;

- т.о. получая ссылку на ИнГео, а далее по задаче (этот фрагмент где-то у разработчиков системы есть).

Владимир.

[Алексей В. Бастриков]

Можете использовать COM-библиотеку InMetaCR.
Вот на C# мой кодек выглядит так:

...
using InMetaCR;
using Ingeo;
using InScripting;
...

private IngeoApplication MyIngeo;
private void Init()
{
InMetaDataServiceClientClass InMeta = new InMetaDataServiceClientClass();
MyIngeo = InMeta.GetActiveIngeo() as IngeoApplication;
}
...
//совсем не обязательная функция
private void Done()
{
MyIngeo = null;
}

при этом в референсы достаточно добавить лишь InMetaCR