Passage et renvoi paramètres dll C

Suite à l'excellent tutoriel mis en ligne par Jean-Marc:
http://membres.lycos.fr/jeanmarcn/cvb/cetvb.htm
8-)

Je souhaite fabriquer une dll C++ pour traiter des calculs sur une image
noir et blanc.

Je gère l'image,pour la lecture/ecriture et la partie data du DIB, grâce
à la dll GFLSdk dispo sur www.xnview.com
Au travers d'un DIB pour l'affichage.

C'est à dire que j'utilise le champs data de la structure Gfl_Bitmap
déclarer dans un module public selon la spec de l'auteur de GFL:

'Structure BITMAP
Public Type GFL_BITMAP
Type As Integer
Origin As Integer
Width As Long
Height As Long
BytesPerLine As Long
LinePadding As Integer
BitsPerComponent As Integer
ComponentsPerPixel As Integer
BytesPerPixel As Integer
Xdpi As Integer
Ydpi As Integer
TransparentIndex As Integer
ColorUsed As Long
ColorMap As Long
Data As Long
Comment As Long
MetaData As Long
End Type

Le champ Data de l'image (ou du DIB) étant fournie par la dll lors de la
lecture ou par la reservation d'un espace bitmap au travers d'une
fonction équivalente à createDIBsection, de la dll GFLsdK.
Il s'agit d'un long (pointeur sur le début de la zone mémoire).
Pour le reste j'utilise la fonction (Cf code fin de post)
extGetDIBFromBitmap
Et je gère un DIB.

Ma question est la suivante:

Si je passe à une dll C++ cet entier long et la taille de la zone
mémoire réservée, puis-je dans ma dll C++ "copier" cette zone mémoire
(sans utiliser d'API, je veux rester C++ "pur").
dans une nouvelle structure.
Et puis-je Renvoyer cette structure vers VB

Type ResultDIB

Data as long 'pointeur sur la zone de données
ScanLineWidth as long
Height as long

End type

Et ensuite de faire un CopyMemory de data renvoyé vers le champ data de
la structure Gfl_Bitmap correctement prédimensionnée?

Le but du jeu étant de gérer des opérations complexe et gourmandes en
calcul (rotation d'image, gestion d'une région polygonale associée,
transformations non conformes) et ce pour des images Noir et Blanc donc
opération au niveau du bit, avec un gain de temps qui a déjà été prouvé.
:-)
J'ajoute qu'au niveau C++ mes connaissances sont uniquement littéraire,
j'ai pas encore mis en pratique, mais j'aimerais avoir une vue
d'ensemble des possibilités avant de me lancer.

Pour ceux qui s'interressent à cette question et qui souhaitent utiliser
la Sdk avec VB6, je peux leurs fournir en complément un module de classe
permettant la gestion des images et l'affichage,
qui marche avec un module de gestion des DC de PictureBox Cf post
"Ecrire le long d'une ligne" 12/08/05.

A+

Christophe

*****
Il s'agit du code original de Jérôme Quintard (contact@jeromequintard.com)
Modifier par mes soins, pour la gestion des DIB N&B et 16 couleurs et
X&Y pixelpermeter non nul

Public Function scanalign(pwidth&) As Long
scanalign = (pwidth& + 3) And &HFFFFFFFC
End Function

Public Function byteperscanline(ByVal pwidth&, ByVal bitcount&) As Long
Select Case bitcount&
Case 1
byteperscanline = scanalign((pwidth& + 7) \ 8)
Case 4
byteperscanline = scanalign((pwidth& + 1) \ 2)
Case 8
byteperscanline = scanalign(pwidth&)
Case 24
byteperscanline = scanalign(pwidth& * 3)
Case 32
'byteperscanline
End Select
End Function

Public Function extGetDIBFromBitmap(ByRef BITMAP As GFL_BITMAP) As
BITMAPINFO
Dim DIBInfo As BITMAPINFO
Dim ColorMap As GFL_COLORMAP
Dim Ind As Integer

