Differenze tra le versioni di "Conoscere le risorse possedute da una Classe"

Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per conoscere tutti i ''simboli'' relativi alle risorse (''Proprietà'', ''Metodi'' e ''Eventi''), che una Classe mette a disposizione del programmatore, si può utilizzare il...')
 
 
(6 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per conoscere tutti i ''simboli'' relativi alle risorse (''Proprietà'', ''Metodi'' e ''Eventi''), che una Classe mette a disposizione del programmatore, si può utilizzare il seguente codice con la Classe ''Class''.
+
Per conoscere tutti i ''simboli'' relativi alle risorse (''Proprietà'', ''Metodi'' ed ''Eventi''), che una Classe mette a disposizione del programmatore, si può utilizzare il seguente codice con la ''Classe'' "Class".
  
  
 +
===Conoscere i simboli posseduti da una Classe nativa===
 
Poniamo il caso di voler conoscere i ''simboli'' posseduti dalla Classe ''Button'':
 
Poniamo il caso di voler conoscere i ''simboli'' posseduti dalla Classe ''Button'':
−
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
 
   Dim s As String
 
   Dim s As String
 
   
 
   
−
  For Each s In Class.Load("Button").Symbols
+
  For Each s In Class.Load("Button").Symbols
−
    Print s
+
    Print s
−
  Next
+
  Next
 
   
 
   
−
  '''End'''
+
  End
  
 +
===Conoscere i simboli posseduti da una Classe specifica creata===
 +
Ugualmente è possibile conoscere i simboli delle risorse possedute da una ''Classe'' specifica da noi creata, purché tali risorse siano dichiarate ''Pubbliche''.
  
−
 
+
Poniamo il caso di aver creato nel nostro progetto una specifica ''Classe'', chiamata ''Class1'', e che il suo codice sia il seguente:
−
Ugualmente è possibile conoscere i simboli delle risorse possedute da una classe specifica da noi creata, purché tali risorse siano dichiarate ''Pubbliche''.
 
−
 
 
−
Poniamo il caso di aver creato nel nostro progetto una specifica classe, chiamata ''Class1'', e che il suo codice sia il seguente:
 
 
  <FONT Color=#B22222>Public</font> alfa As Integer
 
  <FONT Color=#B22222>Public</font> alfa As Integer
 
   
 
   
Riga 25: Riga 25:
 
  <FONT Color=#B22222>Public</font> Procedure Prova()
 
  <FONT Color=#B22222>Public</font> Procedure Prova()
 
    
 
    
−
  Print "Testo qualsiasi"
+
  Print "Testo qualsiasi"
 
    
 
    
−
  '''End'''
+
  End
−
 
+
Ebbene, il codice della ''Classe'' principale per conoscere i simboli delle risorse della ''Classe'' secondaria "Class1" sarà semplicemente:
−
Ebbene, il codice della Classe principale per conoscere i simboli delle risorse della Classe secondaria ''Class1'' sarà semplicemente:
+
  Public Sub Form_Open()
−
  '''Public''' Sub Form_Open()
 
 
   
 
   
 
   Dim cl As New Class1  <FONT Color=gray>' ''Dichiariamo la variabile della Classe secondaria "Class1", anche se ai fini dell'argomento di questa pagina non è necessario''</font>
 
   Dim cl As New Class1  <FONT Color=gray>' ''Dichiariamo la variabile della Classe secondaria "Class1", anche se ai fini dell'argomento di questa pagina non è necessario''</font>
 
   Dim s As String
 
   Dim s As String
 +
 +
  For Each s In Class.Load("Class1").Symbols
 +
    Print s
 +
  Next
 +
 +
End
 +
 +
 +
==Le Proprietà della ''Classe'' virtuale ".Symbol"==
 +
La Classe "Class" possiede una Classe virtuale, chiamata "''.Symbol''", che fornisce alcune Proprietà sui simboli della Classe principale.
 +
 +
Per disporre di tali Proprietà bisognerà porre il nome della Classe da caricare tra due parentesi quadre:
 +
Public Sub Form_Open()
 
    
 
    
−
  For Each s In Class.Load("Class1").Symbols
+
  Dim cl As Class
−
    Print s
+
 
−
  Next
+
  cl = Class.Load("Color")
 +
 
 +
  Print <FONT Color=#B22222>cl[</font>"RGB"<FONT Color=#B22222>].Type</font>
 +
 
 +
End
 +
Di seguito un esempio più completo, nel quale vengono esclusi gli eventuali ''Metodi'' della Classe:
 +
Public Sub Form_Open()
 +
 
 +
  Dim cl As Class
 +
  Dim s As String
 +
 
 +
  cl = Class.Load("Color")
 +
 
 +
  For Each s In cl.Symbols
 +
    If cl[s].Kind = Class.Method Then Continue
 +
    Print Hex(Object.GetProperty(cl, s), 8), s
 +
    Wait 0.3
 +
  Next
 +
 
 +
  Me.Close
 +
 
 +
End
 +
 
 +
 
 +
==Usando i Puntatori per accedere alla ''Struttura'' "_CLASS" dei sorgenti di Gambas==
 +
Una modalità più complessa e per conoscere elementi più generici, si può accedere al membro "CLASS_DESC_SYMBOL *table" della ''Struttura''
 +
typedef struct _CLASS
 +
dichiarata nel file header "gbx_class.h".
 +
Public Sub Main()
 +
 +
  Dim p As Pointer
 +
 +
<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) alla Struttura "_CLASS":''</font>
 +
  p = Object.Address(Me)
 +
 +
  Functio(p)
 +
 +
