Code:
// load layer (tileset + tilemap)
// tileset = TLN_LoadTileset ("Sonic_md_bg1.tsx");
tileset := uTileEngine.LoadTileset('Sonic_md_bg1.tsx');
// tilemap = TLN_LoadTilemap ("Sonic_md_bg1.tmx", "Layer 1");
tilemap := uTileEngine.LoadTileMap('Sonic_md_bg1.tmx', 'Layer 1');
Commented lines are from the C example.
Pascal header:
function LoadTileset(filename : string) : Pointer; cdecl; external dllname name 'TLN_LoadTileset';
function LoadTilemap(filename, layername : string) : Pointer; cdecl; external dllname name 'TLN_LoadTilemap';
Should be:
function LoadTileset(filename : PAnsiChar) : Pointer; cdecl; external dllname name 'TLN_LoadTileset';
function LoadTilemap(filename, layername : PAnsiChar) : Pointer; cdecl; external dllname name 'TLN_LoadTilemap';
and possibly for many others lines in the header...
Bookmarks