Sapere se un file PDF è ancora aperto in lettura o è chiuso

Da Gambas-it.org - Wikipedia.

Per sapere se un file PDF è ancora aperto in lettura o è già chiuso, è possibile utilizzare la seguente modalità.

Si deve partire dalla circostanza che il file PDF di versione minore della 1.3 termina i seguenti valori: 45 4F 46 0D 0A, mentre il file PDF di versione uguale o superiore alla versione 1.3 termina con i seguenti valori: 45 4F 46 0A. Ebbene, dopo aver aperto il file PDF e posto in osservazione l'operazione della lettura dei suoi dati, sapremo che la lettura del file è giunta alla fine, quando appunto avremo appena letto quei valori prima citati. Fin tanto che non sono stati letti quei valori, il file è ancora aperto posto sotto il processo di lettura dei suoi dati.


Mostriamo un esempio:

Private fl As File


Public Sub Main()
 
 Dim origo As String = "/percorso/del/file.pdf"
 Dim novum As String = "/tmp/bis.pdf"
  
  File.Save(novum, File.Load(origo))
  
  fl = Open novum For Read Watch
  
End


Public Sub File_Read()
 
 Dim i As Integer
  
  i = InStr(File.Load("/tmp/bis.pdf"), "EOF")
  
  If i > 0 Then
    Print i
    fl.Close
    Print "Fine lettura !"
  Endif
  
End