adkimages.pas

N年前有个法国小组用Delphi写了一个2D网游（AD&D类型）

unit ADKImages;

{
 Biblioth鑡ue d'images pour le projet ADK-ISO (c)2003 Paul TOTH <[e-mail]>

 http://www.web-synergy.net/naug-land/

}

{
  Format des fichiers IML

  [Header              ]
  [Donn閑s compress閑s ](array of data)
  [Tableau des images  ](array of TImage)
  [Palettes de couleurs](array of TPalette)

}

interface

uses
 Windows,Graphics,Classes,SysUtils,ADKCompress,ADKDepth,ADKScreens;

const
 LIB_SIGNATURE:array[0..3] of char='IMGL';
 LIB_VERSION  :Cardinal=102;

// Historique des versions
// 101 - premi鑢e version
// 102 - packed records, d閜lacement de la compression dans ADKCompress

type
 THeader=packed record
  Signature  :cardinal; // LIB_SIGNATURE
  Version    :cardinal; // LIB_VERSION
  Images     :cardinal; // nombre d'images (8bit)
  ImagesOfs  :cardinal; // position du tableau de TImage
  Palettes   :cardinal; // nombre de palettes (256 couleurs)
  PalettesOfs:cardinal; // position du tableau de TPalette
 end;

 TADKImage=packed record
  Palette    :Cardinal; // num閞o de la palette
  Transparent:SmallInt; // couleur de transparence (ou -1)
  Width      :integer;  // Largeur de l'image (sans alignement)
  Height     :integer;  // Hauteur de l'image
  Pixels     :Cardinal; // position des pixels (ou 0 si image supprim閑)
 end;
 TADKImages=array[word] of TADKImage;

// TPalette=ADKCompress.TPalette;
// TPalettes=array[word] of TPalette32;
// TPaletteW=array[#0..#255] of word;

 TBlendW=function(a,b:word):word;

 TADKImageLib=class(TADKCompressedDIB)
 private
  fFileName:string;       // nom du fichier
  fReadOnly:boolean;      // mode d'acc鑣 au fichier
  fFile    :integer;      // Handle du fichier
  fSize    :Cardinal;     // Taille du fichier
  fMap     :integer;      // le FileMapping !
  fBase    :pchar;        // pointer sur le fichier sur "disque mapp