Декодер Points для Google Maps

[ZuBy]

для прямых улиц, все отлично (1 скрин)
а вот при изгибах (2 скрин)

[Аватар]

Ни чего там такого нет в примере из #1, просто в другм виде записана начальная и конечная точка. По вложению не смотрел

function Convert(d: Double): String;
var v: Cardinal;
    b: Byte;
begin
  v:=Round(d*100000) shl 1;
  if d<0 then v:=not v;
  Result:='';
  repeat
    b:=v and $1f;
    v:=v shr 5;
    if v<>0 then b:=b or $20;
    Result:=Result+Chr(b+63);
  until v=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=Convert(51.1460288)+
              Convert(71.4707722)+
              Convert(51.1463826-51.1460288)+
              Convert(71.4721348-71.4707722);  //umdwHicfsLeAoG
end;

ADD

Набросал еще обратную функу. Попробуй

function UnConvert(Text: String): String;
var i,k: Integer;
    Last: Boolean;
    c,b: Cardinal;
    Negativ: Boolean;
begin
  c:=0; k:=0; Result:='';
  for i:=1 to Length(Text) do begin
    b:=Ord(Text[i])-63;
    Last:=b<$20;
    b:=b and $1f;
    c:=c or (b shl k);
    if Last then begin
      Negativ:=c and 1 <> 0;
      c:=c shr 1;
      if Negativ then c:=not c;
      Result:=Result+FloatToStrF(Integer(c)/100000,ffFixed,12,5)+' ';
      c:=0; k:=0;
    end
    else Inc(k,5);
  end;
end;

[ZuBy]

Аватар это супер просто, но немного неправильно

{odwHykfsLEWkO~JwAz@wDdCaF`D_DlBaEb CYTUNe@XkAb@UBI@{@K}AMg@EwAI}ADmALm A\u@X}@b@e@Zg@b@[V_@`@

в Вашем варианте расшифровывает только первую пару, остальные значения не верны.

и еще в коде конверт, знак минут не обрабатывается, т.е. енкодер гугл выдает другой результат
сорри тут все верно

[Аватар]

немного неправильно

Возможно, только не вижу где. ps прога для Д7

Edit2.Text:=Convert(-179.9832104);    //`~oia@
Edit1.Text:=UnConvert('`~oia@');  //-179.98321

ADD

Остальные значения по идее смещения относительно начальных координат

51,14638 71,47213 0,00003 0,00012 0,00262 -0,00192 0,00044 -0,00030 0,00092 -0,00067 0,00113 -0,00081 0,00080 -0,00055 0,00097 -0,02066 0,00013 -0,00011 0,00011 -0,00008 0,00019 -0,00013 0,00038 -0,00018 0,00011 -0,00002 0,00005 -0,00001 0,00030 0,00006 0,00047 0,00007 0,00020 0,00003 0,00044 0,00005 0,00047 -0,00003 0,00039 -0,00007 0,01047 -0,00015 0,00027 -0,00013 0,00031 -0,00018 0,00019 -0,00014 0,00020 -0,00018 0,00014 -0,00012 0,00016 -0,00017

[ZuBy]

дело в том, что в строке который отдает гугл хранится еще данные по level'у
возможно это не учитывается

Encoding Levels

[Аватар]

А попробуй к начальной паре 51,14638 71,47213 прибавить все смещения. Получится ли конечная пара 51.1581917 71.4658522

[ZuBy]

все супер вроде, буду дальше тестировать.
если будут косяки отпишусь!

Спасибо!

хотел оставить отзыв, но вы последний кому я его оставлял...

[ZuBy]

Сообщение от Аватар

А попробуй к начальной паре 51,14638 71,47213 прибавить все смещения. Получится ли конечная пара 51.1581917 71.4658522

Вот так получается...
если раскодировать строку вашим кодом и к первым координатам добавить смещения
нач.точка+смещение=новая.точка
новая.точка+следующее.смещение=нова я точка
и тд...
получается абракадабра, маршрут неправильный. много помех
так и не смог решить как сделать правильно

[Аватар]

По прилагаемому файлу по всем данным полная сходимость от начальной к конечной по приращениям с учетом округления до 5 знаков. Не туда где-то заабракадабрил?

[ZuBy]

Проверял на калькулятор все сходится, но на деле бардак