Visualizza wikitesto di Passare direttamente ad un oggetto Image i dati grezzi dei pixel di una DrawingArea mediante le risorse del API di X11

Per passare ad un oggetto ''Image'' i dati grezzi dei pixel del disegno presente in una ''DrawingArea'', senza creare preliminarmente in ausilio un file immagine, si potranno utilizzare le risorse del API della libreria di X11.

In particolare si avranno almeno due modalità. In entrambe le modalità si dovrà richiamare in Gambas la libreria dinamica condivisa: "''libX11.so.6.3.0'' " , e sarà opportuno utilizzare un Componente Gambas delle librerie grafiche QT (''gb.gui.qt'' oppure ''gb.qt5'').

==Passare i dati all'indirizzo dell'area di memoria restituito dalla Proprietà ".Data" dell'Oggetto "Image"==
La prima modalità prevede il passaggio dei dati dei pixel all'indirizzo dell'area di memoria restituito dalla proprietà ''.Data'' dell'oggetto ''Image''.

Si tratta di creare un Oggetto di tipo "Image", avente le medesime dimensioni della "DrawingArea", e di passare direttamente all'area di memoria puntata dalla proprietà ".Data" di detta variabile di tipo "Image" i dati grezzi dei pixel ottenuti dalla "DrawingArea" e contenuti nell'area di memoria riservata, puntata dal "Puntatore" restituito dalla funzione esterna "XGetImage()" della libreria di X11. Tutti i dati precedenti relativi ai pixel, comunque contenuti dalla variabile "Image", saranno sostituiti dai nuovi dati dei pixel afferenti al disegno presente nella ''DrawingArea''.

