Conoscere il nome del Componente di appartenenza di una Classe mediante i sorgenti di Gambas

Mostriamo un esempio pratico, nel quale si otterrà il nome del Componente, al quale appartiene la Classe "Image":

Public Sub Main()
 
 Dim im As New Image
 Dim p1, p2, p3 As Pointer
 
 im.Load("/percorso/del/file/immagine")
 
 p1 = Object.Address(im)  ' in Struttura GB_BASE    (gambas.h)
 p2 = Pointer@(p1)        ' in Struttura CLASS      (gbx_class.h)
 
 Print String@(Pointer@(p2 + 24))
 
 p3 = Pointer@(p2 + 200)  ' in Struttura COMPONENT (gbx_component.h)
 Print String@(Pointer@(p3 + 48))
 
' Verifichiamo la corrispondenza mediante le risorse proprie di Gambas:
 Print Class.Load("Image").Component.Name
  
End

Pagina in costruzione !