比如:modem拨号、来电显示、语音、传真等等与modem有关的编程技术需要学什么基础?
有什么好的网站、书籍?
谢谢
有什么好的网站、书籍?
谢谢
解决方案 »
- 求高手帮忙IdTCPServer1问题“怎样清除所有连接,释放所有内存”
- 求助:Delphi7中如何使用ComboBoxEx
- 怎样才可以 在 delphi 的 三层结构中进行数据库的 动态连接?有什么方法吗?怎么使用ini 文件?请教高手!在线等待
- 在数据库系统设计中用到的算法设计是不是很少啊?
- 怎样向操作系统注册OCX控件???
- 昨天申请了博克,发现csdn还是有不少人去呢。
- delphi6使用Gecko内核浏览器控件的问题
- delphi程序变量Create之后不free 有什么影响?(讨论)
- Dbgrid中的标题栏有三个字段分别为A,B,C,如何实现当鼠标放在B上时,鼠标改变形状?
- 请问怎样要去掉那个登录数据库窗口
- 在2K下编译的程序,在win98窗体变大,求一解决办法。。
- 我是一个菜鸟,我想学DELPHI请问哪儿有讲解OBJECT INSPECTOR的书或资料。急!!!!
获得Modem的状态
procedure TForm1.Button1Click(Sender: TObject);
var
CommPort : string;
hCommFile : THandle;
ModemStat : DWord;
begin
CommPort := 'COM2';
{Open the comm port}
hCommFile := CreateFile(PChar(CommPort),
GENERIC_READ,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if hCommFile = INVALID_HANDLE_VALUE then
begin
ShowMessage('Unable to open '+ CommPort);
exit;
end;{Get the Modem Status}
if GetCommModemStatus(hCommFile, ModemStat) <> false then begin
if ModemStat and MS_CTS_ON <> 0 then
ShowMessage('The CTS (clear-to-send) is on.');
if ModemStat and MS_DSR_ON <> 0 then
ShowMessage('The DSR (data-set-ready) is on.');
if ModemStat and MS_RING_ON <> 0then
ShowMessage('The ring indicator is on.');
if ModemStat and MS_RLSD_ON <> 0 then
ShowMessage('The RLSD (receive-line-signal-detect) is on.');
end;{Close the comm port}
CloseHandle(hCommFile);
end;
如何知道Modem接在哪个COM
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
HKEY_CURRENT_USERMonitor其中有modem的名字和com口