Routenplanung

[himitsu]

die URLs sollten vielleicht noch etwas codiert werden
http://www.scalabium.com/faq/dct0126.htm
http://www.delphipraxis.net/internal...ct.php?t=94711

Delphi-Quellcode:

function TGMapsLinker.GenerateLink: String;
begin
  Result := '';
  if (fToAdress = '') AND (fFromAdress = '') then
    exit;

  Result := fMainURL;

  //From
  Result := Result + '?saddr=' + HTTPEncode(fFromAdress);

  //To
  Result := Result + '&daddr=' + HTTPEncode(fToAdress);

  //Output Params
  case fOutputType of
    otJavaScript: Result := Result + '&output=js';
    otHTML:       Result := Result + '&output=html';
  end;

  //Type of the Map
  case fMapType of
    mtMap:       Result := Result + '&t=m';
    mtSatellite: Result := Result + '&t=k';
    mtHybrid:    Result := Result + '&t=h';
    mtTerrain:   Result := Result + '&t=p';
  end;

  //Zoom Set?
  if fZoomLevel > -1 then
    Result := Result + '&z='+ IntToStr(fZoomLevel);
end;