Write_Data

Синтаксис

Sub Write_Data(ByVal Handle As handle, ByVal pAddress As Any Ptr, ByVal Lenght As Long)

Описание

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

Параметры

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

pAddress - указатель на буфер

Lenght - кол-во байтов для записи

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim adf(100) As Long
For a As Long=0 To 100
  adf(a)=a
Next
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
  Write_Data(handle,@adf(0),404)
  Close_file(handle)
EndIf
handle=Read_file("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
  Var ff=Read_DataA(handle,Size_File(handle))
  For a As Long=1 To Size_File(handle)
     ? Peek(Byte,ff);
     ff+=1
  Next
  Close_file(handle)
EndIf
Sleep

Created with the Personal Edition of HelpNDoc: Free help authoring tool