MapForums

jmiller55 · #1 (**permalink**) 06-21-2003

I would like some sample code in Delphi to Add two route waypoints and calculate the route. I have seen a couple of samples but can't get it to work. Please post the complete procedure including the Var section, I am new to MapPoint.
Jim

rbarthels · #2 (**permalink**) 06-23-2003

Perhaps this helps:

procedure CalculateDistance(dblLonFrom:double; dblLatFrom:double; dblLonTo:double; dblLatTo:double;var KM:double; var ZEIT:double);
var
aFromLocation:Location;
aToLocation:Location;
aRoute: Route;
begin
if (MPApplication=NIL) then
exit;

aFromLocation:=MPApplication.ActiveMap.GetLocation (dblLatFrom, dblLonFrom, 0.0);
aToLocation:=MPApplication.ActiveMap.GetLocation(d blLatTo, dblLonTo, 0.0);

Screen.Cursor := crHourGlass;

aRoute:=MPApplication.ActiveMap.ActiveRoute;
aRoute.Clear;
aRoute.Waypoints.Add(aFromLocation,'S');
aRoute.Waypoints.Add(aToLocation,'E');

aRoute.Calculate;

KM:=aRoute.Distance;
Zeit:=aRoute.DrivingTime;

Screen.Cursor := crDefault;
end;

jmiller55 · #3 (**permalink**) 06-23-2003

Thank you for the reply. Using Lat and Long. works perfectly. Do you have an example using street addresses?
Jim

rbarthels · #4 (**permalink**) 06-24-2003

I wrote my own geocoding routines by using FindAddress, because I found the results of FindAddress sometimes very bad. You can download the program for geocoding from MP-magazine.

Then I put the coordinates in my database and make distance calculations this way.

So I didn't have a simple example.

Rainer

jmiller55 · #5 (**permalink**) 06-24-2003

Rainer: I have the route working. Thanks to your help, I had the information I needed to do the rest of it.
Regards,
Jim

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Generate intermediate waypoints from a route - how?	Gizz	MapPoint Web Service and Virtual Earth	3	07-09-2007 07:23 AM
Delete Numerator from waypoints when i draw a route	Genamo	MapPoint 2006/2009 Discussion	0	02-23-2006 03:18 AM
How to hide waypoints in a route?	Anonymous	MapPoint 2006/2009 Discussion	1	08-06-2004 08:46 AM
How do I calculate a route distance without displaying route	spideybud	MapPoint 2006/2009 Discussion	4	09-09-2003 10:14 AM
Converting a route to waypoints	Anonymous	MapPoint 2006/2009 Discussion	3	06-04-2003 12:27 PM

MapForums

add two waypoints and calculate route with Delphi

add two waypoints and calculate route with Delphi

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads