PureBasic Forums - English

Code: Select all

MaxBufferSize = $1000000
StandardFile$ = ""
Pattern$ = "All files (*.*)|*.*"
Pattern = 0
File$ = OpenFileRequester("Please choose file to load", StandardFile$, Pattern$, Pattern)
Debug "FileName: " + File$
If File$
  If ReadFile(0, File$)
    length.q = Lof(0)
    Debug "FileSize: " + Str(length)
    If length > MaxBufferSize
      BufferSize = MaxBufferSize
    Else
      BufferSize = length
    EndIf
    Debug "bufferSize: " + Str(BufferSize)
    *MemoryID = AllocateMemory(BufferSize)
    If *MemoryID
      bytes = ReadData(0, *MemoryID, BufferSize)
      Debug "Number of bytes read: " + Str(bytes)
      FreeMemory(*MemoryID)
    EndIf
    CloseFile(0)
  Else
    Debug "Couldn't open the file!"
  EndIf
Else
  Debug "The requester was canceled."
EndIf