Форум SAS.Планета

vasketsov писал(а):

Cheetos писал(а):чтобы тайлы в выделенной области средствами планеты скопировать куда-либо, их предварительно надо прочитать из сетевой папки и передать в планету

А в wine сас не работает?

Сам не проверял, но говорят, что сас в wine работает. Только wine на NASe (Synology DSxxx) не работает

Если в планете выделить необходимую область и попытаться скопировать в другое место, то уйдет уйма времени, так как кэш будет литься потайлово. Как вариант можно упаковать необходимую часть кэша средствами linux, скопировать получившийся архив по сетке, после чего распаковать его в другом месте ...

Есть локальная сетка, в которой есть комп на windows с SAS.Планетой и NAS-сервер на linux с расшаренной папкой с большим кэшем от планеты. Извечная проблема - копирование части кэша, да еще и по сетке.
Если в планете выделить необходимую область и попытаться скопировать в другое место, то уйдет уйма ...

По-моему, можно проще:
function LonLatArr(DP: TDoublePoint): String;
var
ExtPoint: TExtendedPoint;
begin
ExtPoint.X := DP.X;
ExtPoint.Y := DP.Y;
ExtPoint.Reserved := 0;
Result := Base64Encode(PAnsiChar(@ExtPoint), SizeOf(ExtPoint));
end;
Совершенству нет предела :)


Но это если всего одна ...

Это было очень неудачное решение на заре развития программы. Писать её начинали студенты-программисты, поэтому вот такое наследие: и мусорные 4 байта и монструозный Extended.
Благодарю за пояснение! Понимаю, что всегда бывают недочеты, приятно, что при их наличии SAS.Планета разрослась в такой ...

to zed:
1. Выражаю огромную благодарность за оказанную помощь.
2. В отношении директивы {$A4} для решения конкретной задачи - она не обязательна - packed record ее игнорирует.

1. В uses добавляем EDBase64
2. Объявляем следующие типы:
type
TExtendedPoint = packed record
X: Extended;
Y: Extended;
Reserved: LongWord;
end;

type
TDoublePoint = record
X: Double;
Y: Double;
end;
3. Юзаем функцию LonLatArr, где в качестве параметра передаем координаты точки в градусах ...

vdemidov писал(а):А еще не забываем о 4-х байтах мусора, которые появляются из-за неупакованности структуры.

1. Про какую неупакованную структуру идет речь?
2. Sas.Планета как-то умудряется прочитать эти данные

А с чего вы решили, что у координат именно столько знаков после запятой? По-моему, тут проблема с точностью округления.
1. Координаты взяты из файла marks.sml (для точки lonL=LonR, latT=LatB)
2. Если бы была проблема с округлением, то в результате я бы получил точку с координатами отличными от ...

1. Создаю новый файл.
2. Кидаю на форму Button1 и Memo1.
3. Подключаю в uses EDBase64.
4. Описываю следующие типы:
type
TGeometryPointSML = packed record
X: Extended;
Y: Extended;
Reserved: LongWord; // proper record aligment for backward compatibility
end;
PGeometryPointSML ...