Function Read_LongInt(ByVal fileHandle As HANDLE) As LongInt
Читает из файла 8 байтовое целое число
fileHandle - хендл файла
Windows , Linux
#Include "window9.bi"
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
Write_LONGINT(handle,565546565565776)
Close_file(handle)
EndIf
handle=Read_file("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
? Read_LONGINT(handle)
Close_file(handle)
EndIf
Sleep
565546565565776
Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad