Versione delle 15:08, 10 set 2022

Passare una Struttura ad una Funzione esterna

Può accadere che nell'uso di funzioni esterne si debba a loro passare delle Strutture, affinché siano rempite di valori che il programma Gambas dovrà successivamente gestire, oppure per trasmettere alle funzioni medesime dei valori presenti nei campi delle Strutture.

Supponiamo, quindi, di avere una funzione esterna (presente ovviamente in una determinata Libreria che qui come esempio fingiamo si chiami "miaLibreria) che appunto preveda come parametro una Struttura. Supponiamo altresì che il nome di tale Struttura modello sia: NomeStruttura.
Nella dichiarazione della funzione esterna con Extern dovrà essere posto il nome della Struttura modello, mentre nella funzione, quando la si utilizzerà effettivamente in una routine, andrà posto il nome della variabile particolare della Struttura, che ai fini di questo esempio chiameremo: variabileStruttura.

' Dichiara la Struttura modello:
Public Struct NomeStruttura
   membro1 As Byte
   membro2 As Short
   membro3 As Integer
 End Struct

' Crea la variabile Struttura particolare:
Private variabileStruttura As New NomeStruttura


' Dichiara la Libreria che contiene la funzione esterna:
Library "miaLibreria"

' Dichiara la funzione esterna che andrà ad utilizzare:
Private Extern funzione_esterna(varSt As NomeStruttura)


Public Sub Main()

' Se si devono passare alla Funzione esterna dei valori per mezzo della Struttura, allora nella routine i membri della Struttura dovranno essere ovviamente riempiti prima della funzione esterna.

' Utilizza la funzione esterna:
 funzione_esterna(variabileStruttura)

' Se, invece, è la Funzione esterna ad avere il compito di riempire i membri della Struttura, allora i valori contenuti dai campi della Struttura potranno essere raccolti ovviamente solo dopo la funzione esterna.

End

Funzione esterna che ritorna una Struttura

La Funzione esterna potrà ritornare proprio una Struttura.

Esempio (usa per il riferimento alla Funzione esterna ed alla Struttura le denominazioni del precedente paragrafo):

' Dichiara la Funzione esterna che ritornerà una "Struttura":
Private Extern funzione_esterna(varI As Integer, varB As Byte) As NomeStruttura

Public Sub Button1_Click()

 Dim vI as Integer
 Dim vB as Byte

 strutturaParticolare = funzione_esterna(vI, vB)

End

Dereferenziare senza Memory-Stream un Puntatore, che punta ad una Struttura, passato da una funzione esterna

Con la rev. #4978 è ora possibile dereferenziare un Puntatore, che punta ad una Struttura esterna, passato da una funzione esterna - in modo più diretto: senza l'uso di Memory-Stream |Note 1.

Per questo argomento si rimanda alla specifica pagina sulla WIKI.

Note

[1] Sull'uso dei Memory-Stream in generale.