Mostriamo un esempio pratico (è necessario porre sul "Form" una "DrawingArea" ed una "PictureBox").
 Library "libX11:6.3.0"
 
 Private Enum XYBitmap = 0, XYPixmap, ZPixmap
 
 <FONT Color=gray>' ''Display *XOpenDisplay(char *display_name)''
 ' ''Opens a connection to the X server that controls a display.''</font>
 Private Extern XOpenDisplay(display_name As String) As Pointer
 
 <FONT Color=gray>' ''unsigned long XAllPlanes()''
 ' ''Returns a value with all bits set to 1 suitable for use in a plane argument to a procedure.''</font>
 Private Extern XAllPlanes() As Long
 
 <FONT Color=gray>' ''XImage *XGetImage(Display *display, Drawable d, int x, int y, unsigned int width, unsigned int height, unsigned long plane_mask, int format)''
 ' ''Returns a pointer to an XImage structure.''</font>
 Private Extern XGetImage(display As Pointer, d As Long, xI As Integer, yI As Integer, wid As Integer, hei As Integer, plane_mask As Long, formatI As Integer) As Pointer
  
 <FONT Color=gray>' ''XCloseDisplay(Display *display)''
 ' ''Closes the connection to the X server for the display specified in the Display structure and destroys all windows.''</font>
 Private Extern XCloseDisplay(display As Pointer)
 
 
 '''Public''' Sub Form_Open()
 
 <FONT Color=gray>' ''Imposta alcune proprietà della "DrawingArea":''</font>
  With DrawingArea1
    .X = 10
    .Y = 10
    .W = 400
    .H = 420
    .Background = Color.White
  End With
  With PictureBox1
    .X = DrawingArea1.W + 20
    .Y = DrawingArea1.Y
    .W = DrawingArea1.W
    .H = DrawingArea1.H
  End With
  
 '''End'''
 
 
 '''Public''' Sub DrawingArea1_Draw()
  
  Dim colori As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
  Dim p As Float[] = [0, 0.34, 0.67, 1]
   
 <FONT Color=gray>' ''Disegnamo all'interno della "DrawingArea":''</font>
  With Paint
    .Brush = .LinearGradient(10, 40, 300, 40, colori, p)
    .Rectangle(10, 40, 300, 40)
    .Fill
 <FONT Color=gray>' ''Imposta il colore dei caratteri:''</font>
    .Brush = .Color(Color.Red) 
 <FONT Color=gray>' ''Imposta il tipo di carattere:''</font>
   .Font.Name = "Arial" 
 <FONT Color=gray>' ''Imposta la dimensione dei caratteri:''</font>
   .Font.Size = 16
 <FONT Color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H con i metodi .RichText  e .Text, ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>
   .RichText("testo con r i chText", 200, 20, 16, 100)
   .Text("Testo con Text", 10, 30, 20, 20)
   .Stroke
 <FONT Color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":''</font>
   .Fill
 <FONT Color=gray>' ''Con il metodo .DrawText non è necessario l'uso di ".Stroke", né di ".Fill":''</font>
   .DrawText("Testo con DrawText", 10, 10, 20, 20)
   .End
  End With
   
 '''End'''
 
 '''Public''' Sub PictureBox1_MouseDown()  <FONT Color=gray>' ''Cliccando sulla "PictureBox" avviene il passaggio dei dati grezzi dei pixel''</font>
 
  Dim dsp, XImage, dati_imm As Pointer
  Dim im As Image
  Dim st As Stream
  Dim i As Integer
   
  dsp = XOpenDisplay(Null)
  If dsp == 0 Then Error.Raise("Impossibile aprire una connessione al server X !")
   
 <FONT Color=gray>' ''Otteniamo un puntatore alla "Struttura" contenente i dati dell'immagine disegnata nella "DrawingArea":''</font>
  XImage = XGetImage(dsp, DrawingArea1.Handle, 0, 0, DrawingArea1.W, DrawingArea1.H, XAllPlanes(), ZPixmap)
  If XImage == 0 Then Error.Raise("Impossibile ottenere un 'Puntatore' ai dati dell'immagine della DrawingArea !")
   
 <FONT Color=gray>' ''Otteniamo l'indirizzo di memoria dei dati grezzi dell'immagine puntati dalla Struttura "XImage":''</font>
  dati_imm = Pointer@(XImage + (SizeOf(gb.Pointer) * 2))
   
 <FONT Color=gray>' ''Creiamo un semplice oggetto di tipo "Image":''</font>
  im = New Image(DrawingArea1.W, DrawingArea1.H)
  If IsNull(im) Then Error.Raise("Impossibile creare un oggetto 'Image' !")
   
 <FONT Color=gray>' ''Utilizziamo ovviamente i "Memory Stream" per scrivere nell'area di memoria dell'oggetto "Image", destinata ai dati attinenti ai pixel, il cui indirizzo di memoria è ritornato dalla proprietà ".Data" della variabile di tipo "Image":''</font>
  st = Memory im.Data For Write
   
  For i = 0 To im.W * im.H * (im.Depth / 8)
    Write #st, Byte@(dati_imm + i) As Byte
  Next
   
  st.Close
  
 <FONT Color=gray>' ''Come verifica finale mostriamo in una "PictureBox" i dati contenuti nella variabile di tipo "Image", dopo averla convertita opportunamente in una variabile di tipo "Picture":''</font>
  PictureBox1.Image = im
   
 <FONT Color=gray>' ''Va in chiusura:''</font>
  XCloseDisplay(dsp)
   
 '''End'''


==Passare i dati all'area di memoria puntata dal membro "''*data'' " della Struttura "''GB_IMG'' " dichiarata nel file sorgente "gb.image.h"==
La seconda modalità prevede l'assegnazione dei dati dei pixel della "DrawingArea" all'area di memoria puntata dal membro "''*data'' " della Struttura "''GB_IMG'' " contenuta nel file sorgente "''.../main/lib/image/gb.image.h'' ". <SUP>&#91;[[#Note|nota 1]]&#93;</sup>

