{$apptype console} {$IFDEF FPC} {$mode delphi} {$ENDIF} uses jnxlib in '..\jnxlib.pas', utf8 in '..\utf8.pas', classes; var Writer: TJNXWriter; MemoryStream: TMemoryStream; StringStream: TStringStream; Bounds: TJNXRect; begin Writer := TJNXWriter.Create('out.jnx'); MemoryStream := TMemoryStream.Create; StringStream := TStringStream.Create(''); try Writer.Levels := 1; Writer.LevelScale[0] := DigitalGlobeZoomToScale(15); Writer.TileCount[0] := 1; MemoryStream.LoadFromFile('sample3.jpg'); StringStream.CopyFrom(MemoryStream, 0); Bounds := JNXRect( WGS84CoordToJNX(48.86404389), WGS84CoordToJNX(2.2961425792), WGS84CoordToJNX(48.856201195), WGS84CoordToJNX(2.2857965446) ); Writer.WriteTile(0, 0, 241, 182, Bounds, StringStream.DataString); finally Writer.Free; MemoryStream.Free; StringStream.Free; end; end.