Help for a delphi program

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 ! :idea:
You will find a lot of topics concerning Delphi.
as http://www.mp2kmag.com/a65--delphi.example.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:

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?

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 :


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.example.mappoint.html

Hi,

did you include Mappoint_TLB in the uses clause ?

Yes I did

Hi,

private mai lme your application. Please only relevant code, only soourse and no 3th party compoentnts. I try to check what is wrong.

I found out what the problem was, it was my shit pc! I installed it on another pc and the code works fine!

Hi,

Thx for feedback. Still it is interesting to know (for you also) what exacly the reason was it not working.