Function PeekS(ByVal Memory As Any Ptr, byval iLen As Integer = 0) As String
Возвращает строку по указанному адресу. Ищет первый нулевой символ. Как только ноль будет найден, все байты включая его копируются
Memory - Адрес буфера, откуда будет скопированы байты в строку
iLen - Длина получаемых байт. Если не указано, то копируется до первого встречаемого нуля
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_DataS(handle,Size_File(handle))
? PeekS(data_)
Close_file(handle)
DeAllocate(data_)
EndIf
Sleep
FreeBasic a good programming language
Created with the Personal Edition of HelpNDoc: Free Web Help generator