关于编写拨号程序的问题(100分)

  • 主题发起人 主题发起人 zshan_haina1
  • 开始时间 开始时间
Z

zshan_haina1

Unregistered / Unconfirmed
GUEST, unregistred user!
我想写一个向通信口发命令的拨号程序,请问以下的代码有问题吗?
注:端口已经打开,已经检测到信号CTS,DSR,但是无法检测到RLSD,RING的信号。

procedure TForm1.Button1Click(Sender: TObject);
var errorcode: integer;
PhoneNumber : string;
NumberWritten : DWord;
CommPort : string;
hCommFile : DWORD;
begin
{Open the comm port}
CommPort :='COM2';
hCommFile := CreateFile(pchar(CommPort),GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

if hCommFile=INVALID_HANDLE_VALUE then
begin
errorcode:=getlasterror();
ShowMessage('不能打开通信端口 '+INTTOSTR(HCOMMFILE));
CloseHandle(hCommFile);
exit;
end;

PhoneNumber := 'atdt 23120265' + #13 + #10;
NumberWritten:=0;
if WriteFile(hCommFile,PChar(PhoneNumber)^,Length(PhoneNumber),NumberWritten,nil) = false then
begin
ShowMessage('不能写端口 ' + CommPort);
end;
end;
 
经研究可能个MODEM有有关系,换MODEM后可以拨号.
新问题:
如要拨号连接另一台服务器(传入连接,登陆用户已经设置),拨号时如何用代码表示用户和秘密,
登陆后如何检测已经拨号登陆成功?
 
后退
顶部