3D迷宫源码(含编辑器源码)

【源码目录】

2731_Delphi.OpenGL编的3D迷宫带地图编辑器

├── 3D迷宫.exe
├── demo1.map
├── demo2.map
├── door.bmp
├── roomceiling.bmp
├── roomfloor.bmp
├── stonefloor.jpg
├── wall2.bmp
├── wallBetter.bmp
├── wallBetter.jpg
├── www.delphifans.com.nfo
├── 说明.txt
├── 源代码
│   ├── 3D迷宫
│   │   ├── OpenGLApp.cfg
│   │   ├── OpenGLApp.dof
│   │   ├── OpenGLApp.dpr
│   │   ├── OpenGLApp.res
│   │   ├── Textures.dcu
│   │   ├── Textures.pas
│   │   ├── ceiling.jpg
│   │   ├── demo1.map
│   │   ├── door.bmp
│   │   ├── floor.bmp
│   │   ├── lift.bmp
│   │   ├── roomceiling.bmp
│   │   ├── roomceiling.jpg
│   │   ├── roomfloor.bmp
│   │   ├── roomfloor.jpg
│   │   ├── roomwall.jpg
│   │   ├── stonefloor.jpg
│   │   ├── wall.bmp
│   │   ├── wall2.bmp
│   │   ├── wallBetter.bmp
│   │   ├── wallBetter.jpg
│   │   ├── wallBetter1.bmp
│   │   └── walls.jpg
│   └── 地图编辑器
│       ├── Project1.cfg
│       ├── Project1.dof
│       ├── Project1.dpr
│       ├── Project1.res
│       ├── Unit1.dcu
│       ├── Unit1.ddp
│       ├── Unit1.dfm
│       ├── Unit1.pas
│       ├── Unit2.dcu
│       ├── Unit2.ddp
│       ├── Unit2.dfm
│       ├── Unit2.pas
│       ├── Unit3.dcu
│       ├── Unit3.ddp
│       ├── Unit3.dfm
│       ├── Unit3.pas
│       └── demo.map
└── 地图编辑器.exe

3 directories, 53 files

【核心代码】

function LoadJPGTexture(Filename: String; var Texture: GLuint; LoadFromResource : Boolean): Boolean;
var
  Data : Array of LongWord;
  W, Width : Integer;
  H, Height : Integer;
  BMP : TBitmap;
  JPG : TJPEGImage;
  C : LongWord;
  Line : ^LongWord;
  ResStream : TResourceStream;      // used for loading from resource
begin
  result :=FALSE;
  JPG:=TJPEGImage.Create;

  if LoadFromResource then // Load from resource
  begin
    try
      ResStream := TResourceStream.Create(hInstance, PChar(copy(Filename, 1, Pos('.', Filename)-1)), 'JPEG');
      JPG.LoadFromStream(ResStream);
      ResStream.Free;
    except on
      EResNotFound do
      begin
        MessageBox(0, PChar('File not found in resource - ' Filename), PChar('JPG Texture'), MB_OK);
        Exit;
      end
      else
      begin
        MessageBox(0, PChar('Couldn''t load JPG Resource - "' Filename '"'), PChar('BMP Unit'), MB_OK);
        Exit;
      end;
    end;
  end
  else
  begin
    try
      JPG.LoadFromFile(Filename);
    except
      MessageBox(0, PChar('Couldn''t load JPG - "' Filename '"'), PChar('BMP Unit'), MB_OK);
      Exit;
    end;
  end;

  // Create Bitmap
  BMP:=TBitmap.Create;
  BMP.pixelformat:=pf32bit;
  BMP.width:=JPG.width;
  BMP.height:=JPG.height;
  BMP.canvas.draw(0,0,JPG);        // Copy the JPEG onto the Bitmap

  //  BMP.SaveToFile('D:\test.bmp');
  Width :=BMP.Width;
  Height :=BMP.Height;
  SetLength(Data, Width*Height);

  For H:=0 to Height-1 do
  Begin
    Line :=BMP.scanline[Height-H-1];   // flip JPEG
    For W:=0 to Width-1 do
    Begin
      c:=Line^ and $FFFFFF; // Need to do a color swap
      Data[W (H*Width)] :=(((c and $FF) shl 16) (c shr 16) (c and $FF00)) or $FF000000;  // 4 channel.
      inc(Line);
    End;
  End;

  BMP.free;
  JPG.free;

  Texture :=CreateTexture(Width, Height, GL_RGBA, addr(Data[0]));
  result :=TRUE;
end;