求助：Modem问题

Question

如何挂断正的拨号的Modem，急,急,急,急,求各位大侠帮帮忙，如果可以解决问题，可以另行给分

Answer 1

如果你使用的是MSComm控件，可以设置PortOpen = False。 
如果你使用的是拨号网络，可以API函数RasHangUp

Answer 2

向串口发送命令试试：procedure TForm1.Button1Click(Sender: TObject);
begin
   mysendcmd('HANDUP','CANCEL');
   sleep(1000);
   mysenddata('+++');
   sleep(1000);
   mysenddata('ATH'+chr(13));
end;function Tfm_mainclt1.MySendCmd(cmdStr:string;cmdVal:string):boolean;
begin
    MySendCmd:=mysenddata(gcmdhead+cmdStr+'='+cmdVal+gcmdtail);
end;function Tfm_mainclt1.MySendData(dataStr:string):boolean;
var
wDataLen:Word;
sData:string;
begin
    try
        if boolean(comm1.handle) then
        begin
            sData:=datastr;
            wDataLen:=length(sData);
            comm1.WriteCommData(pchar(sData),wDataLen);
        end;
    except
        mysenddata:=false;
        exit;
    end;
    mysenddata:=true;
end;

Answer 3

上面就是握从一个Modem的例子里截取出来的挂断modem的代码。你试试看啊