Mostriamo di seguito un semplice esempio, nel quale disegneremo all'interno di una "DrawingArea" una riga colorata con tutta la gamma dei colori dal blu al rosso. Successivamente, cliccando sulla "PictureBox" l'immagine del disegno presente nella "DrawingArea" sarà mostrato in una "PictureBox".
<BR>Funziona solo su sistemi a 64-bit.
 Library "libX11:6.3.0"
 
 Private Enum XYBitmap = 0, XYPixmap, ZPixmap
 
 <FONT Color=gray>' ''Display *XOpenDisplay(char *display_name)''
 ' ''Opens a connection to the X server that controls a display.''</font>
 Private Extern XOpenDisplay(display$ As String) As Pointer
 
 <FONT Color=gray>' ''unsigned long XAllPlanes()''
 ' ''Returns a value with all bits set to 1 suitable for use in a plane argument to a procedure.''</font>
 Private Extern XAllPlanes() As Long
 
 <FONT Color=gray>' ''XImage *XGetImage(Display *display, Drawable d, int x, int y, unsigned int width, unsigned int height, unsigned long plane_mask, int format)''
 ' ''Returns a pointer to an XImage structure.''</font>
 Private Extern XGetImage(displayP As Pointer, d As Long, xI As Integer, yI As Integer, wid As Integer, hei As Integer, plane_mask As Long, formatI As Integer) As Pointer
  
 <FONT color=gray>' ''XCloseDisplay(Display *display)''
 ' ''Closes the connection to the X server for the display specified in the Display structure and destroys all windows.''</font>
 Private Extern XCloseDisplay(displayP As Pointer)
 
  
 '''Public''' Sub Form_Open()
   
  With DrawingArea1
    .X = 10
    .Y = 10
    .W = 320
    .H = 120
    .Background = Color.White
  End With
  With PictureBox1
    .X = DrawingArea1.X
    .Y = DrawingArea1.H + 40
    .W = DrawingArea1.W
    .H = DrawingArea1.H
    .Background = Color.White
  End With
  
 '''End'''
 
 
 '''Public''' Sub DrawingArea1_Draw()
   
  Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
  Dim p As Float[] = [0, 0.34, 0.67, 1]
    
 <FONT Color=gray>' ''Disegnamo all'interno della "DrawingArea":''</font>
  With Paint
    .Brush = .LinearGradient(10, 40, 300, 40, c, p)
    .Rectangle(10, 40, 300, 40)
    .Fill
    .End
  End With
 
 '''End'''
 
 '''Public''' Sub PictureBox1_MouseDown()  <FONT Color=gray>' ''Cliccando sulla "PictureBox" avviene il passaggio dei dati grezzi dei pixel''</font>
  
  Dim dsp, XImage, imago, p, p1 As Pointer
  Dim bb As Byte[]
  Dim i As Integer
  Dim st As Stream
  Dim im As Image
    
  dsp = XOpenDisplay(Null)
  If dsp == 0 Then Error.Raise("Impossibile aprire una connessione al server X !")
    
 <FONT Color=gray>' ''Otteniamo un puntatore alla "Struttura" contenente i dati dell'immagine disegnata nella "DrawingArea":''</font>
  XImage = XGetImage(dsp, DrawingArea1.Handle, 0, 0, DrawingArea1.W, DrawingArea1.H, XAllPlanes(), ZPixmap)
  If XImage == 0 Then Error.Raise("Impossibile ottenere un 'Puntatore' ai dati dell'immagine della DrawingArea !")
  
 <FONT Color=gray>' ''Otteniamo l'indirizzo di memoria dei dati grezzi dell'immagine puntati dalla Struttura "XImage":''</font>
  imago = Pointer@(XImage + 16)
     
  bb = New Byte[]    
   
  For i = 0 To (DrawingArea1.W * DrawingArea1.H * 4) - 1
    bb.Push(Byte@(imago + i))
  Next
    
  im = New Image(DrawingArea1.W, DrawingArea1.H)
    
  p = Object.Address(im)
    
  p1 = Pointer@(p + (SizeOf(gb.Pointer) * 2))
    
 <FONT Color=gray>' ''Scriviamo i dati immagine grezzi, ottenuti dalla funzione XGetImage(), nell'area di memoria puntata dal membro "*data" della Struttura "GB_IMG" contenuta nel file sorgente ".../main/lib/image/gb.image.h":''</font>
  st = Memory p1 For Write
  bb.Write(st, 0, bb.Count)
  st.Close
   
 <FONT Color=gray>' ''Come verifica finale mostriamo in una "PictureBox" i dati contenuti nella variabile di tipo "Image", dopo averla convertita opportunamente in una variabile di tipo "Picture":''</font>
  PictureBox1.Image = im
   
 <FONT Color=gray>' ''Va in chiusura:''</font>
  XCloseDisplay(dsp)
 
 '''End'''



=Note=
[1] Al riguardo vedasi anche la pagina della Wiki: [[Gestire_un_oggetto_Image_agendo_direttamente_sulle_risorse_dei_sorgenti_Gambas|Gestire un oggetto Image agendo direttamente sulle risorse dei sorgenti Gambas]]