开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 游戏引擎 > 查看源码
imgcnv.dpr
资源名称：CAST2SDK.rar　[点击查看]
上传用户：yj_qiu
上传日期：2022-08-08
资源大小：23636k
文件大小：2k
源码类别：

游戏引擎

开发平台：

Delphi

imgcnv.dpr：源码内容
  1. program imgcnv;
  3. {$APPTYPE CONSOLE}
  5. uses
  6.   SysUtils,
  7.   Imaging, ImagingTypes;
  9. var
  10.   Img: TImageData;
  11.   DestFormat: TImageFormat;
  13.   procedure HaltWithError(const Str: string; Code: Integer);
  14.   begin
  15.     Writeln(Str);
  16.     FreeImage(Img);
  17.     Halt(Code);
  18.   end;
  20.   function ChooseFormat(const FmtStr: string): TImageFormat;
  21.   type TFmtRec = record Str: string[8]; Format: TImageFormat; end;
  22.   const
  23.     KnownFormats: array[0..9] of TFmtRec = (
  24.       (Str: 'Gray8';    Format: ifGray8),
  25.       (Str: 'Gray16';   Format: ifGray16),
  26.       (Str: 'R5G6B5';   Format: ifR5G6B5),
  27.       (Str: 'A1R5G5B5'; Format: ifA1R5G5B5),
  28.       (Str: 'A4R4G4B4'; Format: ifA4R4G4B4),
  29.       (Str: 'R8G8B8';   Format: ifR8G8B8),
  30.       (Str: 'A8R8G8B8'; Format: ifA8R8G8B8),
  31.       (Str: 'DXT1';     Format: ifDXT1),
  32.       (Str: 'DXT3';     Format: ifDXT3),
  33.       (Str: 'DXT5';     Format: ifDXT5)
  34.     );
  35.   var i: Integer;
  36.   begin
  37.     Result := ifUnknown;
  38.     i := High(KnownFormats);
  39.     while (i >= 0) and (KnownFormats[i].Str <> FmtStr) do Dec(i);
  40.     if not (i >= 0) then begin
  41.       Writeln('Invalid output format. Supported formats:');
  42.       for i := 0 to High(KnownFormats) do Writeln('  ', KnownFormats[i].Str);
  43.       HaltWithError('', 3);
  44.     end else Result := KnownFormats[i].Format;
  45.   end;
  47. begin
  48.   if ParamCount < 2 then
  49.     HaltWithError('Usage: imgcnv <input file> <output file> [<output format>]', 1);
  51.   if ParamCount > 2 then
  52.     DestFormat := ChooseFormat(ParamStr(3))
  53.   else
  54.     DestFormat := ifUnknown;
  56.   Writeln('Loading image ', ParamStr(1), '...');
  57.   if not LoadImageFromFile(ParamStr(1), Img) then
  58.     HaltWithError('Error loading image ' + ParamStr(1) + '!', 2);
  60.   if (DestFormat <> ifUnknown) and (DestFormat <> Img.Format) then begin
  61.     Writeln('Converting to format ', ParamStr(3), '...');
  62.     if not ConvertImage(Img, DestFormat) then HaltWithError('Conversion error', 3);
  63.   end;
  65.   Writeln('Saving image as ', ParamStr(2), '...');
  66.   if not SaveImageToFile(ParamStr(2), Img) then
  67.     HaltWithError('Error saving image as ' + ParamStr(2) + '!', 4);
  69.   HaltWithError('Success!', 0);
  70. end.