Visualizza wikitesto di Ottenere all'apertura di un file un Puntatore anziché una variabile di tipo File

Come è noto, attualmente Gambas consente di gestire un file, aperto con l'istruzione ''Open ... For'', attraverso una variabile di tipo ''File''.
<BR>Se, invece, all'apertura di un file si intende ottenere, in modo particolare per operare con le funzioni esterne, una variabile di tipo ''Puntatore'', per gestire tale file, anziché una variabile di tipo ''File'', bisognerà utilizzare la funzione esterna "fopen()" della libreria di C. Conseguentemente, per la gestione del file attraverso il ''Puntatore'', si useranno le altre funzioni di C capaci di gestire tale ''Puntatore''.

Mostriamo un esempio essenziale:
 Library "libc:6"
 
 <FONT Color=gray>' ''FILE *fopen(const char *__filename, const char *__modes)''</font>
 Private Extern fopen(__filename As String, __modes As String) As Pointer
 
 <FONT Color=gray>' ''size_t fread(void *__ptr, size_t __size, size_t __n, FILE *__stream)''</font>
 Private Extern fread(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long
 
 <FONT Color=gray>' ''int feof(FILE *__stream)''</font>
 Private Extern feof(__stream As Pointer) As Integer
 
 <FONT Color=gray>' ''size_t fwrite(void *__ptr, size_t __size, size_t __n, FILE *__stream)''</font>
 Private Extern fwrite(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long
 
 <FONT Color=gray>' ''int fclose(FILE *__stream)''</font>
 Private Extern fclose(__stream As Pointer) As Integer
 
 
 Public Sub Main()
 
  Dim <FONT Color=#B22222>'''pf'''</font> As Pointer
  Dim b As Byte
  Dim bb As New Byte[]
 
 <FONT Color=gray>' ''Apre il file in lettura:''</font>
  <FONT Color=#B22222>'''pf'''</font> = <FONT Color=#B22222>fopen</font>("<FONT Color=darkgreen>''/percorso/del/file/da/leggere''</font>", "rb")
 
 <FONT Color=gray>' ''Legge il file, ponendo i suoi byte in un vettore:''</font>
  Do
    <FONT Color=#B22222>fread</font>(VarPtr(b), 1, 1, <FONT Color=#B22222>'''pf'''</font>)
    If <FONT Color=#B22222>feof</font>(<FONT Color=#B22222>'''pf'''</font>) then Break
    bb.Push(b)
  Loop
 
  <FONT Color=#B22222>fclose</font>(<FONT Color=#B22222>'''pf'''</font>)
 
 <FONT Color=gray>' ''Apre il file in scrittura:''</font>
  <FONT Color=#B22222>'''pf'''</font> = <FONT Color=#B22222>fopen</font>("<FONT Color=darkgreen>''/percorso/del/file/da/scrivere''</font>", "wb")
 
 <FONT Color=gray>' ''Scrive i byte letti in un nuovo file:''</font>
  <FONT Color=#B22222>fwrite</font>(bb.Data, bb.Count, 1, <FONT Color=#B22222>'''pf'''</font>)
 
  <FONT Color=#B22222>fclose</font>(<FONT Color=#B22222>'''pf'''</font>)
 
 End