Read_DataA

Синтаксис

Function Read_DataA(ByVal fileHandle As HANDLE, ByVal Lenght As Integer) As Byte Ptr

Описание

Читает из файла необходимый объем байт, указанный во 2 параметре. Память необходимо освобождать функцией DeAllocate, когда она больше не требуется.

Параметры

fileHandle - хендл файла

Lenght - кол-во байт для чтения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Byte Ptr data_
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
  Write_String(handle,"FreeBasic a good programming language")
  Close_file(handle)
EndIf
handle=Read_file("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
  data_=Read_DataA(handle,Size_File(handle))
  For a As Integer=0 To Size_File(handle)-1
     ? data_[a]
  Next
  Close_file(handle)
  DeAllocate(data_)
EndIf
Sleep

Результат

70
114
101
101
66
97
115
105
99
32
97
32
103
111
111
100
32
112
114
111
103
114
97
109
109
105
110
103
32
108
97
110
103
117
97
103
101

Created with the Personal Edition of HelpNDoc: Free EBook and documentation generator