I should make a program in Delphi to show a route with a list of destinations.
I need an example to begin.
Thanks

Hi,

You should use "Search" engine here !
You will find a lot of topics concerning Delphi.
as http://www.mp2kmag.com/a65--delphi.e....mappoint.html
( Is Delphi easy to use ? )

Rgds

Hi Mohamed,

Is Delphi easy to use ?

Yes very easy, very type structured, but you can typecast everyting what you wants. It is very high level, but you can go to low level programming if needed without problem, and it support inline assembler.

I already read the example nr 65 and other examples in the forum, but they are not sufficient for my use. I'm searching for an example to design a route with a list of 10-20 address and to know the cost,price and distance.

Hi,

Thisi is how to calc a route from an address in Delphi:

Code:

var
   RT: Route;
   Loc: Location;
   Results: FindResults;
   i: OleVariant;
begin
   RT := FMap.ActiveRoute;
   RT.Clear;
   i := 1;

   Results := FMap.FindAddressResults(Street1, Place1, '', '', PostC1, GeoCountryBelgium);
   if Results.ResultsQuality = geoNoResults then
      Exit;
   Loc := Location(Results.Item[i]);
   RT.Waypoints.Add(Loc, '');

   Results := FMap.FindAddressResults(Street2, Place2, '', '', PostC2, GeoCountryBelgium);
   if Results.ResultsQuality = geoNoResults then
      Exit;
   Loc := Location(Results.Item[i]);
   RT.Waypoints.Add(Loc, '');

   RT.Calculate;

Hi,

It works!
Do you know how to set parameters of speed, starting time, cost x litres and preference route?

Code:

   RT.DriverProfile.PreferredRoads[geoRoadInterstate] := 0.8;
   RT.DriverProfile.PreferredRoads[geoRoadStreet] := 0.5;
   // etc
   RT.DriverProfile.Speed[geoRoadInterstate] := 160;
   RT.DriverProfile.Speed[geoRoadStreet] := 50;
   // etc

You find some other membersin the Route and Driverprofile objects to set.

I have tried your code in delphi and it comes up with the error : EoleSysError with message 'Class not registered'

Hi,

What is the offending line of code ?

I get a Invalid Class String from this line of code :

Code:

OleContainer.CreateObject('MapPoint.Map.EU.11', False);

Any ideas ow to fix it, i have copied the example from http://www.mp2kmag.com/a65--delphi.e....mappoint.html

Hi,

did you include Mappoint_TLB in the uses clause ?