Dialer in VB6 or Delphi that works on XP?

[QB_Pete]

I’m trying to find out if either VB6 or Delphi could be used to make a simple dialer for Windows XP. A dialer my friend made in VB5 works on NT, but not on XP. By a simple dialer, I mean one that I can use to read a single telephone number entry database created with Qbasic and dial that number over the XP modem. (Note, this is NOT an Internet dial-up connection, which is so often associated with the tem “dialer).

I have a Qbasic program that can be used to select a phone number and send it to a database. I need either a VB6 solution or Delphi solution to dial it. Any ideas, books, links, source code, etc., would be appreciated?

Pete

[djmoe20001]

I know you had this problem well over a year ago, but I need the same dialer in VB6 or .Net to work on XP. Did you ever manage to get it to work?

[mrmink]

I’m trying to find out if either VB6 or Delphi could be used to make a simple dialer for Windows XP. A dialer my friend made in VB5 works on NT, but not on XP. By a simple dialer, I mean one that I can use to read a single telephone number entry database created with Qbasic and dial that number over the XP modem. (Note, this is NOT an Internet dial-up connection, which is so often associated with the tem “dialer��?).

I have a Qbasic program that can be used to select a phone number and send it to a database. I need either a VB6 solution or Delphi solution to dial it. Any ideas, books, links, source code, etc., would be appreciated?

Pete

I have been using the dialer programm I made for years now in VB6

I have a VB6 example that may get you started.
you need to add the MSCOMM control to the project

You may need to set the COMM PORT property

a simple subroutine uses the MSCOMM control ....
and for the settings property I have 9600,n,8,1

Private Sub Command1_Click()
Dim sec As Variant
Dim secnow As Variant
Label4.Visible = True
Label4.Caption = "PAGING"
MSComm1.PortOpen = True
MSComm1.Output = "AT" & Chr(13)
secnow = (Now)
While DateDiff("s", secnow, Now) < 2
'next sentence
Wend

MSComm1.Output = "atdt " & pagernumber.Text & ";" & Chr(13)
Timer1.Enabled = True
Label4.Caption = "Paging"
Label4.Visible = True

End Sub

Hope this helps !