With DIBInfo.bmiHeader
.biSize = Len(DIBInfo.bmiHeader) 'La taille de la structure
.biWidth = BITMAP.Width 'Largeur du bitmap
.biHeight = BITMAP.Height 'Hauteur du bitmap
.biPlanes = 1 'Nombre de plans
.biCompression = BI_RGB 'Toujours BI_RGB
.biClrImportant = 0 'Toujours 0

If BITMAP.Xdpi = BITMAP.Ydpi Then
If BITMAP.Xdpi <> 0 Then

.biXPelsPerMeter = CLng(BITMAP.Xdpi / 25.4 * 1000)
.biYPelsPerMeter = CLng(BITMAP.Ydpi / 25.4 * 1000)

Else
.biXPelsPerMeter = 100
.biYPelsPerMeter = 100

End If
Else
.biXPelsPerMeter = CLng(BITMAP.Xdpi / 25.4 * 1000)
.biYPelsPerMeter = CLng(BITMAP.Ydpi / 25.4 * 1000)

End If

End With

With DIBInfo
Select Case BITMAP.Type

Case 1
.bmiHeader.biBitCount = 1
.bmiHeader.biSizeImage = byteperscanline(BITMAP.Width,
1) * BITMAP.Height 'Bitmap.BytesPerLine * Bitmap.Height
.bmiHeader.biClrUsed = 2
Case 2, 4

.bmiHeader.biBitCount = 8
.bmiHeader.biSizeImage = byteperscanline(BITMAP.Width,
8) * BITMAP.Height 'GflBitmap.BytesPerLine * GflBitmap.Height
.bmiHeader.biClrUsed = 0
Case 64, 10
.bmiHeader.biBitCount = 24
.bmiHeader.biSizeImage = byteperscanline(BITMAP.Width,
24) * BITMAP.Height
.bmiHeader.biClrUsed = 0
End Select

Select Case BITMAP.Type 'Suivant le type de bitmap
Case GFL_COLORS 'Si GFL_COLORS (une palette de couleurs indexé
de 0 à 255)
extGetGflColorMapFromPtr BITMAP.ColorMap, ColorMap 'On
récupère les index du bitmap dans une structure GflColorMap
For Ind = 0 To 255 'Pour chaque index on indique à la
structure Dib_Info
.bmiColors(Ind).rgbBlue = ColorMap.Blue(Ind) 'La valeur
du bleu
.bmiColors(Ind).rgbGreen = ColorMap.Green(Ind) 'La
valeur du vert
.bmiColors(Ind).rgbRed = ColorMap.Red(Ind) 'La valeur du
rouge
Next Ind
Case GFL_BINARY 'Si GFL_BINARY (seulement noir et blanc donc 2
couleurs indexés) on indique à Dib_Info qu'il y a deux index
.bmiColors(0).rgbBlue = 0: .bmiColors(0).rgbGreen = 0:
.bmiColors(0).rgbRed = 0 'Le premier vaut Red=0,Green=0,Blue=0 donc du
noir (#000000)
.bmiColors(1).rgbBlue = 255: .bmiColors(1).rgbGreen = 255:
.bmiColors(1).rgbRed = 255 'Le second vaut Red=255,Green=255,Blue=255
donc blanc (#FFFFFF)
Case GFL_GREY 'Si GFL_GREY (On travaille sur 256 nuances)
For Ind = 0 To 255 'Pour chaque index de Dib_Info on indique
une nuance de gris
.bmiColors(Ind).rgbBlue = Ind ' Il y a 256 index et 256
gris on donne à chaque index
.bmiColors(Ind).rgbGreen = Ind ' et pour chaque canaux
la valeur de la nuance
.bmiColors(Ind).rgbRed = Ind
Next Ind
End Select
End With
extGetDIBFromBitmap = DIBInfo
End Function