1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

procedure TfrmCreator.btnCreateClick(Sender: TObject);
var MapFS:TFileStream;
    i,y:Integer;
    ThisItem,NewElem,NewWPElem:TJvSimpleXMLElem;
begin
  btnCreate.Enabled:=False;

  MapFS:=TFileStream.Create('input/'+edtInput.Text,fmOpenRead);
  XML.LoadFromStream(MapFS);
  MapFS.Destroy;

  for i:=0 to pred(XML.Root.Items.Count) do
  begin
    ThisItem:=XML.Root.Items.Item[i];

    // Ist ein (Knoten-)Punkt
    if ThisItem.Name='node' then
    begin
      NewElem:=XMLWaypoints.Root.Items.Add(ThisItem.Properties.ItemNamed['id'].Value);
      NewElem.Items.Add('X',ThisItem.Properties.ItemNamed['lon'].Value);
      NewElem.Items.Add('Y',ThisItem.Properties.ItemNamed['lat'].Value);
      XMLWaypoints.Root.Items.Add(NewElem);
    end
    else if ThisItem.Name='way' then
    begin
      NewElem:=XMLStreets.Root.Items.Add(ThisItem.Properties.ItemNamed['id'].Value);

      NewWPElem:=NewElem.Items.Add('waypoints');
      for y:=0 to pred(ThisItem.Items.Count) do
      begin
        // Ist ein Wegpunkt...
        if ThisItem.Items.Item[y].Name='nd' then
          NewWPElem.Items.Add('wp',ThisItem.Items.Item[y].Properties.ItemNamed['ref'].Value)
        // Ist eine Eigenschaft...
        else if (ThisItem.Items.Item[y].Name='tag') AND (ThisItem.Items.Item[y].Properties.ItemNamed['k'].Value='name') then
          NewElem.Items.Add('name',UTF8ToAnsi(ThisItem.Items.Item[y].Properties.ItemNamed['v'].Value))
        else if (ThisItem.Items.Item[y].Name='tag') AND (ThisItem.Items.Item[y].Properties.ItemNamed['k'].Value='highway') then
          NewElem.Items.Add('type',ThisItem.Items.Item[y].Properties.ItemNamed['v'].Value);
      end;
      TRY
        if (NewElem.Items.ItemNamed['name'].Value<>'') OR (NewElem.Items.ItemNamed['type'].Value<>'') then
          XMLStreets.Root.Items.Add(NewElem);
      EXCEPT
        // Die Straße hat keinen Namen oder keinen Typ... Mit dem Auto wahrscheinlich nicht befahrbar!
      END;
    end;
  end;

  XMLWaypoints.SaveToFile('output/Waypoints.xml');
  XMLStreets.SaveToFile('output/Streets.xml');

  btnCreate.Enabled:=True;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TfrmMain.DrawMap(Mitte:String);
var MitteX,MitteY:Double;
    i,y:Integer;
    firststreetwp:Boolean;
    streetid:String;
begin
  for i:=0 to High(Streets) do
  begin
    // Wegpunkte durchgehen
    firststreetwp:=true;
    streetid:=Streets[i].ID;
    // [-> PUNKT 2 <-]
    for y:=0 to High(Waypoints) do
    begin
      // [-> PUNKT 2 <-]
      if Waypoints[i].Street=streetid then
      begin
        if firststreetwp then
          imgMap.Canvas.MoveTo(Round(ZOOM*GeoPoints[GetPointByID(Waypoints[i].Point)].lat),Round(ZOOM*GeoPoints[GetPointByID(Waypoints[i].Point)].lon))
        else
          imgMap.Canvas.LineTo(Round(ZOOM*GeoPoints[GetPointByID(Waypoints[i].Point)].lat),Round(ZOOM*GeoPoints[GetPointByID(Waypoints[i].Point)].lon));
        showmessage('ka-boom');

        firststreetwp:=false;
      end;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TfrmMain.FormCreate(Sender: TObject);
var i:Integer;
begin
  SQL:=TMySQLClient.Create;
  SQL.Host:='localhost';
  SQL.User:='Myribo';
  SQL.Password:='meinpw';
  SQL.Db:='navi';
  SQL.Connect;

  AllPointsSQL:=mysql_query('SELECT * FROM points');
  AllPointsSQL.First;
  SetLength(GeoPoints,AllPointsSQL.RowsCount);
  for i:=0 to pred(AllPointsSQL.RowsCount) do
  begin
    GeoPoints[i].ID:=AllPointsSQL.FieldValue(0);
    GeoPoints[i].lat:=StringToFloat(AllPointsSQL.FieldValue(1));
    GeoPoints[i].lon:=StringToFloat(AllPointsSQL.FieldValue(2));
    AllPointsSQL.Next;
  end;

  AllWayPointsSQL:=mysql_query('SELECT * FROM waypoints');
  AllWayPointsSQL.First;
  SetLength(Waypoints,AllWayPointsSQL.RowsCount);
  for i:=0 to pred(AllWayPointsSQL.RowsCount) do
  begin
    Waypoints[i].Street:=AllWayPointsSQL.FieldValue(0);
    Waypoints[i].Point:=AllWayPointsSQL.FieldValue(1);
    AllWayPointsSQL.Next;
  end;

  AllStreetsSQL:=mysql_query('SELECT * FROM streets');
  AllStreetsSQL.First;
  SetLength(Streets,AllStreetsSQL.RowsCount);
  for i:=0 to pred(AllStreetsSQL.RowsCount) do
  begin
    Streets[i].ID:=AllStreetsSQL.FieldValue(0);
    Streets[i].StreetType:=AllStreetsSQL.FieldValue(1);
    Streets[i].StreeName:=AllStreetsSQL.FieldValue(2);
    AllStreetsSQL.Next;
  end;

  ZOOM:=1000;
  SQL.Close;
end;