🚀 go-pugleaf

Salve a tutti,
sto cercando di capire come decodificare una immagine bmp.
Fin ora ho capito come "funziona" quella a 24bit, ho capito come
trovare le dimensioni della stessa e come sono disposti i 3 byte per i
colori.
A me servono proprio questi punti colorati proprio perche devo farci delle
operazioni 3d. Ora sto notando che pur avendo un pc abbastanza nuovo
per caricare delle bmp a 24bit di grandi dimensioni, passa parecchio tempo.
Sto usando la sub sotto, che legge i 3 byte uno alla volta...
Non potreste cortesemente suggerirmi un modo per velocizzare il tutto?
Se pu� servire...come si fa a dichiarare un tipo di dati di 3byte invece che
di 1(byte) o 2(integer) o 4(long) byte?
Come decodifico quelle a 8bit che sono piu piccole in dimensione e con
sufficiente informazione sul colore?
Ho creato una bmp a 8bit di un solo pixel ma occupa 2kbyte quasi....che
altre info ci sono dentro?


Sub CARICABMP(nome$)

Open "C:\12.bmp" For Binary As 1

 Dim Intestazione(54) As Byte
 Dim R As Byte
 Dim G As Byte
 Dim B As Byte

Rem legge le informazioni iniziali
For T = 1 To 54
Get #1, T, Intestazione(T)
Next T

Rem calcola le dimensioni della bmp
lunghezza = Intestazione(19) * 256 ^ 0 + Intestazione(20) * 256 ^ 1 +
Intestazione(21) * 256 ^ 2 + Intestazione(22) * 256 ^ 3
Larghezza = Intestazione(23) * 256 ^ 0 + Intestazione(24) * 256 ^ 1 +
Intestazione(25) * 256 ^ 2 + Intestazione(26) * 256 ^ 3

Text1.Text = Str$(lunghezza) + "  " + Str$(Larghezza)

For LNZ = Larghezza To 1 Step -1
For LGZ = 1 To lunghezza Step 1
Get #1, , B
Get #1, , G
Get #1, , R
Schermo.PSet (LGZ * 15, LNZ * 15), RGB(R, G, B): Rem Schermo � una
picturebox
Next
Next

Close 1

End Sub