Fabian_Russ

Found the solution, you need to write the header of the wave file, I believe the DirectSound.SecondaryBuffer strips the header from the wave file, and by using the Read method, the header is not returned, meaning you are to re-write the header, but by using the properties from the DirectSound.SecondaryBuffer class, there should not be any issues re-writing the headers. Working code: ------------------------------------------------------------------------- Imports DirectX Imports DirectX.DirectSound Imports IO Public Class DSound Public DSDevice As DirectSound.Device Public DSBuffers As New List(Of DirectSound.SecondaryBuffer) Private Sub Save(ByVal Path As String) Dim Writer As New BinaryWriter(New FileStream(Path, FileMode.Create, FileAccess.ReadWrite)) Dim BufferData As Byte() = Nothing DSBuffers(0).SetCurrentPosition(0) CreateRIFF(Writer, DSBuffers(0).Format, DSBuffers(0).Caps.BufferBytes) BufferData = CType(DSBuffers(0).Read(0, GetType(Byte), LockFlag.None, DSBuffers(0).Caps().BufferBytes), Byte()) Writer.Write(BufferData, 0, BufferData.Length) Writer.Close() End Sub 'Code used to create the header and ect. Private Sub CreateRIFF(ByVal filename As String, ByVal InputFormat As WaveFormat, ByVal SampleCount As Integer) '************************************************************************* ' Here is where the file will be created. A ' wave file is a RIFF file, which has chunks ' of data that describe what the file contains. ' A wave RIFF file is put together like this: ' ' The 12 byte RIFF chunk is constructed like this: ' Bytes(0 - 3) 'R' 'I' 'F' 'F' ' Bytes 4 - 7 : Length of file, minus the first 8 bytes of the RIFF description. ' (4 bytes for "WAVE" + 24 bytes for format chunk length + ' 8 bytes for data chunk description + actual sample data size.) ' Bytes(8 - 11) 'W' 'A' 'V' 'E' ' ' The 24 byte FORMAT chunk is constructed like this: ' Bytes(0 - 3) 'f' 'm' 't' ' ' ' Bytes 4 - 7 : The format chunk length. This is always 16. ' Bytes 8 - 9 : File padding. Always 1. ' Bytes 10- 11: Number of channels. Either 1 for mono, or 2 for stereo. ' Bytes 12- 15: Sample rate. ' Bytes 16- 19: Number of bytes per second. ' Bytes 20- 21: Bytes per sample. 1 for 8 bit mono, 2 for 8 bit stereo or ' 16 bit mono, 4 for 16 bit stereo. ' Bytes 22- 23: Number of bits per sample. ' ' The DATA chunk is constructed like this: ' Bytes(0 - 3) 'd' 'a' 't' 'a' ' Bytes 4 - 7 : Length of data, in bytes. ' Bytes 8 -...: Actual sample data. '************************************************************************** ' Open up the wave file for writing. WaveFile = New FileStream(filename, FileMode.Create) Writer = New BinaryWriter(WaveFile) ' Set up file with RIFF chunk info. Dim ChunkRiff As Char() = {"R", "I", "F", "F"} Dim ChunkType As Char() = {"W", "A", "V", "E"} Dim ChunkFmt As Char() = {"f", "m", "t", " "} Dim ChunkData As Char() = {"d", "a", "t", "a"} Dim shPad As Short = 1 ' File padding Dim nFormatChunkLength As Integer = &H10 ' Format chunk length. Dim nLength As Integer = CInt(SampleCount + 36) ' File length, minus first 8 bytes of RIFF description. Dim shBytesPerSample As Short = 0 ' Bytes per sample. ' Figure out how many bytes there will be per sample. If 8 = InputFormat.BitsPerSample And 1 = InputFormat.Channels Then shBytesPerSample = 1 ElseIf 8 = InputFormat.BitsPerSample And 2 = InputFormat.Channels Or (16 = InputFormat.BitsPerSample And 1 = InputFormat.Channels) Then shBytesPerSample = 2 ElseIf 16 = InputFormat.BitsPerSample And 2 = InputFormat.Channels Then shBytesPerSample = 4 End If ' Fill in the riff info for the wave file. Writer.Write(ChunkRiff) Writer.Write(nLength) Writer.Write(ChunkType) ' Fill in the format info for the wave file. Writer.Write(ChunkFmt) Writer.Write(nFormatChunkLength) Writer.Write(shPad) Writer.Write(InputFormat.Channels) Writer.Write(InputFormat.SamplesPerSecond) Writer.Write(InputFormat.AverageBytesPerSecond) Writer.Write(shBytesPerSample) Writer.Write(InputFormat.BitsPerSample) ' Now fill in the data chunk. Writer.Write(ChunkData) Writer.Write(SampleCount) ' The sample length End Sub End Class ------------------------------------------------------------------------- I hope this fixes your problem as well.

Thanks. Skybound Gecko is a good vb.net port for anyone who wants to use the Gecko engine.

