[Delphi et DirectX] Tableau de vertices

Version imprimable

29/04/2005, 18h01
El-ToniO

[Delphi et DirectX] Tableau de vertices

Bonjour, j'ai un probleme qui me bloque pas mal. J'arrive a créer et afficher un tableau de vertices lorsque je le crée moi meme en CONSTANTE mais lorsque je met ce meme tableau de vertice en variable, le programme plante, plus rien ne marche... je ne c pas comment faire. Merci davance pour vos reponse

voila un peu de code... c'est vraiment bizarre comme probleme... Ne serais ce pas a cause du D3DPOOL_DEFAULT... moi je sèche...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
type
  TCustomVertex = packed record
    x, y, z: Single; // The transformed position for the vertex
    color: DWORD;         // The vertex color
  end;
 
var
  g_pVB: IDirect3DVertexBuffer9 = nil; // Buffer to hold vertices
  g_pIB: IDirect3DIndexBuffer9 = nil;
 
  vertices  : array [0..3] of TCustomVertex;
  index     : array [0..5] of Integer;
 
  for y := 0 to HAUTEUR do
  begin
    for x := 0 to LARGEUR do
    begin
      vertices[x + y * (LARGEUR + 1)].x := x * 10 ;
      vertices[x + y * (LARGEUR + 1)].y := y * 10;    //height
      vertices[x + y * (LARGEUR + 1)].z := -11;
      vertices[x + y * (LARGEUR + 1)].color := $00000000;				//color
    end;
  end;
 
  i := 0;
  // Les indices associés
  for y := 0 to HAUTEUR do
  begin
    for x := 0 to LARGEUR do
    begin
      index[i] := x + y * (LARGEUR + 1);					  inc(i);//v1
      index[i] := x + 1 + y * (LARGEUR + 1);		 		inc(i);//v2
      index[i] := x + 1 + (y + 1) * (LARGEUR + 1);  inc(i);//v4
 
      index[i] := x + y * (LARGEUR + 1);					  inc(i);//v1
      index[i] := x + 1 + (y + 1) * (LARGEUR + 1);	inc(i);//v4
      index[i] := x + (y + 1) * (LARGEUR + 1);			inc(i);//v3
    end;
  end;
 
 
  if FAILED(g_pd3dDevice.CreateVertexBuffer(4*SizeOf(TCustomVertex),
                                            0, D3DFVF_CUSTOMVERTEX,
                                            D3DPOOL_DEFAULT, g_pVB, nil))
  then Exit;
 
  if FAILED(g_pVB.Lock(0, SizeOf(vertices), pVertices, 0))
  then Exit;
 
  CopyMemory(pVertices, @vertices, SizeOf(vertices));
  g_pVB.Unlock;
 
  if FAILED(g_pd3dDevice.CreateIndexBuffer(sizeof(integer) * 6,D3DUSAGE_WRITEONLY,
                                                                         D3DFMT_INDEX32,
                                                                         D3DPOOL_MANAGED,
                                                                         g_pIB, nil))
  then Exit;
 
  g_pIB.Lock(0,SizeOf(index), pIndex, 0);
  CopyMemory(pIndex, @index, SizeOf(index));
  g_pIB.Unlock;

Alors que comme ca ca marche parfaitement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
const
 
  vertices: array[0..3] of TCustomVertex = (
    (x:   -10.0; y:  -10.0; z:  0; color: $00000000), // x, y, z, rhw, color),
    (x:   -10.0; y:   10.0; z:  0; color: $00000000),
    (x:    10.0; y:  -10.0; z:  0; color: $00000000),
    (x:    10.0; y:   10.0; z:  0; color: $00000000)
  );
  index: array[0..5] of integer = ( 0,1,2,3,1,2 );
var
  pVertices: Pointer;
  pIndex: Pointer;
