Routenplanung

[Mithrandir]

Zitat von sx2008:

Falls du eine schöne Unit dafür basteln würdest, wäre das bestimmt von allgemeinem Interesse...

Rudimentär, aber funktioniert...

Beispielaufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  GM: TGMapsLinker;
begin
  GM := TGMapsLinker.Create;
  GM.FromAdress := 'Platz der Republik 1, 11011 Berlin';
  GM.ToAdress := 'Hinrich-Wilhelm-Kopf-Platz 1, 30159 Hannover';
  GM.OutputType := otNormal;
  GM.MapType := mtSatellite;
  Edit1.Text := GM.GenerateLink;
end;