SASGIS

  TTileInfo = packed record

    IsExists    : Boolean;

    IsExistsTne : Boolean;

    LoadDate    : Int64; // unix timestamp

    Size        : Cardinal;

    Version     : string;

    ContentType : AnsiString;

    Data        : AnsiString;

  end;



  IPascalScriptTileCache = interface    

    function Read(

      const X: Integer;

      const Y: Integer;

      const AZoom: Byte;

      const AVersion: string;

      const AWithData: Boolean

    ): TTileInfo;



    function Write(

      const X: Integer;

      const Y: Integer;

      const AZoom: Byte;

      const AVersion: string;

      const AContentType: AnsiString;

      const AData: AnsiString;

      const AIsOverwrite: Boolean

    ): Boolean;



    function WriteTne(

      const X: Integer;

      const Y: Integer;

      const AZoom: Byte;

      const AVersion: string

    ): Boolean;



    function Delete(

      const X: Integer;

      const Y: Integer;

      const AZoom: Byte;

      const AVersion: string

    ): Boolean;

  end;

procedure PrintInfo(var AInfo: TTileInfo);

begin

  Logger.WriteFmt(

    'IsExists: %d, IsExistsTne: %d, Size: %d, Content-Type: %s, Date: %d',

    [AInfo.IsExists, AInfo.IsExistsTne, AInfo.Size, AInfo.ContentType, AInfo.LoadDate]

  );

end;



var

  VInfo: TTileInfo;

  VResult: Boolean;

begin 

  VResult := TileCache.Write(0, 0, 0, '', 'image/png', '123', False);

  writeln(IntToStr(Integer(VResult)));

  

  VInfo := TileCache.Read(0, 0, 0, '', True);

  PrintInfo(VInfo);

  

  VResult := TileCache.WriteTne(0, 0, 0, '');

  writeln(IntToStr(Integer(VResult)));

  

  VInfo := TileCache.Read(0, 0, 0, '', True);

  PrintInfo(VInfo);

end.

Global.Lock;

try

  // тут весь код формирования ResultURL

finally

  Global.Unlock;

end;

var

  VInfo: TTileInfo;

  VResult: Boolean;

begin 

//  VResult := TileCache.Write(0, 0, 0, '', 'image/png', '123', False);

  writeln(IntToStr(Integer(VResult)));

//  VInfo := TileCache.Read(0, 0, 0, '', True);

end.