Re: WELL DONE lol yeah, I forgot about posting on this thread, the issue probably was 64-bit, since DirectX will not compile under AnyCPU/64-bit. Thanks.

Hello, for three days now, I have been working with DirectSound, and have ran into a pretty big issue. I cannot figure out how to return a byte array from the SecondaryBuffer, I understand how to create the secondary buffer from a memory stream but not vice-versa, I need to either: A: Read the SecondaryBuffer to a Memory stream. B: Read the SecondaryBuffer to a Byte array. Here is what I have so far (please let me know if there is anything I can improve): ------------------------------------------------------------------------- Public Class DSound2 Public DSDevice As DirectSound.Device Public DSBuffers As New List(Of DirectSound.SecondaryBuffer) Public Sub Save(ByVal Path As String) 'Create directory if it does not exist. If Not IO.Directory.Exists(Path.Remove(Path.LastIndexOf("\"))) Then IO.Directory.CreateDirectory(Path.Remove(Path.LastIndexOf("\"))) End If 'Create file if it does not exist and close it. If Not IO.File.Exists(Path) Then IO.File.Create(Path).Close() End If 'Declare storage for SecondaryBuffer Dim StreamBytes As Byte() = New Byte(39999) {} Dim StreamDat As New IO.MemoryStream(StreamBytes, 0, 40000, True, True) 'Loop through each SecondaryBuffer, returning data to StreamDat. For Each File In DSBuffers 'File.Read seems to never return the correct data, ever. 'I know I am doing something wrong and it will take work to fix it but 'I thought this part would be easy, I've swapped pieces of code around many times and the best I could get was a byte array full of zeros. File.Read(0, StreamDat, DirectSound.LockFlag.EntireBuffer, DirectSound.LockFlag.None) 'Transfer the data from the MemoryStream to the Byte Array. StreamBytes = StreamDat.ToArray() Next End Sub End Class ------------------------------------------------------------------------- I would just like to convert the SecondaryStream object to Base64 data and write the combined DSBuffer objects to one single file. It's getting the data back from SecondaryStream that is the issue though. Any help/comments would very much be appreciated. I will continue research to find a fix and will post back if I find one. Thanks.

Which should I be using? Direct2D, GDI+ or DirectDraw? I want to make a 2D platformer game and this is bothering me, I know little about the 3, for all I know, they are the same thing! Please help me understand. :confused:

Re: WELL DONE Think you could whip up a VB 2008 version of this? 2008 does not like this at all. Oh wow.. This is almost the year 2010, I doubt this comment will ever be seen. O.o... I guess that means nobody is looking... *picks nose*

Wow dude! that's exactly what i'm looking for!!! you're the best! 5/5 star rating!!!

Is it possible to program events and subs like the Click Event for a button that was declared without physically being on the form? Example: Dim NewButton as New Button How would I go about firing the click event and using it inside a button that is not physically in the form during design time, but instead a new instance of it being created during runtime? Any help is appreciated, Thanks :D

I've seen tutorials on this, I might use XNA, This game is Winforms, and yeah, I'm not opposed to the idea of a 2D game, it is the implementation. I might take a look at XNA, Thanks for answering :D!

Thank you for answering, you have lead me into the right direction :D!

I think it is fixed now, thanks for posting though :D!

Hey, Any suggestions on how I should go about loading levels into my game? I have a very good piece of code working for my player... collision detection works 100%, doors work (including the ID property for teleporting to rooms).. I'm probably going about all of this the wrong way, and I don't want to make a 2D game using tiles. I guess all I'm asking is... how should I go about this? I've tried making an MDIParent and MDIChild to get pre-made forms to load, I don't really like the idea of doing that... I've also tried getting each control off of 1 form onto another and that isn't working right.. I am probably going to make an editor to export each control name and their properties and then have the form to load the properties off of the text file based on the level ID, I could probably easily do that but would that be the right way? Any help is appreciated!

I have fixed it! :D If anyone has the same problem I experienced, Try this! Me.Controls.Clear() Dim TempControlRange(1000) As Control Form2.Controls.CopyTo(TempControlRange, 0) Me.Controls.AddRange(TempControlRange) Works like a charm!

I've searched everywhere online and can't find anything on this. Is there was any way to migrate all controls from form to form? I've tried For Each Ctrl as Control in Form2.Controls Form1.Controls.Add(Ctrl) Next I get skipped controls and ect... but... If I try to get the name of each control For Each Ctrl as Control in Form2.Controls Debug.Print(Ctrl.Name) Next It does not skip any and the debugger prints every control's name just fine. Any Ideas? This is really bothering me.

Is it possible to get properties off of objects in an external app? I need to click a button on an external program and I also need to get the name of that button, I've tried and tried and I don't see a good way of accomplishing this. I've played with SendKeys and I fail pretty badly with that. I'm trying to make a program that will automatically install programs for me by doing things like checking the Agree checkbox and pressing the Ok button. All help/comments would be appreciated! Thanks!