GetDIBits

Question

Bonjour, je me suis remis à mon moteur 2D et j'ai toujours ce même problème de texture : Voici mon code : Sub SpeedLoadTex(TexPath As String, ByVal iX As Single, ByVal iY As Single, Height As Long, Width As Long) Dim TexInfo As BITMAPINFO Dim TexBitArray() As Byte If iY <> 0 And iX <> 0 Then TexPicture.Picture = LoadPicture(TexPath) ' Initialisation des données de l'image ' ----------------------------------------------- TexInfo.bmiHeader.biSize = Len(TexInfo.bmiHeader) TexInfo.bmiHeader.biWidth = TexPicture.ScaleWidth TexInfo.bmiHeader.biHeight = TexPicture.ScaleHeight TexInfo.bmiHeader.biPlanes = 1 TexInfo.bmiHeader.biBitCount = 32 TexInfo.bmiHeader.biCompression = BI_RGB ' ----------------------------------------------- ' Redimension du tableau et récupération des données ' ------------------------------------------------------------------------------------------------------------------------ ReDim TexBitArray(1 To 4, 1 To TexPicture.Width, 1 To TexPicture.Height) DoEvents Call GetDIBits(TexPicture.hdc, TexPicture.Image, 0, TexInfo.bmiHeader.biHeight, bArray(1, iX, GetRealY(iY)), TexInfo, DIB_RGB_COLORS) ' ------------------------------------------------------------------------------------------------------------------------ End If End Sub Où TexPicture est le picture box ou je charge ma texture, et bArray(1,1,1) est mon tableau principale. Regardez le résultat : Si vous savez comment résourdre le problème ... Merci d'avance ! -=Ar$£nik=-

Gobillot · Answer

GetDIBits TexPicture.hdc, TexPicture.Image, 0,
TexInfo.bmiHeader.biHeight, bArray(1,1, 1), TexInfo,
DIB_RGB_COLORS







pourquoi iX et iY puisque toute la table est utilis&#233;e

&#224; quoi sert Height et With en param&#232;tres.

si tu veux limiter il faut jouer sur nStartScan et  nNumScans,
donc sur le nombre de Lignes, iX devrait toujours commencer &#224; 1, et si
iY est diff&#233;rent de 1, le bArray devrait &#234;tre plus grand ou le biHeight
plus petit, ce qui n'est pas le cas ici puisque toute la taille de
TexPicture est utilis&#233;e.


Daniel

MaxSoldier · Answer

1 ) J'utilise iX et iY car non, tout le tableau n'est pas utilis&#233;. Imagine, une texture de 64x64 et un tableau de 800x600

2) Height et Width sont des param&#232;tre qui ne servent pas encore mais
ils serviront. Avant de g&#233;rer le scaling, je vais d&#233;ja g&#233;rer le
rendu... :D


3) Juste, il y a un redim en trop ne le consid&#233;rez pas.
-=Ar$&#163;nik=-

Gobillot · Answer

bArray(1,iX, iY)   impossible

iX et iY ne sont pas reconnus comme param&#232;tres par 
                
                GetDIBits

il s'agit seulement d'une adresse et c'est &#224; partir de cette adresse
que le tableau sera rempli en commen&#231;ant par la Ligne debut=nStartScan pour un nombre de Lignes=nNumScans

dans l'exemple 800x600 tous les 800 pixels d'une Ligne seront pris, il n'y a pas de param&#232;tres X d&#233;but.





vu le post pr&#233;c&#233;dent:

http://www.vbfrance.com/forum.v2.aspx?ID=644003



 ReDim TexBitArray(1 To 4, 1 To TexPicture.Width, 1 To TexPicture.Height)

 Call GetDIBits(TexPicture.hdc, TexPicture.Image, 0, TexPicture.ScaleHeight, TexBitArray(1, 1, 1), TexInfo, DIB_RGB_COLORS)

on prend tout le tableau et on s&#233;lectionne apr&#232;s

je crois que c'est la bonne solution



le StrechBlt me g&#234;ne un peu

StretchBlt TexPicture.hdc, 0, 0, Width, Height, TexPicture.hdc, 0, 0, TexPicture.Width, TexPicture.Height, vbSrcCopy

StrechBlt sur lui-m&#234;me en r&#233;duction &#231;a doit pas faire joli ...

PaintPicture est de meilleur qualit&#233; 



Nb: astuce pour remettre le Tableau &#224; l'endroit:

TexInfo.bmiHeader.biHeight = - TexPicture.ScaleHeight


Daniel

MaxSoldier · Answer

Oki merci beaucoup :D

-=Ar$&#163;nik=-

MaxSoldier · Answer

Pendant que j'y suis comment je peux faire alors pour copier mon
tableau de byte dans le tableau principale &#224; une certaine place et le
plus rapidement possible ?


-=Ar$&#163;nik=-

MaxSoldier · Answer

oups pardon avais pas lu jusqu'au bout :p

-=Ar$&#163;nik=-

GetDIBits

6 réponses

Discussions similaires