Ahoj vespolek,
omlouvám se, pokud je někde zodpovězeno, ale zatím jsem nenašel žádný funkční soubor gge.pas, který by uměl z Geoget vyexportovat datový soubor použitelný pro iGo8.
Po 2 dnech pokusů mám funkční nástřel, zatím neumím výsledný soubor uložit v kodování Unicode, poradí někdo?
Přílohou iGo8.gge.pas, ve kterém jsem snad překonal všechny syntaktické záludnosti iGo8 (např. souřadnice ve tvaru xx.aaaaaa - 6 desetinných míst; číslování WayPointů).
Grafickou podobu (ikony v iGo8) jsem zvolil pokusně, v iGo8 mám zapnuté pro skupinu GC zobrazení 25km, pro skupinu GCWP - 1000m
výsledný soubor se musí jmenovat user.upoi, uložen jako iGO8\save\user.upoi
Poradí někdo s Unicode?
díky
__
doplněk, protože mi nefunguje uložení přílohy, kopíruji zdroják
var poradi: integer;
var poradiWP: integer;
var druhkesky: string;
function ExportExtension: string;
begin
result := ‘upoi’;
end;
function ExportDescription: string;
begin
result := ‘iGo8 export’;
end;
function ExportHeader: string;
begin
Result := ‘’;
end;
function ExportFooter: string;
begin
result := ‘@My POI’ + CRLF;
end;
function ExportPoint: string;
var
s: string;
Num: string;
begin
if poradi < 10 then poradi := 10;
poradi := poradi + 1;
if length(GC_Lat) > 9 then GC_lat := Copy(GC_Lat, 1, 9);
if length(GC_Lat) = 8 then GC_lat := GC_Lat + ‘0’;
if length(GC_Lat) = 7 then GC_lat := GC_Lat + ‘00’;
if length(GC_Lat) = 6 then GC_lat := GC_Lat + ‘000’;
if length(GC_Lon) > 9 then GC_Lon := Copy(GC_Lon, 1, 9);
if length(GC_Lon) = 8 then GC_Lon := GC_Lon + ‘0’;
if length(GC_Lon) = 7 then GC_Lon := GC_Lon + ‘00’;
if length(GC_Lon) = 6 then GC_Lon := GC_Lon + ‘000’;
if gc_type=‘Traditional Cache’ then druhkesky := ‘community.police_station’;
if gc_type=‘Multi-cache’ then druhkesky := ‘Community.Prison’;
if gc_type=‘Unknown Cache’ then druhkesky := ‘community.college_university’;
if gc_type=‘Webcam Cache’ then druhkesky := ‘Tourist_Attractions.Winery’;
if gc_type=‘Event Cache’ then druhkesky := ‘Tourist_Attractions.Winery’;
if gc_type=‘Letterbox Hybrid’ then druhkesky := ‘Tourist_Attractions.Winery’;
if gc_type=‘Earthcache’ then druhkesky := ‘Community.Place_of_Worship’;
if gc_type=‘Virtual Cache’ then druhkesky := ‘Tourist_Attractions.Winery’;
if GC_IsWaypoint or GC_IsUserWaypoint then
begin
//Export for Waypoints
poradiWP := poradiWP + 1;
s := GC_ID + ‘W’ + IntToStr(poradiWP);
S[1] := ‘W’;
S[2] := ‘P’;
Num := IntToStr(Poradi);
Result := Result + Num + ‘|’ + ‘GcWp’ + ‘|’ + s + ‘|parking|’ + GC_Lat + ‘|’ + GC_Lon + ‘|_CZE|||Téměř nic|Nepojmenovaná silnice|||’ + CRLF;
end
else
begin
//Export for Geocaches
s := GC_ID;
S[1] := ‘W’;
S[2] := ‘P’;
poradiWP := 0;
Num := IntToStr(Poradi);
Result := Result + Num + ‘|’ + ‘GC’ + ‘|’ + GC_ID + ‘|’ + druhkesky + ‘|’ + GC_Lat + ‘|’ + GC_Lon + ‘|_CZE|||Téměř nic|Nepojmenovaná silnice|||’ + CRLF;
end
end;
