On 24 January 2010 16:02, kevinfishburne
<kevinfishbu...@eightvirtues.com> wrote:

> Excellent, thanks. I seem to have found something horrifying while trying to
> create the file using GAMBAS however; using the SEEK statement with an
> argument greater than 2 GB raises a "Bad argument" error. While that doesn't
> affect my ability to create the file, it kills me later when trying to read
> and write to it. Other than using a different version of GAMBAS all I can
> think to do is to create four 2 GB data files, which will create additional
> overhead in the read/write procedures that access the file. Actually since
> my file is slightly larger than 8 GB I'll need to create five separate
> files. :(

I am using gb3 and have no problem accessing a 3.7GB file:

Stick a button on a form, then:

Private bigfile As String = Application.Path & "/bigfile"

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

  Dim hFile As File
  Dim LastChar As Byte

  hFile = Open bigfile For Input

  ' Should get 3930677248
  Debug Lof(hFile)

  Seek #hFile, 3930677241

  ' Should get 3930677241
  Debug Seek(hFile)

  Read #hFile, LastChar

  ' Should get 3
  Debug LastChar

  Close #hFile

End


Output:
FMain.Button1_Click.22: 3930677248
FMain.Button1_Click.27: 3930677241
FMain.Button1_Click.32: 3

All correct.

------------------------------------------------------------------------------
Throughout its 18-year history, RSA Conference consistently attracts the
world's best and brightest in the field, creating opportunities for Conference
attendees to learn about information security's most important issues through
interactions with peers, luminaries and emerging and established companies.
http://p.sf.net/sfu/rsaconf-dev2dev
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to