急求用mscomm控件从modem中得来显的代码，我找了好多都不成功。

Question

我试过用vb写的软件，也没有，是不是我的猫有问题??
我还听说来显有两种制式。用at发指令在从串口读应和这个没有关系吧。

Answer 1

这段程序可是好使的呀
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, MSCommLib_TLB, StdCtrls,StrUtils;type
TForm1 = class(TForm)
MSComm1: TMSComm;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure MSComm1Comm(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
if not self.MSComm1.PortOpen then
self.MSComm1.PortOpen:=true;
self.MSComm1.Output:=at#cid=1+#13;
end;procedure TForm1.MSComm1Comm(Sender: TObject);
var buffer,tmpStr,CallNum:string;
zhen:boolean;
begin
Buffer := Buffer + MSComm1.Input;
Buffer := UpperCase(Buffer);
self.Memo1.Lines.Add(《+buffer+》);//加了自定分格符“《》”
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
with self.MSComm1 do begin
InBufferSize:=1024;
Inputlen:=0;
InputMode:=0;
Rthreshold:=1;
RTSEnable:=True;
Settings:=9600,N,8,1;
Sthreshold:=0;
end;
end;end.

Answer 2

谢谢先，这个我是第一个试的，只能得到ping at说明上说是得到号音，唉，好气人呀。
是不是我的猫不行呀，我的猫是从联想机上拿下来的。2001年买的。

Answer 3

unit Exanswe0;interfaceuses
  WinTypes, WinProcs, SysUtils, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, AdPort, StdCtrls, Buttons, OoMisc, AdMdm;type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    ApdComPort1: TApdComPort;
    AdModem1: TAdModem;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure AdModem1ModemCallerID(Modem: TAdCustomModem;
      CallerID: TApdCallerIDInfo);
    procedure AdModem1ModemConnect(Modem: TAdCustomModem);
    procedure AdModem1ModemDisconnect(Modem: TAdCustomModem);
    procedure AdModem1ModemFail(Modem: TAdCustomModem; FailCode: Integer);
    procedure AdModem1ModemLog(Modem: TAdCustomModem;
      LogCode: TApdModemLogCode);
    procedure AdModem1ModemStatus(Modem: TAdCustomModem;
      ModemState: TApdModemState);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AddStatus(const Msg : String);
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.AddStatus(const Msg : String);
begin
  Listbox1.Items.Add(Msg);
  Listbox1.ItemIndex := Pred(Listbox1.Items.Count);
end;procedure TForm1.FormCreate(Sender: TObject);
  {Event OnCreate from TForm1}
begin
  ApdComPort1.Open := True;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
  {Begin answering in two rings}
begin
  AdModem1.AnswerOnRing := 2;
  AdModem1.AutoAnswer;
end;procedure TForm1.AdModem1ModemCallerID(Modem: TAdCustomModem;
  CallerID: TApdCallerIDInfo);
  { we received caller id information }
begin
  //来电事件
  AddStatus('CallerID Name: ' + CallerID.Name);
  AddStatus('CallerID Number: ' + CallerID.Number);
end;procedure TForm1.AdModem1ModemConnect(Modem: TAdCustomModem);
  { we are connected }
begin
  AddStatus('Connected!');
end;procedure TForm1.AdModem1ModemDisconnect(Modem: TAdCustomModem);
  { we have been disconnected }
begin
  AddStatus('Disconnected');
end;procedure TForm1.AdModem1ModemFail(Modem: TAdCustomModem;
  FailCode: Integer);
begin
  AddStatus('Failed: ' + Modem.FailureCodeMsg(FailCode));
end;procedure TForm1.AdModem1ModemLog(Modem: TAdCustomModem;
  LogCode: TApdModemLogCode);
begin
  AddStatus('Log event: ' + Modem.ModemLogToString(LogCode));
end;procedure TForm1.AdModem1ModemStatus(Modem: TAdCustomModem;
  ModemState: TApdModemState);
begin
  AddStatus('Status event: ' + Modem.ModemStatusMsg(ModemState));
end;end.//----dfm文件
object Form1: TForm1
  Left = 251
  Top = 173
  Width = 433
  Height = 300
  Caption = 'ExAnswer'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ListBox1: TListBox
    Left = 8
    Top = 8
    Width = 409
    Height = 147
    IntegralHeight = True
    ItemHeight = 13
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 8
    Top = 232
    Width = 409
    Height = 33
    Caption = 'Click here to Begin Answering'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object ApdComPort1: TApdComPort
    Tracing = tlOn
    TraceName = 'APD.TRC'
    Logging = tlOn
    LogName = 'APD.LOG'
    Left = 8
    Top = 196
  end
  object AdModem1: TAdModem
    ComPort = ApdComPort1
    ModemCapFolder = '{MODEMCAPINDEX}'
    OnModemCallerID = AdModem1ModemCallerID
    OnModemConnect = AdModem1ModemConnect
    OnModemDisconnect = AdModem1ModemDisconnect
    OnModemFail = AdModem1ModemFail
    OnModemLog = AdModem1ModemLog
    OnModemStatus = AdModem1ModemStatus
    Left = 40
    Top = 196
  end
end