Measurement-computing ADLIB WIN Instrukcja Użytkownika Pobierz pdf (Strona 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

1 2 ... 24 25 26 27 28 29 30 31 32 33 34 ... 190 191

Brak uwag

Measurement-computing ADLIB WIN Instrukcja Użytkownika Strona 29