如何用Delphi编写拨号程序

你可以用 WINDOWS API函数 CreateFile() 得到 Com Port 的句柄，

然后用标准的文件IO 和 COM PORT通讯

下面是一段例子

Var

hCommFile : THandle

Procedure TForm1.Button1Click(Sender : TObject)

Var

PhoneNumber : String

CommPort : String

NumberWritten : LongInt

Begin

PhoneNumber := 'ATDT 010-62988861' + #13 + #10

CommPort := 'COM2'

{打开 comm port}

hCommFile := CreateFile(PChar(CommPort),

GENERIC_WRITE,

0,

Nil,

OPEN_EXISTING,

FILE_ATTRIBUTE_NORMAL,

0)

If hCommFile = INVALID_HANDLE_VALUE Then

Begin

ShowMessage('不能打开 ' + CommPort)

exit

End

{拨号}

NumberWritten := 0

If WriteFile(hCommFile,

PChar(PhoneNumber)^,

Length(PhoneNumber),

NumberWritten,

Nil) = false Then Begin

ShowMessage('无法写 ' + CommPort)

End

End

Procedure TForm1.Button2Click(Sender : TObject)

Begin

{关闭comm port}

CloseHandle(hCommFile)

End

2. 通过INTERNET访问你的远程SQL SERVER 需要你有WIN NT的登陆权限

SQL SERVER有 WEB WIZARD功能，你可以通过WEB WIZARD 提供的存储过程

访问SQL SERVER的数据

建议你做一个登陆网页CGI(ISAPI,NSAPI)，如果口令正确，则可以访问到正

确的网页存取数据,就象这个大富翁论坛一样，没有正确的口令访问不到

正确的数据

顺便提一句

还可以试一下WINDOWS NT的RAS远程访问，可以直接登陆到NT并访问SQL SERVER

delphi中有一个控件叫做“TTimer”,在“system”那一栏中，它是一个定时器。你可以设置它多长时间触发一次。比如，你的定时程序要它1分钟后报时。你可以设置它的interval属性等于60，然后在时间中加入蜂鸣函数即可。

---