feya писал(а):это стандартное блоб поле.
Для меток можно его не использовать, а для пути/полигона нужно, т.к. там хранится массив точек.
feya писал(а):в этом поле хранится массив типа TExtendedPoint:
TExtendedPoint = record
X, Y: Extended;
end;
NetMoose писал(а):Но неплохо бы и о том подумывать, что на свете другие языки программирования и операционные системы существуют. И данные не всегда только с "венды" можно получить.
gorec писал(а):каким образом можно сформировать
lonlatarr="ADDdJAaBRb8EQAC444bfTRfQBEAAAAAAAEju6eqORb8EQAAwXYjVHxHQBEAAAAAA"
Код: Выделить всё
type
TExtendedPoint = record
X, Y: Extended;
end;
TArrLL = array [0..0] of TExtendedPoint;
PArrLL = ^TArrLL;
function Decode64(S: string): PByteArray;
const
Codes64 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
var i,a,x,b,j: Integer;
begin
GetMem(result,length(S));
j:=0;
a := 0;
b := 0;
for i := 1 to Length(s) do
begin
x := System.Pos(s[i], codes64) - 1;
if x>=0 then begin
b := b * 64 + x;
a := a + 6;
if a >= 8 then
begin
a := a - 8;
x := b shr a;
b := b mod (1 shl a);
x := x mod 256;
Result^[j]:=x;
inc(j);
end;
end
else Exit;
end;
end;
procedure GetLonLat(LonLatArr:string);
var
arrLL:PArrLL;
lat,lon:extended;
begin
arrLL:=@Decode64(LonLatArr)^;
//для примера получаем к-ты из первого эл-та массива
lon:=arrLL^[0].X;
lat:=arrLL^[0].Y;
freemem(arrLL);
end;