SASGIS - SAS.Планета
View Issue Details
IDProjectCategoryView StatusDate SubmittedLast Update
0002783SAS.Планета[All Projects] Хотелкаpublic06-08-2015 07:4806-08-2015 12:04
Reporterzoulou 
Assigned Tozed 
PrioritynormalSeveritymajorReproducibilityalways
StatusresolvedResolutionfixed 
PlatformOSOS Version
Product Version141212 
Target Version150915Fixed in Version150915 
Summary0002783: Add to Pascal Script supprot of MD5 hash
Descriptionfile png 256x256 on http://amudanan.co.il :
http://a.amudanan.co.il/tiles/I50N64/4ad6114ecf2f44c84765c5bf7c1c2614.png

Is it possible to use hashed tiles MD5 ?
Israeli topo site uses following function "MD5Script" to get the tiles.

Text convert to MD5 for a example:
Copyrighted AmudAnan 15/13328/19584" equals "4ad6114ecf2f44c84765c5bf7c1c2614"

GetUrlScript.txt:
TextToMd5 := MD5String('Copyrighted AmudAnan ' + IntToStr(GetZ-1) + '/' + IntToStr(GetY) + '/' + IntToStr(GetX));
ResultURL := GetURLBase + TextToMd5+ '.png';

But there is a error "MD5Script". Why? Because there is no such functions yet on Description of Pascal scripts.
=> Function: MD5String(const Adata: string): string
Steps To Reproduce
Additional Information
TagsNo tags attached.
Relationships
Attached Files
Issue History
Date ModifiedUsernameFieldChange
06-08-2015 07:48zoulouNew Issue
06-08-2015 10:45vdemidovProjectДоработка карты (ZMP) => SAS.Планета
06-08-2015 10:45vdemidovCategoryДоработка файла карты => Баг
06-08-2015 10:46vdemidovStatusnew => confirmed
06-08-2015 10:46vdemidovProduct Version => 141212
06-08-2015 10:46vdemidovTarget Version => 150915
06-08-2015 10:46vdemidovSummarytext convert to MD5 hash => Add to Pascal Script supprot of MD5 hash
06-08-2015 10:46vdemidovAdditional Information Updatedbug_revision_view_page.php?rev_id=6680#r6680
06-08-2015 10:50zedAssigned To => zed
06-08-2015 10:50zedStatusconfirmed => assigned
06-08-2015 10:50zedCategoryБаг => Хотелка
06-08-2015 12:03zedNote Added: 0016357
06-08-2015 12:03zedNote Edited: 0016357bug_revision_view_page.php?bugnote_id=16357#r6682
06-08-2015 12:04zedStatusassigned => resolved
06-08-2015 12:04zedFixed in Version => 150915
06-08-2015 12:04zedResolutionopen => fixed

Notes
(0016357)
zed   
06-08-2015 12:03   
Done.

Now you can use it like: Result := LowerCase(MD5String('Copyrighted AmudAnan 15/13328/19584'));