Measurement Computing ADLIB WIN - Manual (Page 29)

Chapter 6 Memory Buffer Allocation 6-5
If lpDataBuffStat.lErrorFlags <> 0 Then
Msg = "Buffer Error = "
Msg = Msg & lpDataBuffStat.lStatusFlags
MsgBox "Buffer Error", MB_ICONSTOP, "ADLIB Buffer Error"
Form_Unload (1)
End If
errnum& = AL_CopyBuffer(gblLhld&, wParam, DataBuff(0), 0, 2048)
If errnum& < 0 Then
MsgBox "AL_CopyBuffer Error", MB_ICONSTOP, "ADLIB Error"
Form_Unload (1)
End If
errnum& = AL_DemuxDataSet(gblLhld&, wParam, EngUnits(0), 0, 1)
If errnum& < 0 Then
MsgBox "AL_DemuxDataSet Error", MB_ICONSTOP, "ADLIB Error"
Form_Unload (1)
End If
errnum& = AL_ClearBufferDoneFlag(gblLhld&, wParam)
If errnum& < 0 Then
MsgBox "AL_ClearBufferDoneFlag Error", MB_ICONSTOP, "ADLIB Error"
Form_Unload (1)
End If
End Sub