Code for drawing Audio wav on Canvas

[X-MaaN]

Since few days I have been trying to draw wave using code in Canvas. I want the wave look similar to the wave that we see in an audio editor. For it I have done researches over the internet also tried two different plug-in. The plug- in that I have used are MBS audio and MBS QTime. If you just have a look at the plug-in area, I also tried the code for WEB look including dissecting the audio recording one MBS audio.

[Vandam]

I have found the below example in on the internet. I hope it will help you with some reference.

First ADD a canvas, a pushbutton and a listbox to your window.
put this in the pushbutton

dim I, value, average as integer
dim f as folderItem
dim b as binaryStream

listBox1.deleteAllRows
canvas1.graphics.clearRect 0, 0, canvas1.width, canvas1.height

f=GetOPenFolderItem("special/any")


if f <> nil then
b=f.OpenAsBinaryFile(false)

[Shreevats]

The below code will read 16 bit files. However, the image is drawn does not really look anything like the waveform that we've all come to expect. See the below:

if b <> nil then
average = b.length/canvas1.width
for I = 0 to (canvas1.width)
b.littleEndian=true
value=b.readlong+b.readlong
value=value/65536.0
value=value/256*canvas1.height/2
value=value/canvas1.height
listBox1.addrow str(value)
canvas1.graphics.drawline i, canvas1.height/2, i, value+canvas1.height/2
b.position = b.position + average

next
end if
end if

b.close

[Villiers]

Considering the math to get the
Assuming the math to get "value" is correct, you can follow the previous value to get a distinctive waveform:
Code:

lastValue = canvas1.width/2
average = b.length/canvas1.width
for I = 0 to (canvas1.width)
  b.littleEndian=true
  value=b.readlong+b.readlong
  value=value/65536.0
  value=value/256*canvas1.height/2
  value=value/canvas1.height
  listBox1.addrow str(value)
  canvas1.graphics.drawline i, lastValue, i, value+canvas1.height/2
  lastValue = value+canvas1.height/2
  b.position = b.position + average
next

[Ronchi]

Legitimate wave-I ran into it before-it works well enough on the mac (separated from then open key getting the center and pressing space could reactivate the open pushbutton as opposed to playing it). It doesn't work truly well on windows whatsoever. It worked perhaps 2 out of the 40 times I ran it and it could collision regularly. In this way, its somewhat useless as a cross stage explanation for drawing a wave plan.

[Dwarner]

There is no real way to change the window height and width of waves and it's all encapsulated within the class itself wave canvas.

b.littleEndian=true
value=b.readlong+b.readlong
value=value/65536.0
value=value/256*canvas1.height/2
value=value/canvas1.height
listBox1.addrow str(value)
canvas1.graphics.drawline i, canvas1.height/2, i, value+canvas1.height/2
b.position = b.position + average

[void]

The save and restore function in the context of an easy way to apply these cumulative effects, draw a picture or web form that has applied these effects, and then "undo" the changes. Behind the scenes of the save function pushes the current state of drawing in a pile, while the restore function appears in the latest state of the stack. Hope my information helps you and your query gets solved.