[Gambas-user] error memory corruption: 0x08223b30

[vitaf at ...1977...]

   Hello! 

  At performance of a mentioned below code there is an error: 

  *** glibc detected *** webcam1: malloc (): memory corruption:
0x08223b30 ***! 

  (OR error #11)

  How it to correct, where I am mistaken? 

  File. Save ("/tmp/picrvka", sBuf) 

  Picture. Flush 

  PictureBox1.Picture = Picture. Load ("/tmp/picrvka") 

  PictureBox1.Refresh 

  All code is resulted more low. 

   ' Gambas class file
PRIVATE hWebcam AS VideoDevice
PRIVATE OnSet AS Boolean
PRIVATE Fps AS Date
PRIVATE nFps AS Integer

PUBLIC SUB Form_Open()
  TRY MKDIR (System.Home & "/.gambas-webcam")
END

PUBLIC SUB Button1_Click()

  DIM num AS Integer
  DIM Buf AS String

  IF hWebCam THEN
    Button1.Caption = ("Capture")
    TxtDevice.Enabled = TRUE
    hWebCam = NULL
    Tmr.Enabled = FALSE
    RETURN
  END IF

  TRY hWebCam = NEW VideoDevice(TxtDevice.Text)
  IF ERROR THEN
    Message.Error(("Unable to open video device"))
    RETURN
  END IF
  hWebCam.Source = hWebCam.TV + hWebCam.PAL

  Button1.Caption = ("Stop")
  TxtDevice.Enabled = FALSE
  OnSet = TRUE

  WAIT 0.001
  OnSet = FALSE
  Tmr.Delay = 30
  Tmr.Enabled = TRUE
  ME.Caption = hWebCam.Features.Name
  Fps = Now()
  nFps = 0

END

PUBLIC SUB Tmr_Timer()

  DIM T1 AS Date
  DIM sBuf AS String

  Tmr.Enabled = FALSE
  TRY FLUSH #hWebCam
  TRY READ #hWebCam, sBuf, Lof(hWebCam)
  IF NOT ERROR THEN

'IF ERROR THEN
'    Message.Error(("Тест пропуск"))
'    RETURN
'END IF 

'2

'вариант 3
File.Save("/tmp/picrvka", sBuf)
Picture.Flush
PictureBox1.Picture = Picture.Load("/tmp/picrvka")
PictureBox1.Refresh 
'KILL "/tmp/picrvka"
'конец вариант 3

' 4

     nFps = nFps + 1
    T1 = Now() - Fps
    IF Second(T1) >= 1 THEN
      ME.Caption = hWebCam.Features.Name & " (" & nFps & " fps)"
      Fps = Now()
      nFps = 0
    END IF
  END IF
  Tmr.Enabled = TRUE

END

PUBLIC SUB Form_Close()

  Tmr.Enabled = FALSE
  hWebCam = NULL

END

  Vitaly.