精华区 [关闭][返回]
当前位置：网易精华区>>讨论区精华>>编程开发>>● Delphi>>Delphi 网络编程>>Re:用delphi怎么调用windows的拨号啊？

主题：Re:用delphi怎么调用windows的拨号啊？
发信人: d_fang()
整理人: soaringbird(2002-02-07 10:43:27), 站内信件
【 在 dourayme 的大作中提到：】
:俺是个新手，大家多帮帮我啦
:......
 
通过Modem拨号 
 

var 
hCommFile : THandle; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
PhoneNumber : string; 
CommPort : string; 
NumberWritten : LongInt; 
begin 
PhoneNumber := 'ATDT 1-555-555-1212' + #13 + #10; 
CommPort := 'COM2'; 
{Open the comm port} 
hCommFile := CreateFile(PChar(CommPort), 
GENERIC_WRITE, 
0, 
nil, 
OPEN_EXISTING, 
FILE_ATTRIBUTE_NORMAL, 
0); 
if hCommFile=INVALID_HANDLE_VALUE then 
begin 
ShowMessage('Unable to open '+ CommPort); 
exit; 
end; 

{Dial the phone} 
NumberWritten:=0; 
if WriteFile(hCommFile, 
PChar(PhoneNumber)^, 
Length(PhoneNumber), 
NumberWritten, 
nil) = false then begin 
ShowMessage('Unable to write to ' + CommPort); 
end; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
{Close the port} 
CloseHandle(hCommFile); 
end; 




----
欢迎访问方文设计室！！
立即下载data2000,包含1000多个delphi技巧！！!



  
[关闭][返回]