问题1:
你可以用 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