读取X文件(Delphi版本) - billwillman

在以前版本上做了修改，完善了功能，修改了BUG。
类代码如下：

unit VRMeshXLoader;

{ TODO : .X模型文件读取单元 }

interface

uses
VRCommon,DXCommon,VRMaterial,VRTexture,VRModelObject,Direct3D9,D3DX9,Windows,SysUtils;

Type

TVRXMeshLoader = class( TInterfacedObject,IVRModelXLoader )
private
    FMesh : ID3DXMesh;
    SubmitNum : integer;
    Position : TPoint3;
    Matrix : TD3DXMatrix;
    IndexSize : integer;
    BoundingBox : IVRModelObject;//包围盒子对象
    BoundingBoxVisible : Boolean;
    MaterialList : Array Of IVRMaterial;
    TextureList : Array of IVRNormalTexture;
    function Init(const FaceNum : Cardinal;const VertexNum : Cardinal;const FVF : DWORD;const pVertexElements: PD3DVertexElement9 = nil) : Boolean;overload;      //传递顶点格式
    function LoadMaterials(const Mat : ID3DXBuffer;const Num : DWORD) : Boolean;
    procedure AddMaterial( const index : integer;const Material: IVRMaterial );
    function optimizeInPlace() : integer; ////经过优化后将自动建立属性表
     procedure AddTexture(const Index : integer;const Texture : IVRTexture);//不让用户调用，暂时不支持
     function _CreateBoundingBox() : IVRModelObject; //创建包围盒对象
public
     function Init( const FileName : String ) : Boolean;overload; //读取 X 文件
     procedure UnInit();
     procedure Render();

     procedure SetBoundingBox( const Enable : Boolean );
     function LockVertexBuffer() : Pchar;
     procedure UnLockVertexBuffer();
     function LockIndexBuffer() : PWord;
     procedure UnLockIndexBuffer();
     function LockAttriBuffer() : PDWord;//attrib是相对于面为最小单位的
     procedure UnLockAttriBuffer();
     function GetAttriTable(out table : TVRAttriTableArray) : Boolean;//获得属性表
     function SetAttribTable( const table : TVRAttriTableArray ) : Boolean;    //一般不使用
     function GetMaterial( const index : integer ) : IVRMaterial;
     Procedure RotationYLocal( const Angle : single );//绕本地 Y轴旋转，角度为弧度制
     Procedure RotationXLocal( const Angle : Single );//绕本地 X轴旋转，角度为弧度制
     Procedure RotationZLocal( const Angle : Single );//绕本地 Z轴旋转，角度为弧度制
     Procedure RotationLocal( const XAngle,YAngle,ZAngle : Single);//绕本地旋转，角度为弧度制
     Procedure transfer(const Distance: TPoint3);//平移
     function _getD3DXMesh() : ID3DXMesh;
     function getMatrix() : TD3DMatrix;
     procedure SetMatrix( const Matrix : TD3DMatrix );
     function GetIndexSize : integer;
     procedure Scale(const value : TPoint3);//缩放比例系数
     procedure RotationAxisLocal( const Angle : Single;const Up : TPoint3 );
     function GetTexture( const index : integer ) : IVRTexture;
      procedure _setD3DXMesh(const Mesh : ID3DXMesh);
      function GetBoundingBox() : IVRModelObject;
      function GetSubitNum() : integer;
      procedure ModifyTexture( const index : integer; const Texture : IVRTexture );

Constructor Create();
Destructor Destroy();override;
end;

implementation

{ TVRXMeshLoader }

procedure TVRXMeshLoader.AddMaterial(const index : integer;const Material: IVRMaterial);
begin
if index < 0 then exit;
if index >= Length( MaterialList ) then
begin
SetLength( MaterialList,index );
end;
MaterialList[Index] := Material;
end;

procedure TVRXMeshLoader.AddTexture(const Index: integer;
const Texture: IVRTexture);
begin
if index < 0 then exit;
if Index >= Length(TextureList) then
begin
SetLength( TextureList, Index );
end;
TextureList[Index] := IVRNormalTexture( Texture ) ;
end;

