Exemple

Visual C++

#include "stdafx.h"

#include <stdio.h>

#include "MSCI-ComInterface.hpp"

extern IApplication* pApplication; // IApplication interface of Application object.

int _tmain(int argc, _TCHAR* argv[]) {
  CString cs;
  double x1,y1,x2,y2;

  if (MSCIInit()) {
    // Deschide lucarea demo
    cs.Format("FileOpen('C:\Program Files\Geotop\MapSys 5.5\Samples\Demo\demo.pr5',3)");
    // Apelarea functiei MSCI
    MSCIExecute(cs);
    // Zoom la extensii
    cs.Format("ViewZoom(e)");
    // Apelarea functiei MSCI
    MSCIExecute(cs);
    // Apelarea functiei COM Interface pentru citirea limitei lucrarii dupa zoom la extensii
    pApplication->ViewGetLimit(&x1,&y1,&x2,&y2);
  }

  MSCIDone();

  return 0;
}

Visual Basic

Dim pApplication As Object

Dim cs As String
Dim x1 As Double
Dim y1 As Double
Dim x2 As Double
Dim y2 As Double

Set pApplication = CreateObject("MapSys.Application")

' Deschide lucarea demo
cs = "FileOpen('C:\Program Files\Geotop\MapSys 5.5\Samples\Demo\demo.pr5',3)"
' Apelarea functiei MSCI
pApplication.Execute(cs)
' Zoom la extensii
cs = "ViewZoom(e)"
' Apelarea functiei MSCI
pApplication.Execute(cs)
' Apelarea functiei COM Interface pentru citirea limitei lucrarii dupa zoom la extensii
call pApplication.ViewGetLimit(x1,y1,x2,y2)

Set pApplication = Nothing