You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
912 B
36 lines
912 B
Public Class CURFile |
|
|
|
Private m_pStream As CurFileStream |
|
Private m_duration As Long |
|
Private mInstructions As New List(Of DictionaryEntry) |
|
Private mInstructionsShort As New List(Of Short) |
|
|
|
'New |
|
Public Sub New(ByVal curFileName As String, ByVal lyrFileName As String) |
|
m_pStream = New CurFileStream |
|
m_pStream.open(curFileName) |
|
If m_pStream IsNot Nothing Then |
|
m_duration = 0 |
|
End If |
|
'readPackets() |
|
ReadShort() |
|
End Sub |
|
|
|
Private Sub readPackets() |
|
While m_pStream.eof() = False |
|
Dim myByte(1) As Byte |
|
m_pStream.read(myByte, 2) |
|
mInstructions.Add(New DictionaryEntry(CInt(myByte(0)), CInt(myByte(1)))) |
|
End While |
|
End Sub |
|
|
|
Private Sub ReadShort() |
|
While m_pStream.eof() = False |
|
Dim myByte(1) As Byte |
|
m_pStream.read(myByte, 2) |
|
mInstructionsShort.Add(System.BitConverter.ToInt16(myByte, 0)) |
|
End While |
|
|
|
End Sub |
|
|
|
End Class
|
|
|