RGB À R,G ET B (ET VICE VERSA) TRÈS RAPIDE

Commentaire de ScSami le 03/11/2006 16:56:48

ABSOLUMENT AHURISSANT, SPLENDIDE !
C'est, je pense, exactement ce que je recherchais !!!
...

Commentaire de lucgod1 le 04/11/2006 18:31:14

Excuses-moi RENFIELD, LUGOD1 rectifie, le site POUR INFO est ...
http://pourpre.com/colorbox/
...(interressant pour les équivalences).
Bye from Liège-BELGIUM.

Commentaire de Renfield le 06/11/2006 14:01:33 administrateur CS

l'API Guide ne donne pas tout ^^

concernant ArrPtr, dis toi simplement que ca renvoie un pointeur vers un tableau.

concernant les champs du SafeArray :
'# Tableau une dimension
.cDims = 1
'# Un octet par élément (normal, pour un tableau de byte :p)
.cbElements = 1
'# Notre tableau comporte trois éléments
.cElements = 3

en gros, on déclare simplement un tableau a une dimension, de trois octets...
(donc trois éléments prenant chaqun un octet.)

en sortie, dans l'absolu, il faudrait sans doute remettre l'entête du tableau qui était là, à l'origine...
mais rien de bien méchant.

Commentaire de Renfield le 06/11/2006 15:28:57 administrateur CS

cbElements = 1 c'est pour dire => 1 octet
cElements = 3 c'est pour dire => 3 élément

mettre cbElements = 4 nous donnera 4 éléments de type Byte

un tableau, en VB est un SafeArray
un SafeArray, c'est :

Private Type SafeArray
    cDims As Integer
    fFeatures As Integer
    cbElements As Long
    cLocks As Long
    pvData As Long
    rgsaBound() as SafeArrayBound '(selon le nombre de dimensions)
End Type

Private SafeArrayBound
     cElements As Long
     lLbound As Long
End Type

pour une dimension, on peut n'utiliser qu'une seule structure

ici, nous fabriquons un entête, en spécifiant les dimensions de notre tableau.
ensuite, nous faisons en sorte que le tableau ColorChannel() utilise notre entête personnalisé. (le CopyMemory...)

Doc dispo sur :
http://msdn2.microsoft.com/en-us/library/ms221482(VS.80).aspx

Commentaire de ScSami le 09/11/2006 00:08:05

Remoi. Eh oui, je vais encore t'embêter un peu... Faut bien, parce qu'après tout, ce code est vraiment à la base de mon projet et faut donc qu'il soit le plus "parfait" possible.

J'ai modifier ton code comme ceci (module de classe) :
(Les principales modifications : rename des éléments, utilisation de la procédure événementielle _Initialize, Gestion des erreurs de Couleur

Option Explicit

Private Type typSafeArray
intDimensions As Integer
intFeatures   As Integer
lngElements   As Long
lngLocks      As Long
lngData       As Long
lngNbrBytes   As Long
lngLbound     As Long
End Type

Private Const cstSAfeatAuto = &H1
Private Const cstSAfeatStatic = &H2
Private Const cstSAfeatFixedSize = &H10

Private Declare Function ArrPtr ...
Private Declare Sub CopyMemory ...

Private lngColor           As Long
Private tblComponentRGB()  As Byte
Private stcSafeArrayCvalue As typSafeArray

Private Sub Class_Initialize()
With stcSafeArrayCvalue
  .intDimensions = 1
  .lngElements = 1
  .lngNbrBytes = 3
  .intFeatures = cstSAfeatAuto Or cstSAfeatStatic Or cstSAfeatFixedSize
  .lngData = VarPtr(lngColor)
End With
CopyMemory ByVal ArrPtr(tblComponentRGB), VarPtr(stcSafeArrayCvalue), 4
End Sub

Public Property Get R() As Byte: R = tblComponentRGB(0): End Property
...G puis B
Public Property Get C() As Long: C = lngColor: End Property

Public Property Let R(ByVal Value As Byte): tblComponentRGB(0) = Value: End Property
... G puis B

Public Property Let C(ByVal Value As Long)
On Error GoTo ErrorManagement
If Value < 0 Then Value = Abs(Value)
If Value > 16777215 Then
  Value = Value Mod 16777215
Else
  lngColor = Value
End If
Exit Property

ErrorManagement:
Err.Raise Err.Number, "zzzGDI.clsRGBC", Err.Description
End Property


Dit moi, ne crois-tu pas nécessaire de gérer la couleur via l'interface Get/Let plutot qu'en variable Long public ???
Selon toi, la gestion d'erreur est bonne ou ça risque de poser des problèmes (à cause de l'utilisation d'API par exemple...) ???
Selon toi, quelles sont les retentissements de ces modifs tant sur l'utilisation de la mémoire que sur la vitesse (bénignes, ...) ???

Pi y'a toujours un truc que je pige pas avec CopyMemory... Là, ça te crée bien un "lien mémoire", mais ce lien, que devient-il à la destruction de l'objet ??? Parce que sinon on a aussi _Terminate !

Comme je vais utiliser pas mal d'instances de cet objet (jusqu'a une quinzaine simultanément), cela ne risque-t-il pas de poser un quelconque problème ?


Je sais, chuis chiant pour pas dire casse-cou***e :D

Commentaire de Renfield le 09/11/2006 11:03:57 administrateur CS

pas utiles ces verifs...
VB va s'assurer tout seul que tu places bien un Long

evites de renommer a ton gout les variables, constantes et type issus d'API