Проблемы с разработкой плагина

Спасибо за ответ!
По поводу 3-го вопроса: окно семантической информации не появляется в оболочке.

Продолжаю писать плагин в Delphi 7. В onZuluEvent пишу обработку события evMapMouseMove. Через какие параметры onZuluEvent передаются RealX и RealY (если можно, напишите пример кода)? Можете ли прислать перечень передаваемых параметров для каждого события (не совсем понятно: в onZuluEvent параметров всего три, а в событиях может быть использовано больше параметров)?

Пожалуйста, скажите, что я делаю неправильно в onZuluEvent для получения RealX и RealY? Меня интересуют входные параметры методов IMapView.GetRealX и IMapView.GetRealY:

var
Number: Integer;
Byte1, Byte2: Byte;
begin
if EventID = evMapMouseMove then
begin
Number := VarAsType(Param2, varInteger);
Byte1 := Lo(Number);
Byte2 := Hi(Number);
// Потом Byte1 и Byte2 должны передаваться в IMapView.GetRealX и IMapView.GetRealY
end;
end;

Корректен ли следующий фрагмент кода:

var MapView: IMapView;
. . .
. . .
Document := FConnector.Zulu.ActiveDocument;
if Assigned(Document) and (Document.Type_ = eMapDoc) then
MapView := IMapView(Document.NativeDoc);

Мне нужно получить именно интерфейс IMapView (например, чтобы поработать со свойствами CenterX, CenterY).

Уже разобрался. Сделал так (и у меня получилось):

var Document: IDocument;
Map: IMapDoc;
MapView: IMapView;
. . .
. . .
Document := FConnector.Zulu.ActiveDocument;
if Assigned(Document) and (Document.Type_ = eMapDoc) then
begin
Map := IMapDoc(Document.NativeDoc);
MapView := Map.Views.Active;
end;

погодите, может "if VarIsNull(MyPlug) then" ?

Приношу извинения, команды для запуска плагинов заведены у нас в объектной модели, но не реализованы. Постараемся доделать к ближайшему релизу.

Посмотрите в отладчике, где именно вылетает, посмотрите стек, какой последняя строчка вашего кода выполнялась, после чего происходит вылет (сам он происходит в ntdll.dll).

К предыдущему сообщению:
В Event Log -
ODS: HEAP[Zulu.exe]: Process Zulu.exe (8636)
ODS: Heap block at 036736E0 modified at 03673738 past requested size of 50 Process Zulu.exe (8636)

procedure TMyPlugin.onZuluEvent(EventID: Integer;
const IUnknown: IUnknown; Param1, Param2, Param3: OleVariant);
var
lpBuffer: PChar;
Code: LongInt;
begin
case EventID of
evMapMouseMove: begin
RadixStr(PChar(VarToStr(Param2)), 10, lpBuffer, 2, Code);
edtNote.Lines.Text := lpBuffer;
end;
evMapLButtonUp:
begin
if MyLayer.CurrentID <> -1 then
txtCurrentID.Text := IntToStr(MyLayer.CurrentID)
else
txtCurrentID.Text := '-1';
end;
end;
end;

// Преобразование числа из одной системы счисления в другую (решение Borland'a)
procedure RadixStr(NumStr : pChar; {исходное число}
Radix : LongInt; {исходная система счисления}
ResultStr : pChar; {возвращаемый результат}
NewRadix : LongInt; {"новая" система счисления}
var ErrorCode : LongInt {возвращаемый код ошибки});
var
RadixChar : array[0..35] of Char;
v : LongInt;
i : LongInt;
p : LongInt;
c : Integer;
begin
if ((Abs(Radix) < 2) or (Abs(Radix) > 36)) then
begin
ErrorCode := p;
Exit;
end;

StrLCopy(ResultStr, NumStr, StrLen(NumStr));

for i := 0 to 35 do
begin
if i <= 9 then
RadixChar[i] := Char(48 + (i))
else
RadixChar[i] := Char(64 + (i - 9))
end;

v := 0;

for i := 0 to (StrLen(ResultStr) - 1) do
begin
ResultStr[i] := UpCase(ResultStr[i]);
p := Pos(ResultStr[i], PChar(@RadixChar)) - 1;
if ((p < 0) or (p >= Abs(Radix))) then
begin
ErrorCode := i;
Exit;
end;
v := v * Abs(Radix) + p;
end;

if v = 0 then
begin
ResultStr := '0';
ErrorCode := 0;
exit;
end
else
begin
i:=0;
repeat
ResultStr[i] := RadixChar[v mod NewRadix];
v := v div NewRadix;
Inc(i)
until v = 0;
if Radix < 0 then
begin
ResultStr[i] := '-';
ResultStr[i + 1] := #0
end
else
ResultStr[i] := #0;
p := StrLen(ResultStr);
for i := 0 to ((p div 2) - 1) do
begin
ResultStr[i] := Char(Byte(ResultStr[i]) xor Byte(ResultStr[(p - i) - 1]));
ResultStr[(p - i) - 1] := Char(Byte(ResultStr[(p - i) - 1]) xor Byte(ResultStr[i]));
ResultStr[i] := Char(Byte(ResultStr[i]) xor Byte(ResultStr[(p - i) - 1]))
end;
ResultStr[p] := #0;
ErrorCode := 0;
end;
end;