narychlo sem si na to napsal toto: uloz treba jako geojarry8.ggp.pas v poznamkovym blokuflyingcobra napsal/a:
Ahoj,
měl bych jednu otázku, se kterou si nevím rady. Rád bych využil ten řádek statistiky o délce logů.
Chtěl bych se zeptat, zda se dá nějak hromadně stáhnout listingy s mými logy kromě toho způsobu, kdy si všechny stránky cachí otevřu na internetu, rozbalím kompletní listing a uložím a pak to naimportuji.
Pokud použiju geojarry, a dám stahnout listing, tak to stáhne jen těch prvních 5 logů.
Zatím nejsem PM, jde to nějakou jinou cestou, nebo zatím ne.
Předem díky za odpověď
a děkuji za novou verzi statistik
{$INCLUDE geojarry.config.pas } var GjIni: string; gjresult: integer; GjIniFile: string; function PluginCaption: string; begin Result := 'Download Listings of Found caches'; end; function PluginHint: string; begin Result := 'Download Listings of Found caches (GeoJarry)'; end; function PluginFlags: string; begin Result := 'toolbar,list'; end; function PluginIcon: string; begin Result := DecodeBase64('Qk32AAAAAAAAAHYAAAAoAAAAEAAAABAAAAABAAQAAAAAAIAAAAASCwAAEgsAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AIiP////////iHQEBAQEBA+IcEBAiEBAT4h0BAiZhAQPiHBAiZmYQE+IdAiZmZmED4h3d3iZh3d4gAAAiJmIiIiA+IgImY///4B3d/CZi/v/gPiIgJmPv7+Ad3fwiIv7/4D4iIC/v7+/gHd38Pv7+/+A+IiAv7+/v4AAAAB3d3d4'); end; procedure PluginStart; begin GjIni := '[geojarry]' + CRLF; GjIni := GjIni + 'username=' + gjUsername + CRLF; GjIni := GjIni + 'password=' + gjPassword + CRLF; GjIni := GjIni + 'proxyip=' + gjproxyip + CRLF; GjIni := GjIni + 'proxyport=' + gjproxyport + CRLF; GjIni := GjIni + 'proxyuser=' + gjproxyuser + CRLF; GjIni := GjIni + 'proxypass=' + gjproxypass + CRLF; GjIni := GjIni + 'countryid=' + gjcountryid + CRLF; GjIni := GjIni + 'stateid=' + gjstateid + CRLF; GjIni := GjIni + 'maxcount=10' + CRLF; Forcedirectories(geoget_datadir + '\gjtemp\'); GjIni := GjIni + 'datadir=' + geoget_datadir + '\gjtemp\' + CRLF; GjIniFile := Geoget_datadir + '\gjtemp.ini'; StringTofile(GjIni, GjIniFile); end; procedure PluginWork; begin // import logu na vlastnich kesich gjresult := RunExec('"' + Geoget_datadir + '\geojarry.exe" "' + GjIniFile + '" raw http://www.geocaching.com/seek/cache_details.aspx?wp=' + GC.ID + '&log=y'); case gjresult of 0: begin GeoBusyKind('Import OK!'); end; end; end; procedure PluginStop; begin GeoImportDir(geoget_datadir + '\gjtemp\'); DeleteFiles(geoget_datadir + '\gjtemp\*.*'); end;nevim nakolik je to kulantni, ale mejch ~200 kesi to stahlo.. a naimportovalo
vyfiltroval sem si nalezeny kese a pustil to