[VB6] Utilisation de la DLL: HaruPDF. [chargement image]Résolu

Question

Salut à tous,

Je me suis penché sur l'exemple de la DLL de la librairie libharu.org sur VB6.

La création de PDF semble fonctionner.
Mais mon but est d'exporter le contenu d'une PictureBox vers un PDF.
J'ai donc repris le code de démonstration, et j'y ai incus les fonctionalitées graphiques inclues dans les demos en C.
Et tout fonctionne.

Malheureusement, si les échantillonnages RVB fonctionnent pour des icônes en 32x32, toutes autres dimensions d'images semblent ne pas fonctionner.

J'utilise la fonction dans cette routine:
    'Get picture's Width and Height
    bmWidth = Picture1.Width
    bmHeight = Picture1.height

'ReDefine Bit array to hold all pixels from picture box
 ' ReDim Bits(0 To 2, 0 To bmWidth - 1, 0 To bmHeight - 1, 0) As Byte
 
  ReDim Bits((bmWidth * bmHeight * 4) - 1) As Byte
  ReDim Bitstmp((bmWidth * bmHeight * 3) - 1) As Byte

'Store size of bitmap in total pixels
    bmSize = bmWidth * bmHeight * 4
    
    'Grab picture's pixels and load to Bit array
    GetBitmapBits Picture1.image, bmSize, Bits(0)
    
 Dim a
 a = 0
  For Cnt = 0 To (bmSize - 1) Step 4
  CopyMemory Bitstmp(a), Bits(Cnt), 3
  a = a + 3
  Next
    
Dim hf As Integer
hf = FreeFile

Open "picture2.dat" For Binary As hf
Put hf, 1, Bitstmp
Close hf

image = HPDF_LoadRawImageFromFile(pdf, "picture2.dat", bmWidth, bmHeight, HPDF_CS_DEVICE_RGB)
 
 x = 200: y = 300
   Call HPDF_Page_DrawImage(page, image, x, y, bmWidth, bmHeight)


La DLL utilise "RGBRGBRGB" de manière linéaire, et "GetBitmapBits" donne du "RGBuRGBuRGBu".

Donc, je linéarise le fichier d'entrée en coupant les données "RGB".

La DLL est très capricieuse, et plante l'IDE en cas de problème de taille...
Mais, je n'arrive pas à afficher une image sans un décalage de plusieurs pixels de ligne en ligne.

Ma question: 
La structure "GetBitmapBits" est elle un suite de pixels en "RGBx" (lignes après lignes) ou utilise-elle des informations de structure compatible avec un DIM Bits(0 to 2, 0 to Xmax,0 to Ymax)?

Nota: Je suppose qu'il y a un problème de largeur, qui probablement doit être un multiple de 8 pixels…

Sinon, il faut passer par un fichier "JPG" en temporaire, et utiliser une autre DLL…
J'ai pas cherché sur le net.

JeuDuTaquin · Answer

Salut,
Merci à Hervé_be, qui sans le vouloir a inspiré la correction de mon erreur !
La  variable de dissection de l'image était incorrecte. 

Donc, le bon code est :

Private Sub Hpdf_PaintPicture(pdf As Long, page As Long, myPictureBox As PictureBox, Locx as long, Locy as long)
    'Static bitstmp() As Byte
    Dim image As Long
    
    'Get picture's Width and Height
    bmWidth = myPictureBox.ScaleWidth
    bmHeight = myPictureBox.ScaleHeight
       
    'ReDefine Bit array to hold all pixels from picture box
    ReDim Bits(0 To 3, 0 To bmWidth - 1, 0 To bmHeight - 1) As Byte
 
    'Store size of bitmap in total pixels
    bmSize = bmWidth * bmHeight
 
    'Grab picture's pixels and load to Bit array
    GetBitmapBits myPictureBox.image, bmSize * 4, Bits(0, 0, 0)
  
    ReDim bitstmp((bmSize * 3) - 1) As Byte
    
a = 0
 For y = 0 To bmHeight - 1
    For x = 0 To bmWidth - 1
        bitstmp(a) = Bits(2, x, y)
        bitstmp(a + 1) = Bits(0, x, y)
        bitstmp(a + 2) = Bits(1, x, y)
        a = a + 3
    Next
 Next
 
 image = HPDF_LoadRawImageFromMem(pdf, bitstmp(0), bmWidth, bmHeight, HPDF_CS_DEVICE_RGB, 8)
 
 'HPDF_CS_DEVICE_RGB

Call HPDF_Page_DrawImage(page, image, Locx, Locy, bmWidth, bmHeight)

End Sub

Amusez-vous bien.

[VB6] Utilisation de la DLL: HaruPDF. [chargement image]

1 réponse

Votre réponse