Printable View
I am trying to set up a program to phone members of my church and play a wave file with the latest news and events.
I think I need a tapi solution to this but I'm more accustom to Access then VB6. I have made a few basic programs but this one is going to be a challange.
So here's what I need to do.
1. Dial the members number.
2. Wait for an answer.
3. Deliver a message via wav file.
4. Hang up and repeat the process.
Any help and suggestions would be appreciated.
Thanks
Rich De Gay
Hi.
I think this can be done by your phone network software.
It already created for you but i don't know if you pay for it or it's free.
No Sap it can't...Our phone system is not that good. But thanks for the reply
Has anyone found any solution to this? I am using AT commands to dial the phone. I can hear junk in the modem when the phone is answered. Can also hear tones when the phone presses a key. But really no idea how to start to go about playing the wav file. Any sample code or insight would be greatly appreciated.
If you hear "junk" it means the AT command you give is for FAX. What you need is to send the AT command for Voice.
See this thread starting at post #51: http://www.vbforums.com/showthread.php?t=365345&page=2
The sound you have to send/receive through the comm port as wave data (NOT through the sound card as you may expect!).
So you have to convert your data to propper format, probably something like Mono, 8 Bit, 11025Hz, and then send that binary data (the sound) through the comm port.
When you want to record, then you have to give the AT command for recording, and start saving the data received to a wave file.
Also, there are not many modems that support Voice, so make sure your modem supports Voice first, if not you many have to buy one.
Thank CVMichael i just made a ton of progress thanks to you. I can now dial, answer, and play tones. I can even recieve tones back. But playing the .wav file I'm kinda lost. Pretty sure I must somehow stream to data through but I really dont know how to do this. Any code examples? Or direction where to look? :confused:
You have to tell it what format to transmit or receive, for that you use the command AT+VSM.
If you do "AT+VSM=?" you get all the possible options that your modem can support, something like:
This list is from: http://en.wikipedia.org/wiki/Voice_modem_command_setCode:AT+VSM=?
1,"UNSIGNED PCM",8,0,8000,0,0
129,"IMA ADPCM",4,0,8000,0,0
130,"UNSIGNED PCM",8,0,8000,0,0
140,"2 Bit ADPCM",2,0,8000,
141,"4 Bit ADPCM",4,0,8000,0,0
So, from that pick a format that is easy for you to play and record, so from the list, I would pick either #1 or #130 (they seem to be the same).
So give the command "AT+VSM=1" to tell it you want to use sound format #1.
Then record a wave file with a sound recorder in that format, and send the wave data (the file) through the comm port as binary data.
When you send the wave data, you have to remove the wave header, if you don't know how to do that I don't think it's a big deal if you do send the header also.
To get familliar with wave header & data, see this: VB6.0 – Sound and DirectXSound Tutorial
The commd "AT+VLS=?" will list the options to choose from where to send/receive the sound. Each letter means something, but I don't remember what it means for sure. For example "M" I think it means microphone (and you don't want to choose that by the way).
So to send data (play sound), you should give these commands:
Code:AT+FCLASS=8
AT+VLS=1
AT+VSM=1
AT+VTX
and then the wave data
Yes I am basically following this process.
My problem is when I come to the "and then the wave data" is where I dont know where to begin. I am using System.IO.Ports and I see stuff that looks like it "should" work (.BaseStream, .BytesToRead, .BytesToWrite) but I cant figure out how to use them. I keep getting the error "Value of type 'Byte' cannot be converted to 1-dimensional array of Byte"Code:Code:
AT+FCLASS=8
AT+VLS=1
AT+VSM=1
AT+VTX
and then the wave data
So I guess I am looking more for examples/help with how to stream data since I obviously dont know what I am doing with it.
***edit: I am looking into your "VB6.0 – Sound and DirectXSound Tutorial" link now.
Only the first 2 posts in the tutorial are usefull for your project, the rest is DirectSound and you don't need to deal with that.
Also, the code is for VB6, so you need to convert the header structure to a .NET one
Im really having a hard time with this wav file data stuff. When I do AT+VSM=? my options are
I have tried them all but nothing seems to play other than silence and some crackles here and there. Im thinking maybe my wav file is not the right format? I have tried changing that too but I dont think Im even doing that right.Code:1,"UNSIGNED PCM",8,0,(7200,8000),(0),(0)
128,"8-BIT LINEAR",8,0,(7200,8000),(0),(0)
129,"ADPCM",4,0,(7200,8000),(0),(0)
130,"UNSIGNED PCM",8,0,(7200,8000),(0),(0)
131,"ULAW",8,0,(7200,8000),(0),(0)
132,"ALAW",8,0,(7200,8000),(0),(0)
133,"LINEAR",16,0,(7200,8000),(0),(0)
OK
Choose #1, and record your wave file in format "Mono, 8 Bit, 8000 Hz"
Also, make sure you have the correct "AT+VLS" command, what does it list when you do "AT+VLS=?"
Code:at+vls=?
0,"",10000000,00000000,00000000
1,"t",08841900,0c841800,0b84386d
2,"l",18800100,1c800000,10800000
3,"lt",00000000,00000000,00000000
4,"s",10000000,10000000,10000000
5,"st",08841900,0c841800,0b84386d
6,"m",10000000,10000000,10000000
7,"mst",08841900,0c841800,0b84386d
8,"s1",10000000,10000000,10000000
9,"s1t",08841900,0c841800,0b84386d
10,"ms1t",08841900,0c841800,0b84386d
11,"m1",10000000,10000000,10000000
12,"m1st",08841900,0c841800,0b84386d
13,"m1s1t",08841900,0c841800,0b84386d
14,"h",10000000,10000000,10000000
15,"ht",08841900,0c841800,0b84386d
ok
Code:at+fclass=?
0,1,8,80
ok
"at+fclass" is 8 for Voice, I am pretty sure about this.
for "at+vls", I forgot to ask what modem you have? (the model). You have to find documentation on your modem, to find out what each option in the list of "at+vls" means.
Try "at+vls=0" first...
By the way, ADMIN, please move this thread to appropriate forum (General PC I think?)
Also... it seems this should be separated from the old thread
HIRO Data/Fax/Voice Model H50003
http://www.tigerdirect.com/applicati...76239&csid=_21
and i did find http://www.hiroinc.com/article.php?c...&article_id=37
But a lot of the commands don't seem to work.
Im also thinking my streaming the data is not right.
Code:Private Structure FileHeader
Dim lRiff As Long
Dim lFileSize As Long
Dim lWave As Long
Dim lFormat As Long
Dim lFormatLength As Long
End Structure
Private Structure WaveFormat
Dim wFormatTag As Integer
Dim nChannels As Integer
Dim nSamplesPerSec As Long
Dim nAvgBytesPerSec As Long
Dim nBlockAlign As Integer
Dim wBitsPerSample As Integer
End Structure
Private Structure ChunkHeader
Dim lType As Long
Dim lLen As Long
End Structure
Private Function WaveReadFormat(ByVal InFileNum As Integer, ByRef lDataLength As Long) As WaveFormat
Dim header As FileHeader
Dim HdrFormat As WaveFormat
Dim chunk As ChunkHeader
Dim by As Byte
Dim i As Long
FileGet(InFileNum, header)
If header.lRiff <> &H46464952 Then Exit Function ' Check for "RIFF" tag and exit if not found.
If header.lWave <> &H45564157 Then Exit Function ' Check for "WAVE" tag and exit if not found.
If header.lFormat <> &H20746D66 Then Exit Function ' Check for "fmt " tag and exit if not found.
' Check format chunk length; if less than 16, it's not PCM data so we can't use it.
If header.lFormatLength < 16 Then Exit Function
FileGet(InFileNum, HdrFormat) ' Retrieve format.
' Seek to next chunk by discarding any format bytes.
For i = 1 To header.lFormatLength - 16
Try
FileGet(InFileNum, by)
Catch ex As Exception
End Try
Next
' Ignore chunks until we get to the "data" chunk.
FileGet(InFileNum, chunk)
Do While chunk.lType <> &H61746164
For i = 1 To chunk.lLen
FileGet(InFileNum, by)
Next
FileGet(InFileNum, chunk)
Loop
lDataLength = chunk.lLen ' Retrieve the size of the data.
WaveReadFormat = HdrFormat
End Function
Private Sub btnSendWav2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendWav2.Click
Dim WaveFmt As WaveFormat
Dim FileNum As Integer
Dim lDataLength As Long
Dim Buffer() As Integer
' open the wave file
FileNum = FreeFile()
FileOpen(FileNum, "C:\smallstep.WAV", OpenMode.Binary)
' read the header, and get the chunk size (data length)
WaveFmt = WaveReadFormat(FileNum, 9300)
' resize our buffer to hold the entire wave data (DataLength is in Bytes)
ReDim Buffer((lDataLength \ 2) - 1)
' read the wave data from the file into our buffer
FileGet(FileNum, Buffer)
FileClose(FileNum) ' close the file
TextBox2.Text = Buffer.ToString
End Sub
In this example, it is basically your code after I tried to convert it to vb.net. Im basically just trying to dump the stream data into TextBox2.Text
And this is the .wav file I am trying to use. http://www-mmsp.ece.mcgill.ca/docume...A/truspech.wav
In VB6 Integer is 2 bytes, in VB.NET Integer is 4 bytes
In VB6 Long is 4 bytes, and in VB.NET it is 8 bytes
You have to change Integer to Short (for VB.NET), and change Long to Integer (for VB.NET)
Buffer should be a Byte array because you are working with 8 bit wave file
"WaveFmt = WaveReadFormat(FileNum, 9300)" -> Why 9300? it should be lDataLength because WaveReadFormat changes the value of lDataLength by reference
Also, step through the code, and see it if passes these lines:
Code:If header.lRiff <> &H46464952 Then Exit Function ' Check for "RIFF" tag and exit if not found.
If header.lWave <> &H45564157 Then Exit Function ' Check for "WAVE" tag and exit if not found.
If header.lFormat <> &H20746D66 Then Exit Function ' Check for "fmt " tag and exit if not found.
' Check format chunk length; if less than 16, it's not PCM data so we can't use it.
If header.lFormatLength < 16 Then Exit Function
I forgot i changed some things to try out. 9300 was just a random number in my head.
ok fixed a bunch of stuff and made the Integer to Short and Long to Integer changes you suggested. I ran the code and it does stop at If header.lRiff <> &H46464952 Then Exit FunctionCode:Private Structure FileHeader
Dim lRiff As Integer
Dim lFileSize As Integer
Dim lWave As Integer
Dim lFormat As Integer
Dim lFormatLength As Integer
End Structure
Private Structure WaveFormat
Dim wFormatTag As Short
Dim nChannels As Short
Dim nSamplesPerSec As Integer
Dim nAvgBytesPerSec As Integer
Dim nBlockAlign As Short
Dim wBitsPerSample As Short
End Structure
Private Structure ChunkHeader
Dim lType As Integer
Dim lLen As Integer
End Structure
Private Function WaveReadFormat(ByVal InFileNum As Short, ByRef lDataLength As Integer) As WaveFormat
Dim header As FileHeader
Dim HdrFormat As WaveFormat
Dim chunk As ChunkHeader
Dim by As Byte
Dim i As Integer
FileGet(InFileNum, header)
If header.lRiff <> &H46464952 Then Exit Function ' Check for "RIFF" tag and exit if not found.
If header.lWave <> &H45564157 Then Exit Function ' Check for "WAVE" tag and exit if not found.
If header.lFormat <> &H20746D66 Then Exit Function ' Check for "fmt " tag and exit if not found.
' Check format chunk length; if less than 16, it's not PCM data so we can't use it.
If header.lFormatLength < 16 Then Exit Function
FileGet(InFileNum, HdrFormat) ' Retrieve format.
' Seek to next chunk by discarding any format bytes.
For i = 1 To header.lFormatLength - 16
Try
FileGet(InFileNum, by)
Catch ex As Exception
End Try
Next
' Ignore chunks until we get to the "data" chunk.
FileGet(InFileNum, chunk)
Do While chunk.lType <> &H61746164
For i = 1 To chunk.lLen
FileGet(InFileNum, by)
Next
FileGet(InFileNum, chunk)
Loop
lDataLength = chunk.lLen ' Retrieve the size of the data.
WaveReadFormat = HdrFormat
End Function
Private Sub btnSendWav2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendWav2.Click
Dim WaveFmt As WaveFormat
Dim FileNum As Short
Dim DataLength As Integer
Dim Buffer() As Byte
' open the wave file
FileNum = FreeFile()
FileOpen(FileNum, "C:\smallstep.WAV", OpenMode.Binary)
' read the header, and get the chunk size (data length)
WaveFmt = WaveReadFormat(FileNum, DataLength)
' resize our buffer to hold the entire wave data (DataLength is in Bytes)
ReDim Buffer((DataLength \ 2) - 1)
' read the wave data from the file into our buffer
FileGet(FileNum, Buffer)
FileClose(FileNum) ' close the file
TextBox2.Text = Buffer.ToString
End Sub
&H46464952 = "FFIR" ?? why is it backwards?
Take a look at the last post here:
http://social.msdn.microsoft.com/For...5-33e5218319ab
I think you also have to add something like "<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _" in front of the declaration of the structure
Sorry, I told you to use Byte array, in that case, this line:
ReDim Buffer((DataLength \ 2) - 1)
should be:
ReDim Buffer(DataLength - 1)
By the way...
Worst case schenario, you can read the entire wave file in a byte array together with the header, and just send that through the comm port.
The header will become some "junk" sound, but because it is only a few bytes, it will sound like a short "tick" for a few milliseconds. After that will come the wave data.
this is a very old problem form aout of the ark. no pun intended
The problem is in 6 parts
(1) can you dial a phone number?
(2) can you asks a question and respond to the answer
(3) reguardless of (2) can you shout down the phone
(4) can you respond to a hangup
(5) reguardless of (4) can yoy hangup
(6) Can you go back and do it again
I think you can because i do some of this for a phone redirecter system at home
in the uk you must be in the house of the phone you wish to redirect to do so.
I simply have an old pc that wakes up if power is restored to it and it is tasked
with checking an email account when the account contains a message the machine uses
rasdial to dialout and attempt to connect to a server, the server does not exist and the call fails
leaving me with a redirected telephone - servernumber is *21*telephonenumber#.
The call failure prompts radial to hangup!
its a quick fix for me!
I used to do what you want to do as a script that caused the old modem to dial a number
I used spearate batch files in a directory
so home.bat was at#d 12345 and a wait() that waited for a key press to hangup
i would then talk - entering any key into the dosbox whyen i wanted to hang up!
the same technique would work for you i think - but i will need to get the big box out - we do not have modems anymore - all broadband now!
its really a question of holding the line while you talk.
if I can help get back to me
Hard to describe... but now i can get it to send a stream of a very quiet data-sending type tapping noises. Almost as if it is playing very quiet morse code. :ehh:
@palmer you should only hear the dialtone then the dialer dialing then the voice say in hello hello no a nother bloody fax
unless that is you are in voice mode then you just hear hello hello maud its for you!
lol
still on the case
End result i need is:Quote:
Originally Posted by incidentals
1. program calls a number
2. person answers (or not, goto step 5)
3. program plays a message that says press "1" to confirm reciept of message.
4. person presses 1
5. program hangs up and marks call as complete or incomplete.
What i have so far:
:check:. program calls a number
2. person answers (or not, goto step 5):confused:
3. program plays a message that says press "1" to confirm reciept of message.:confused:
4. person presses 1:check:
5. program hangs up and marks call as complete or incomplete.:confused:
So far basically I have these steps i send to serialport
AT+FCLASS=8 set voice mode
ATDT*995185551234 dial number (i hear it dial out and my phone rings)
AT+VLS=1 set line features
AT+VSM=1 set sound capability
AT+VTX set to transfer
System.Byte[] Byte array of the .wav file
on my phone i can hear ...... . . . . .... . . . .. . . . . . .... ...
Kind of like very quiet static blips.
Try all "AT+VLS=" commands one by one...
Why is this in DB forum? Can someone move it to more appropriate please?
ok. I've got my app calling my phone and playing a crackly staticy message. You can make out the words... but it is definatly not good enough. I think i have tried every available setting... except the one that works.
Can you somehow record the sound and post it? I might be able to tell what is wrong by listening to the "noise"
I could record it on my cell phone but it saves as a funky format (.qcp) and vbforums wont let me attach it. Trying to convert it for you.
So another testing i did is that i can use windows dialer and call my phone with a headset. I can then open a .wav file and play it. I then bend the mic into the headset speaker it plays fine. Clear, correct speed, and everything. But obviously i dont want to "rig it". This way is using the sound card. Do I need to use the sound card to de/encode and buffer it correctly??
if you can use it i stuffed it into a zip file. It is 0201121114.qcp. I'm trying to find something that will let me convert it to wav.
Behind the static, the message is saying "This is a test message for the noisy alert system".
Can you also post the wave file you used? I will take a look/listen when I get home I a few hours.
These are the methods I tried using to stream the sound in. Serport2 is the serial port.
Method 1
Method 2Code:
Dim list As New List(Of String)
Using r As StreamReader = New StreamReader("C:\test3.wav")
Dim line As String
line = r.ReadLine
Do While (Not line Is Nothing)
list.Add(line)
serport2.Write(line)
line = r.ReadLine
Loop
End Using
Code:Dim oFile As System.IO.FileInfo
oFile = New System.IO.FileInfo("c:\test3.wav")
Dim oFileStream As System.IO.FileStream = oFile.OpenRead()
Dim lBytes As Long = oFileStream.Length
If (lBytes > 0) Then
Dim fileData(lBytes - 1) As Byte
oFileStream.Read(fileData, 0, lBytes)
serport2.Write(fileData.ToString)
oFileStream.Close()
End If
Both methods product the same result. Words with static.
Correction... method 2 does not play anything. I started with method 2 and ended up with method one. So ignore method 2. My brain is getting fried doing this.
ReadLine should be used only for text files, wave is binary. So method 2 should be the one that works.
Having said that, why do you have "fileData.ToString", you can't pass the binary data?
You are correct!!
Code:' Open a file that is to be loaded into a byte array
Dim oFile As System.IO.FileInfo
oFile = New System.IO.FileInfo("c:\test3.wav")
Dim oFileStream As System.IO.FileStream = oFile.OpenRead()
Dim lBytes As Long = oFileStream.Length
If (lBytes > 0) Then
Dim fileData(lBytes - 1) As Byte
' Read the file into a byte array
oFileStream.Read(fileData, 0, lBytes)
serport2.Write(fileData, 0, lBytes)
oFileStream.Close()
End If
I was using a different function serport2.write(string) then I looked and found it does have the ability to take bytes.
changing to....
serport2.Write(Byte(), Integer, Integer)
fixed everything. Thank you Thank you. :bigyello:
So this means the sound is OK?
Yes. The way i was streaming it was wrong. The sound comes through clear and no static. Once I fixed up method 2 to send the data as bytes instread of string it worked. I dont know why I was overlooking that. It never dawned on me that .tostring was changing the binary. I just figured it was sending it all in one big chunk.Quote:
Originally Posted by CVMichael
Although after further testing it does matter what format the sound is in. Seems as though i still need to stay around 8000Hz, 8bit, Mono, 7kb/sec. Surely that is do to the AT+VSM
1,"UNSIGNED PCM",8,0,(7200,8000),(0),(0)
128,"8-BIT LINEAR",8,0,(7200,8000),(0),(0)
129,"ADPCM",4,0,(7200,8000),(0),(0)
130,"UNSIGNED PCM",8,0,(7200,8000),(0),(0)
131,"ULAW",8,0,(7200,8000),(0),(0)
132,"ALAW",8,0,(7200,8000),(0),(0)
133,"LINEAR",16,0,(7200,8000),(0),(0)
New question..... How do I catch when the person answers the phone?