Hi to All,
I've a mappoint map where we added all our customers. The pushpin name is equal to my CustomerID

From delphi I'm able to iterate into pushpin dataset and create a route but it's very very slow...
I use this way:

Code:

var
  i : Olevariant;
  p : Pushpin;
begin
  FMPApp.Visible := true;
  FMPApp.OpenMap(AMapFileName, false );
  i := 1;
  FDs := FMPApp.ActiveMap.DataSets.Item[i];
  FRs := FDs.QueryAllRecords;

  FRs.MoveFirst;
  while not FRs.EOF do
  begin
    p := FRs.Pushpin;
    iff p.Name = trim(ACustID) then
      FMPApp.ActiveMap.ActiveRoute.Waypoints.Add(location(p.Location),   ACodice);
    FRs.MoveNext;
  end;

Is there a faster way to do what I want?
Becaus I need to create many routes I thought to add pushpin to a tlist the first time, and iterate TList all other times... but I'm not able to do that:

I tried that:

Code:

  FRs.MoveFirst;
  while not FRs.EOF do
  begin
    p := FRs.Pushpin;
    FList.Add(pointer(p));
    FRs.MoveNext;
  end;

but when I try to retrive the pushpin from the list I get an error.
I tried:

Code:

  (IDispatch(FList.Items[i]) as Pushpin)

  and 
 
  pushpin(FList.Items[i])

all without results.
Is the first time that I work with IDispach and all, can someone help me?

Thanks a lot

Ciao
Massimiliano

Just to let you know,
that is not the right approach.

Now I do that:
take the map, iterate all pushpins and store coodinates to db.
After search location by lat/lon and add location to ActiveRoute.

It is very fast.

But I've another problem.
I'm not able to close mappoint, and all the times I get an errors when I close my program.
I don't use olecontainer, I just create the application at runtime and destroy it when I finish, but I can't destroy it, is allway alive ...

Can you help me?

Thanks
Massimiliano