End
 +
 +
 +
Private Function Functio(po As Pointer)
 
   
 
   
−
  '''End'''
+
  Dim p1, p2 As Pointer
 +
  Dim i As Integer
 +
   
 +
<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS":''</font>
 +
  p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)
 +
 +
<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) al primo membro di tipo "Puntatore" "char *name;" della Struttura "CLASS_DESC_SYMBOL *table":''</font>
 +
  p2 = Pointer@(p1)
 +
 +
<FONT Color=gray>' ''Dereferenzia (legge i sigoli dati-byte) del predetto membro di tipo "Puntatore" "char *name;":''</font>
 +
  For i = 0 To 123
 +
    If Byte@(p2 + i) == 0 Then
 +
      Print
 +
      Continue
 +
    Endif
 +
    Print Chr(Byte@(p2 + i));
 +
  Next
 +
 
 +
End

Versione attuale delle 18:07, 30 nov 2023

Per conoscere tutti i simboli relativi alle risorse (Proprietà, Metodi ed Eventi), che una Classe mette a disposizione del programmatore, si può utilizzare il seguente codice con la Classe "Class".


Conoscere i simboli posseduti da una Classe nativa

Poniamo il caso di voler conoscere i simboli posseduti dalla Classe Button: 

Public Sub Form_Open()

 Dim s As String

 For Each s In Class.Load("Button").Symbols
   Print s
 Next

End

Conoscere i simboli posseduti da una Classe specifica creata

Ugualmente è possibile conoscere i simboli delle risorse possedute da una Classe specifica da noi creata, purché tali risorse siano dichiarate Pubbliche.

Poniamo il caso di aver creato nel nostro progetto una specifica Classe, chiamata Class1, e che il suo codice sia il seguente: 

Public alfa As Integer

Event Evento()    ' La risorsa Event è di per sé "Pubblica"


Public Procedure Prova()
 
 Print "Testo qualsiasi"
 
End

Ebbene, il codice della Classe principale per conoscere i simboli delle risorse della Classe secondaria "Class1" sarà semplicemente: 

Public Sub Form_Open()

 Dim cl As New Class1   ' Dichiariamo la variabile della Classe secondaria "Class1", anche se ai fini dell'argomento di questa pagina non è necessario
 Dim s As String

 For Each s In Class.Load("Class1").Symbols
   Print s
 Next

End


Le Proprietà della Classe virtuale ".Symbol"

La Classe "Class" possiede una Classe virtuale, chiamata ".Symbol", che fornisce alcune Proprietà sui simboli della Classe principale.

Per disporre di tali Proprietà bisognerà porre il nome della Classe da caricare tra due parentesi quadre: 

Public Sub Form_Open()
 
 Dim cl As Class
 
 cl = Class.Load("Color")
 
 Print cl["RGB"].Type
 
End

Di seguito un esempio più completo, nel quale vengono esclusi gli eventuali Metodi della Classe: 

Public Sub Form_Open()
 
 Dim cl As Class
 Dim s As String
 
 cl = Class.Load("Color")
 
 For Each s In cl.Symbols
   If cl[s].Kind = Class.Method Then Continue
   Print Hex(Object.GetProperty(cl, s), 8), s
   Wait 0.3
 Next
 
 Me.Close
 
End


Usando i Puntatori per accedere alla Struttura "_CLASS" dei sorgenti di Gambas

Una modalità più complessa e per conoscere elementi più generici, si può accedere al membro "CLASS_DESC_SYMBOL *table" della Struttura 

typedef struct _CLASS

dichiarata nel file header "gbx_class.h". 

Public Sub Main()

 Dim p As Pointer

' Accede (ottiene l'indirizzo di memoria) alla Struttura "_CLASS":
 p = Object.Address(Me)

 Functio(p)

End


Private Function Functio(po As Pointer)

 Dim p1, p2 As Pointer
 Dim i As Integer

' Accede (ottiene l'indirizzo di memoria) al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS":
 p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)

' Accede (ottiene l'indirizzo di memoria) al primo membro di tipo "Puntatore" "char *name;" della Struttura "CLASS_DESC_SYMBOL *table":
 p2 = Pointer@(p1)

' Dereferenzia (legge i sigoli dati-byte) del predetto membro di tipo "Puntatore" "char *name;":
 For i = 0 To 123
   If Byte@(p2 + i) == 0 Then
     Print
     Continue
   Endif
   Print Chr(Byte@(p2 + i));
 Next
 
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Conoscere_le_risorse_possedute_da_una_Classe&oldid=35601"