constructor TVRXMeshLoader.Create;
begin
UnInit;
SetLength( MaterialList,0 );
SetLength( TextureList, 0 );
end;

destructor TVRXMeshLoader.Destroy;
begin
UnInit();
SetLength( MaterialList,0 );
SetLength( TextureList, 0 );
inherited;
end;

function TVRXMeshLoader.GetAttriTable(
out table: TVRAttriTableArray): Boolean;
var
size : DWORD;
begin
Result := false;
size := 0;
if not Assigned( FMesh ) then exit; //不存在
if FMesh.GetAttributeTable(nil,@size) = D3DERR_INVALIDCALL then
exit;
if size = 0 then exit;//没有数据
setLength( table,size );
fillchar( table,size,#0);
if FMesh.GetAttributeTable(PD3DXAttributerange(table),@size) = D3DERR_INVALIDCALL then
exit;

Result := true;
end;

function TVRXMeshLoader.GetBoundingBox: IVRModelObject;
begin
Result := Self.BoundingBox;
end;

function TVRXMeshLoader.GetIndexSize: integer;
begin
result := Self.IndexSize;
end;

function TVRXMeshLoader.GetMaterial(const index: integer): IVRMaterial;
begin
Result := nil;
if index < 0 then exit;
if index >= Length( MaterialList ) then exit;
result := MaterialList[index];
end;

function TVRXMeshLoader.getMatrix: TD3DMatrix;
begin
Result := Self.Matrix;
end;

function TVRXMeshLoader.GetSubitNum: integer;
begin
Result := Self.SubmitNum;
end;

function TVRXMeshLoader.GetTexture(const index: integer): IVRTexture;
begin
result := nil;
if TextureList = nil then exit;
if Index >= Length( TextureList ) then exit;
result := TextureList[index];
end;

function TVRXMeshLoader.Init(const FileName: String): Boolean;
var
Materials : ID3DXBuffer;
MaterialsNum : DWORD;
buf : IDirect3DIndexBuffer9;
Desc:TD3DIndexBufferDesc;
begin
Result := false;
SubmitNum := 0;
IndexSize:= 0;
D3DX9.D3DXMatrixIdentity(Matrix);
Position := Point3(0,0,0);
if FileExists( FileName ) = false then exit;//文件不存在
Materials := nil;
MaterialsNum := 0;
if Failed( D3DXLoadMeshFromX( Pchar( FileName ),D3DXMESH_SYSTEMMEM,DXDevice,nil,@Materials,nil,@MaterialsNum,FMesh ) ) then exit;
D3DX9.D3DXComputeNormals(FMesh,nil);
if LoadMaterials(Materials,MaterialsNum) = false then exit;
Materials :=nil;
SubmitNum := MaterialsNum;
Result := true;

buf := nil;
FMesh.GetIndexBuffer(buf);
if buf = nil then exit;
fillchar(Desc,sizeof(TD3DIndexBufferDesc),#0);
buf.GetDesc(Desc);
case Desc.Format of
    D3DFMT_INDEX16 : indexSize := 16;
    D3DFMT_INDEX32 : indexSize := 32;
else
    indexSize := 0;
end;

//包围盒子
Self.BoundingBoxVisible := false;
Self.BoundingBox := nil;
// Messagebox(0,pchar(inttostr(Self.FMesh.GetFVF)),'',0);
//Messagebox( 0,pchar( inttostr( FMesh.GetNumBytesPerVertex ) +':'+ inttostr(FMesh.GetNumFaces)),'',0);
end;

function TVRXMeshLoader.Init(const FaceNum, VertexNum: Cardinal;
const FVF: DWORD;const pVertexElements: PD3DVertexElement9): Boolean;
begin
Result := false;
end;

function TVRXMeshLoader.LoadMaterials(const Mat : ID3DXBuffer;const Num : DWORD): Boolean;
var
Material : PD3DXMaterial;
Buf : Pchar;
index : integer;
begin
Result := false;

if Num = 0 then //本来就没有材质,就用默认材质
begin
    SetLength( MaterialList,1 );
    MaterialList[0] := TVRMaterial.Create;
    Result := true;
    exit;
end;

if Mat = nil then exit;
Buf := Mat.GetBufferPointer;
if Buf = nil then exit;

SetLength( MaterialList,Num );
SetLength( TextureList,Num );
for index := 0 to Num - 1 do
begin
Material := PD3DXMaterial(Buf + sizeof(TD3DXMaterial)*index );
//不用考虑Material不存在的情况

MaterialList[index]:=TVRMaterial.Create(Material.MatD3D);
//MaterialList[index].SetAmibent(Color4(177,177,177,255)); //测试的

    if not FileExists( Material.pTextureFilename ) then
    begin
      result := true;
      continue;
    end;

    TextureList[index] := TVRNormalTexture.Create;
   if TextureList[index].Init(Material.pTextureFilename) = false then exit;
    //暂时不考虑纹理信息
end;
Result := true;
end;

function TVRXMeshLoader.LockAttriBuffer: PDWord;
begin
//attrib是相对于面为最小单位的
Result := nil;
if Assigned( FMesh ) then
begin
FMesh.LockAttributeBuffer(D3DLOCK_DISCARD,Result);
end;
end;

function TVRXMeshLoader.LockIndexBuffer: PWord;
begin
     Result := nil;
   if Assigned( FMesh ) then
begin
    FMesh.LockIndexBuffer(D3DLOCK_DISCARD,Pointer( Result ));
end;
end;

function TVRXMeshLoader.LockVertexBuffer: Pchar;
begin
Result := nil;
if Assigned( FMesh ) then
begin
FMesh.LockVertexBuffer(D3DLOCK_DISCARD,Pointer( Result )) ;
end;
end;

procedure TVRXMeshLoader.ModifyTexture(const index: integer;
const Texture: IVRTexture);
begin
if index >= Length( TextureList ) then exit;
TextureList[index] := nil;
TextureList[index] := IVRNormalTexture( Texture );
end;

function TVRXMeshLoader.optimizeInPlace : integer;
begin
Result := 0;
end;

procedure TVRXMeshLoader.Render;
var
index : integer;
Indy,Local : TD3DMatrix;
begin
if FMesh = nil then exit;
DXDevice.GetTransform(D3DTS_WORLD,Indy);
D3DX9.D3DXMatrixMultiply(Local,Indy,Matrix);
DXDevice.SetTransform(D3DTS_WORLD,Local);
for index := 0 to SubmitNum - 1 do
begin
    MaterialList[index].PrePare;
    if TextureList[index] <> nil then
      TextureList[index].PrePare(0);
// DXDevice.SetTextureStageState(0,D3DTSS_COLORARG1,D3DTA_TEXTURE );
    FMesh.DrawSubset(index);
end;

if Self.BoundingBoxVisible then
begin
    if Self.BoundingBox <> nil then
    begin
      Self.BoundingBox.Render;
    end;
end;

DXDevice.SetTransform(D3DTS_WORLD,Indy);
end;

procedure TVRXMeshLoader.RotationAxisLocal(const Angle: Single;
const Up: TPoint3);
var
m : TD3DMatrix;
begin
D3DX9.D3DXMatrixRotationAxis(m,VRCommon.Point3ToVector(Up),Angle);
D3DX9.D3DXMatrixMultiply(Matrix,m,Matrix);
end;

procedure TVRXMeshLoader.RotationLocal(const XAngle, YAngle,
ZAngle: Single);
begin
Self.RotationYLocal(XAngle);
Self.RotationYLocal(YAngle);
Self.RotationZLocal(ZAngle);
end;

procedure TVRXMeshLoader.RotationXLocal(const Angle: Single);
var
Local : TD3DMatrix;
begin
D3DX9.D3DXMatrixRotationX( Local,angle );
D3DX9.D3DXMatrixMultiply(Matrix,Local,Matrix);
end;

procedure TVRXMeshLoader.RotationYLocal(const Angle: single);
var
Local : TD3DMatrix;
begin
D3DX9.D3DXMatrixRotationY( Local,angle );
D3DX9.D3DXMatrixMultiply(Matrix,Local,Matrix);
end;

procedure TVRXMeshLoader.RotationZLocal(const Angle: Single);
var
Local : TD3DMatrix;
begin
D3DX9.D3DXMatrixRotationZ( Local,angle );
D3DX9.D3DXMatrixMultiply(Matrix,Local,Matrix);
end;

procedure TVRXMeshLoader.Scale(const value: TPoint3);
var
scalar : TD3DMatrix;
begin
D3DX9.D3DXMatrixScaling(scalar,value.x,value.y,value.z);
D3DX9.D3DXMatrixMultiply(Matrix,scalar,Matrix);
end;

function TVRXMeshLoader.SetAttribTable(
const table: TVRAttriTableArray): Boolean;
begin
Result := false;
end;

procedure TVRXMeshLoader.SetBoundingBox(const Enable: Boolean);
begin
if Self.BoundingBox = nil then
begin
Self.BoundingBox := Self._CreateBoundingBox;
end;
Self.BoundingBoxVisible := Enable;
end;

procedure TVRXMeshLoader.SetMatrix(const Matrix: TD3DMatrix);
begin
Self.Matrix := Matrix;
end;

procedure TVRXMeshLoader.transfer(const Distance: TPoint3);
var
local : TD3DMatrix;
begin
// Local := D3DX9.D3DXMatrix(1,0,0,0,0,1,0,0,0,0,1,0,Distance.x,Distance.y,Distance.z,1);
D3DX9.D3DXMatrixTranslation(Local,Distance.x,Distance.y,Distance.z);
//D3DX9.D3DXMatrixTranslation(local,Distance.x,Distance.y,Distance.z);
D3DX9.D3DXMatrixMultiply(Matrix,Matrix,Local);
Position := Point3Add( Position, Distance );
end;

procedure TVRXMeshLoader.UnInit;
var
index : integer;
begin

for index := 0 to Length(MaterialList) - 1 do
begin
MaterialList[index] := nil;
end;
Self.BoundingBoxVisible := false;
Self.BoundingBox := nil;
FMesh := nil;
end;

procedure TVRXMeshLoader.UnLockAttriBuffer;
begin
if Assigned( FMesh ) then
begin
FMesh.UnlockAttributeBuffer;
end;
end;

procedure TVRXMeshLoader.UnLockIndexBuffer;
begin
if Assigned( FMesh ) then
begin
FMesh.UnlockIndexBuffer;
end;
end;

procedure TVRXMeshLoader.UnLockVertexBuffer;
begin
if Assigned( FMesh )then
begin
FMesh.UnlockVertexBuffer;
end;
end;

function TVRXMeshLoader._CreateBoundingBox: IVRModelObject;
var
Data : Pointer;
Min,Max : TD3DVector;
Mesh : ID3DXMesh;
begin
Result := nil;
if Failed(FMesh.LockVertexBuffer(D3DLOCK_READONLY,Data)) then exit;
try
    if Failed(D3DX9.D3DXComputeBoundingBox( PD3DXVector3( Data ), FMesh.GetNumVertices, FMesh.GetNumBytesPerVertex, Min, Max)) then exit;
    if Failed( D3DXCreateBox( DXDevice, Max.x - Min.x, Max.y - Min.y, Max.z - Min.z,Mesh,nil) ) then exit;
    Result := TVRModelObject.Create;
    Result._setD3DXMesh(Mesh);
Finally
    Mesh := nil;
    FMesh.UnlockVertexBuffer;
end;
end;

function TVRXMeshLoader._getD3DXMesh: ID3DXMesh;
begin
result := Self.FMesh;
end;

procedure TVRXMeshLoader._setD3DXMesh(const Mesh: ID3DXMesh);
begin
Self.FMesh := Mesh;
Self.optimizeInPlace;
end;

end.

发表于 2007-12-19 13:26 billwillman 阅读(1285) 评论(0) 编辑收藏举报