burningodzilla

how can i know that the modem is ready to dial? assuming that the correct serial port is open, can i just test DSRholding? is that standard?

Aspen2K

If you us MSComm1.Output = "ATdt" + Chr$(13) you should get back an OK

burningodzilla

i send this:

FireCom.Output = "ATDT" + vbCr

view with this:

MsgBox "BUFFER: " + StrConv(FireCom.Input, vbUnicode), , "BUFFER CONTENTS"

and i get this "ATDT", then an out of memory error. my buffer gets a 1024 size data chunk and then chokes even though the buf len is 1024 exactly. then (err to debug window) it responds w/ no dialtone. that is expected....but how can i avoid that out of mem err, and if there was a dialtone, is the response "OK" standard?

thanks a TON

ChiefRedBull

The most basic and unprofessional way would be to stick a
<pre><font color=red>On Error Resume Next

</pre></font color=red>at the top of your Function or Sub.

Chief

burningodzilla

yeahhhh....but being of the curious breed [img]images/icons/wink.gif[/img], i want to know how to stop it, why it's happening, etc. it seems like the last time i was working w/ mscomm i had this problem, that was a few months ago though.

Aspen2K

Ok try putting this:

FireCom.Output= "ATDT" + Chr$(13) <font color=green>'Put where you have FireCom.Output = "ATDT" + vbCr </font color=green>

And then put this in your OnComm() to see the "OK"

Dim Inp as String

Private Sub FireCom_OnComm()
If FireCom.InBufferCount &gt; 0 Then ds = FireCom.Input
If ds &lt;&gt; "" Then Inp = Inp + ds
Debug.Print ds
End Sub

burningodzilla

i didn't try that, but the proposed accumulator wouldn't hold anything other than whatever ds is currently = to...since it's dim not static or global...right?

anyway, i tried something that half solved the prob, maybe you'll have some input on this. in the oncomm event i did:

If FireCom.CommEvent &lt;&gt; comEvReceive Then Exit Sub

that got rid of the err...so do ya have any clues as to why it ran out of mem? obviously reading the buf contents when no data was received was the prob....the Q is why?

boskomihic

Simply, restart him with command "ATZ" and wait until you get answer "OK". Then just dial a number that you want (MSComm1.Output = "ATDT XZZZZX" Or MSComm1.Output = "ATX3DT XZZZZZX" -if you don't have dial tone)