From 6a79bbc39dc007b5ab363700ce96fd0f96b6c2c0 Mon Sep 17 00:00:00 2001 From: sasbot <> Date: Sat, 6 Jun 2020 12:00:00 +0000 Subject: [PATCH] update zmp --- Yandex/YaTraf.zmp/GetUrlScript.txt | 114 ++++++++++++++++++++++------- Yandex/YaTraf.zmp/params.txt | 3 +- 2 files changed, 88 insertions(+), 29 deletions(-) diff --git a/Yandex/YaTraf.zmp/GetUrlScript.txt b/Yandex/YaTraf.zmp/GetUrlScript.txt index 9b5dfb2a..2605384b 100644 --- a/Yandex/YaTraf.zmp/GetUrlScript.txt +++ b/Yandex/YaTraf.zmp/GetUrlScript.txt @@ -1,40 +1,98 @@ -function retrieve_ts(url: string; xstart: string; xend: string):integer; external 'ytrf_retrieve_ts@maps\YaTraf.dll stdcall'; -function GetIntParam(key: string): Integer; external 'ytrf_GetIntParam@maps\YaTraf.dll stdcall'; -function SetIntParam(key: string; val: Integer): integer; external 'ytrf_SetIntParam@maps\YaTraf.dll stdcall'; -function GetUTS: Longint; external 'ytrf_GetUTS@maps\YaTraf.dll stdcall'; +const + ts_key = 'ytrf_ts'; + lts_key = 'ytrf_lts'; + +procedure InitScriptBuffer; +begin + if ScriptBuffer = '' then begin + ScriptBuffer := '<' + ts_key + '=0>_<' + lts_key + '=0>'; + end; +end; -function ts_update_needed(delta: integer):integer; +procedure SaveIntValue(const key: string; const value: Integer); var - lts, ts : integer; - lts_key: string; + val_expr, val_repl: string; begin - result:=0; - lts_key:='ytrf_lts'; - lts:=GetIntParam(lts_key); - ts:=GetUTS; - if (ts>lts+delta) then begin - SetIntParam(lts_key, GetUTS); - result:=1; + val_expr := '<' + key + '=(\d+)>'; + val_repl := '<' + key + '=' + IntToStr(value) + '>'; + ScriptBuffer := RegExprReplaceMatchSubStr(ScriptBuffer, val_expr, val_repl); +end; + +function GetIntValue(const key: string): Integer; +var + val_expr, val_str: string; +begin + val_expr := '<' + key + '=(\d+)>'; + val_str := RegExprGetMatchSubStr(ScriptBuffer, val_expr, 1); + if (val_str <> '') then begin + Result := StrToInt(val_str); + end else begin + Result := 0; + end; +end; + +function DownloadUrl(const AUrl: AnsiString): string; +var + VResponseCode: Cardinal; + VResponseHeader, VResponseData: AnsiString; + VRequestUrl, VRequestHeader, VPostData: AnsiString; +begin + Result := ''; + if Assigned(Downloader) then begin + VRequestUrl := AUrl; + VRequestHeader := ''; + VPostData := ''; + VResponseHeader := ''; + VResponseData := ''; + VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, VPostData, VResponseHeader, VResponseData); + if VResponseCode = 200 then begin + Result := VResponseData; + end; + end; +end; + +function IsNeedUpdateTimeStamp(const ADelta: Integer): Boolean; +var + ts, lts: Integer; +begin + ts := GetUnixTime; + lts := GetIntValue(lts_key); + if (ts > lts + ADelta) then begin + SaveIntValue(lts_key, ts); + Result := True; + end else begin + Result := False; end; end; -function get_ts(delta: integer):integer; +function GetTimeStamp(const ADelta: Integer): Integer; var - ts_key, url, data: string; - pt : LongInt; + ts: Integer; + ts_val: string; + stat_js: string; begin - result:=0; - ts_key:='ytrf_ts'; - if (ts_update_needed(delta)>0) then begin - url:='http://jgo.maps.yandex.net/trf/stat.js'; - result:=retrieve_ts(url, 'timestamp:"', '"'); - SetIntParam(ts_key, result); - end else begin - result:=GetIntParam(ts_key); - end; + ts := 0; + if IsNeedUpdateTimeStamp(ADelta) then begin + stat_js := DownloadUrl('http://jgo.maps.yandex.net/trf/stat.js'); + if stat_js <> '' then begin + ts_val := RegExprGetMatchSubStr(stat_js, 'timestamp:"(\d+)"', 1); + if ts_val <> '' then begin + ts := StrToInt(ts_val); + SaveIntValue(ts_key, ts); + end; + end; + end else begin + ts := GetIntValue(ts_key); + end; + Result := ts; end; begin - ResultURL:=''; - if (GetZ<>0) then ResultURL:=GetURLBase+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&tm='+inttostr(get_ts(60)); + InitScriptBuffer; + if GetZ <> 0 then begin + ResultURL := GetURLBase + IntToStr(GetX) + '&y=' + IntToStr(GetY) + + '&z=' + IntToStr(GetZ-1) + '&tm=' + IntToStr(GetTimeStamp(60)); + end else begin + ResultURL := ''; + end; end. diff --git a/Yandex/YaTraf.zmp/params.txt b/Yandex/YaTraf.zmp/params.txt index d6da94fd..b90bf651 100644 --- a/Yandex/YaTraf.zmp/params.txt +++ b/Yandex/YaTraf.zmp/params.txt @@ -19,4 +19,5 @@ separator=0 UseDwn=1 Sleep=0 DefHotKey=54 -DelAfterShow=1 +CacheType=9 +IsUseDownloaderInScript=1