Envoie d'un fichier .wav par le port com

Question

Bonjour

Je dois envoyer un message (pre-enregistrer) sur un telephone à partir d'un pc via un modem branché sur le port com.
Je me sert des commandes AT, j'arrive à appeler le telephone, j'initialise la connection vocal et la maintenant je dois envoyer mon fichier.
Il doit falloir faire output quelque chose et c'est la que je ne sais pas comment faire pour manipuler mon fichier.

Je programme en vb6 je vous joint mon code à titre d'information, si vous voyez des erreurs en plus n'hesitez pas... c'est un peu long mais c'est la demarche que j'ai trouvé

With oCom
.CommPort = 1
.Handshaking = 2
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True
End With
            oCom.Output = "ATDT" & num & ";" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                    If InStr(buffer$, "NO DIALTONE") Then
                        oCom.Output = "ATH" + Chr$(13)
                    End If
                    If InStr(buffer$, "OK") <> 0 Then
                    MsgBox "Décrochez le téléphone et appuyez sur le bouton Ok."
                    DoEvents
                    End If
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT &F" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+IFC=1,1" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "ATM1L2" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+FCLASS=8" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VSM=1,8000,0,0" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VIT=0" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VTD=10" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VDT=1,0" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VSD=0,0" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VLS=5" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VSP=1" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VRA=50" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VRN=15" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
            
            oCom.Output = "AT+VTX" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                    'MsgBox (buffer$)
                    If InStr(buffer$, "ERROR") Then
                    'MsgBox (buffer$)
                    oCom.Output = "ATH" + Chr$(13)
                    oCom.PortOpen = False
                    Exit Sub
                    End If
                    Loop Until InStr(buffer$, "CONNECT" & vbCrLf)
            buffer$ = ""
            
       Voila c'est la tout marche et maintenant il faut que j'envoie mon fichier

Merci

cs_Jack · Answer

Salut
Précision : Tu ne pourras pas émettre du son venant de ton fichier WAV sur la ligne avec ton modem.
Tu pourras transférer le fichier sous forme de datas, mais cela suppose que le numéro que tu appelles est aussi connecté à un modem + PC pour recevoir les datas et reconstituer le fichier.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

cs_Jack · Answer

PS : ... à ma connaissance, mais je n'ai jamais vu d'application permettant d'émettre du son à partir d'un modem.
La norme AT a peut-être évoluée ...

devVb10 · Answer

Mes connaissances sont assez limité dans le domaine mais théoriquement c'est faisable. En fait la boite ou je suis avait le programme qui faisait l'appelle et l'envoie du message mais le disque sur lequel il était à griller, le gars qui a fait le programme ne travaille plus ici et personne ne sait commant il avait fait... donc je dois tout refaire en partant de 0 et je ne m'en sort pas... ca fait une semaine que je cherche de la doc la dessus alors si quelqu'un a la moindre indication je suis preneur 
Merci

cs_Jack · Answer

Re
Par curiosité, j'ai tapé  "vocal sur modem"  dans mon moteur préféré, et il y a en effet des logiciels qui le font, à condition que le modem soit compatible "Vocal". Par exemple, Archisoft qui a une solution avec version d'évaluation.
Ensuite, en cherchant  vb "modem vocal" , je suis tombé sur le site d'un MVP spécialiste de la téléphonie IP

devVb10 · Answer

Merci

Mais ça ne correspont pas exactement à ce que je cherche.
Moi je dois tout faire en vb et il ne doit y avoir aucun logiciel en plus (c'est possible le gars d'avant l'avait fait)

Pour les appli TAPI j'avais remarqué un peu et essayé avec mais je ne pense pas que ça soit compatible avec ce que je dois faire.

Merci quand meme pour les infos

PS : le site microsoft j'avais déja été voir et j'ai bien du m'en faire une centaine d'autre qui abordait le sujet....

Envoie d'un fichier .wav par le port com

5 réponses

Votre réponse

Discussions similaires