A program CD-n is kapható, valamint WebService formában is elérhető, de csak regisztrált felhasználónév és jelszó ellenében.
A CD-s verzióból három fajta létezik. Külön CD-n találhatjuk meg Európát és Észak-Amerikát. A harmadik CD egy világatlasz.
Mint az a bevezetőből is kiderült, a program rengeteg lehetőséget nyújt számunkra.
A megjelenített térképen látszanak a megye és országhatárok, útvonalak, folyók, különböző tájékoztató adatok egy település méretéről. Láthatunk politikai és domborzati térképeket is.
A program ismeri az utak számozását és minőségét.
Felhasználhatjuk térképként és útvonalkereső programként is. A mellékelt példaprogramban az útvonalkeresést fogjuk használni.
Útvonalkeresésnél meg kell adnunk a kiindulási pontot és az érkezés helyét. Megadhatunk köztes állomáshelyeket is. Kalkuláció során a program készít nekünk egy listát azokról az utakról, amelyeken végig kell haladnunk. Az útvonalat térkép segítségével is megjeleníti.
Példaprogramunkban a MapPoint-tal megterveztetünk egy útvonalat, két megadott település között. A kalkuláció útvonalát, az út hosszát és a bejárásához szükséges időt megjelenítjük.
Nyissunk egy új Delphi alkalmazást.
A uses listában soroljuk fel a ComObj és Clipbrd unitok neveit.
A MapPoint egyes objektumait OleVariant típusú változók segítségével érjük el, mint más Office alkalmazások esetében.
Először is, csatlakoznunk kell a programhoz.
MapPoint:=CreateOleObject('MapPoint.Application');
A program alapvetően mérföldekkel számol. Ezt állítsuk át kilométerre.
A program mindig tartalmaz egy térképet és egy útvonalat, amelyet aktív térképnek és aktív útvonalnak nevezünk. Az útvonal a térkép objektumba van beágyazva. Az alábbi módon érhetjük el.
Route:=MapPoint.ActiveMap.ActiveRoute;
Az előző útvonal elemeit a Clear metódussal törölhetjük.
Az útvonal WayPoints property-je tárolja az útvonal kezdő és végpontját. Ebbe a tömbbe nekünk kell most elhelyeznünk a felhasználó által megadott településeket. Egy megadott település adatait a Find metódussal kérdezhetjük le. Eredményül egy Location objektumot kapunk.
Location:=MapPoint.ActiveMap.Find(Edit1.Text+', '+Edit2.Text+', '+Edit3.Text);
A Find metódusnak paraméterként egy olyan sztringet kell adnunk, amely egy települést egyértelműen azonosít. A település nevét az alábbi módon kell megadnunk:
Find(’telpülés_név, megye_név, ország’);
Ügyeljünk arra, hogy az elnevezéseket a program nyelvének megfelelően kell megadnunk.
Ha megtaláltuk a keresett települést, akkor az Add metódussal elhelyezhetjük azt a WayPoints tömbben.
Route.WayPoints.Add(Location);
Ha ezzel megvagyunk, akkor a Calculate metódus meghívására, a program elkészíti az útvonaltervet, amely az aktív térképen meg is jelenik.
A létrejövő térkép lesz az új aktív térkép, melyet a CopyMap metódus meghívásával elhelyezhetünk a vágólapon.
MapPoint.ActiveMap.CopyMap;
A Route objektum Distance (double típusú) property-jéből kiolvashatjuk a kalkulált út hosszát. A szükséges időt a TripTime property-ben találjuk.
Time:=Route.TripTime;
Label10.Caption:=IntToStr(Round(Time*24))+' óra';
A TripTime az utazáshoz szükséges időt napokban számolja. Ha az eredményt órában akarjuk megkapni, akkor szoroznunk kell 24-el.
Végül a programot a Quit metódussal zárhatjuk be.