Read_Data

Синтаксис

sub Read_Data(ByVal fileHandle As HANDLE,ByRef pMemory As Byte ptr ,ByVal Lenght As Integer)

Описание

Читает из файла необходимый объем байт, указанный в 3 параметре, в буфер, указанный во 2 параметре

Параметры

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

pMemory - адрес буфера (может быть выделен с помощью Allocate, CAllocate и впоследствии освобожден функцией DeAllocate)

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_=Callocate(Size_File(handle))
  Read_Data(handle,data_,Size_File(handle))
  For a As Integer=0 To Size_File(handle)-1
     ? Chr(data_[a])
  Next
  Close_File(handle)
  DeAllocate(data_)
EndIf
Sleep

Результат

F
r
e
e
B
a
s
i
c

a

g
o
o
d
 
p
r
o
g
r
a
m
m
i
n
g
 
l
a
n
g
u
a
g
e

Created with the Personal Edition of HelpNDoc: Free Web Help generator