begin
  Result:= E_FAIL;
 
  if FAILED(g_pd3dDevice.CreateVertexBuffer(4*SizeOf(TCustomVertex),
                                            0, D3DFVF_CUSTOMVERTEX,
                                            D3DPOOL_DEFAULT, g_pVB, nil))
  then Exit;
 
vertex
 
  if FAILED(g_pVB.Lock(0, SizeOf(vertices), pVertices, 0))
  then Exit;
 
  CopyMemory(pVertices, @vertices, SizeOf(vertices));
  g_pVB.Unlock;
 
  if FAILED(g_pd3dDevice.CreateIndexBuffer(sizeof(integer) * 6,D3DUSAGE_WRITEONLY,
                                                                         D3DFMT_INDEX32,
                                                                         D3DPOOL_MANAGED,
                                                                         g_pIB, nil))
  then Exit;
 
  g_pIB.Lock(0,SizeOf(index), pIndex, 0);
  CopyMemory(pIndex, @index, SizeOf(index));
  g_pIB.Unlock;
 
 
  Result:= S_OK;

PS: j'ai bien vérifié en debuggant, mes tableaux sont bien crée dans le premier code.

05/05/2005, 02h35
El-ToniO

quoi personne?!! Eh bé :(
05/05/2005, 16h48
moldavi

Tu auras peut-être plus de chance d'être aider sur un forum delphi.

Est-il vrai que le support de delphiX a été abandonné?

A quel endroit ton programme plante.
05/05/2005, 17h47
El-ToniO

Ca plante au moment de la sortie de la fonction qui charge les vertices... jy comprend rien....

Code:

1
2
3
4
5
6
7
8
9
10
for y := 0 to HAUTEUR do
  begin
    for x := 0 to LARGEUR do
    begin
      vertices[x + y * (LARGEUR + 1)].x := x * 10 ;
      vertices[x + y * (LARGEUR + 1)].y := y * 10;    //height
      vertices[x + y * (LARGEUR + 1)].z := -11;
      vertices[x + y * (LARGEUR + 1)].color := $00000000;            //color
    end;
  end;

Quelles sont les valeurs de HAUTEUR et LARGEUR, je soupçonne un débordement de tableau. Si LARGEUR est supérieur à 0, alors tu écris à tous les coups en dehors des indices.

07/05/2005, 14h10
El-ToniO

Bah non Largeur et Hauteur sont a 1 pour l'instant ce qui fait
que je m'arrete a la case 3 pour le tableau de vertices et a 6 pour les indices. Enfin j espere que je ne me trompe pas...
07/05/2005, 14h13
El-ToniO

Mais quel abrut* je fais... désolé de vous avoir dérangé pour rien... il y a bel et bien un dépassement de tableau mais comme en débuggant ca me disait rien je n'y croyais pas... Voyons voir si ca marche maintenant et encore désolé...

en fait c'est ca que j'ai du mal à traduire en Delphi.. je ne comprends pas trop ce qui ce passe... la syntaxe m'echappe un peu, quelqu'un pourrait il me le dire?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
for(y = 0;y < TERRAIN_Y;++y)
 {
 for(unsigned x = 0;x < TERRAIN_X;++x)
  {
  *pIndexData++ = x + y * (TERRAIN_X + 1);
  *pIndexData++ = x + 1 + y * (TERRAIN_X + 1);
  *pIndexData++ = x + 1 + (y + 1) * (TERRAIN_X + 1);
 
  *pIndexData++ = x + y * (TERRAIN_X + 1);
  *pIndexData++ = x + 1 + (y + 1) * (TERRAIN_X + 1);
  *pIndexData++ = x + (y + 1) * (TERRAIN_X + 1);
  }
 }

07/05/2005, 14h19
El-ToniO

Alala désolez pour le multi-post. Sujet résolu, il suffisait juste d'aller jusqu'à
HAUTEUR - 1 et LARGEUR - 1

Merci à tous et surtout a toi Moldavi de m'avoir aiguillé ;)