unit1.~pas

GSM MODEM的收发短信息

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, MSCommLib_TLB, fc_gsm, pub_Funcs, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    SendMsg: TMemo;
    Label1: TLabel;
    RecNum: TEdit;
    Label2: TLabel;
    InfoCenter: TEdit;
    Label3: TLabel;
    BtnSend: TButton;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    RecMsg: TMemo;
    SendNum: TEdit;
    InfoCenter2: TEdit;
    BtnRce: TButton;
    ListBox1: TListBox;
    Label7: TLabel;
    ComboBox1: TComboBox;
    BtnOpen: TButton;
    BtnClose: TButton;
    MSC: TMSComm;
    Button1: TButton;
    Label8: TLabel;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure BtnSendClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure BtnOpenClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure MSCComm(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BtnRceClick(Sender: TObject);
    procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  txSn: string;
  comflag: integer;
  ConnFlag: integer;
  hThread: Thandle; //定义一个句柄
  ThreadID: Dword;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ConnFlag := 0;
  ComFlag := 0;
end;

procedure TForm1.BtnSendClick(Sender: TObject);
var
  CententStr, CententStr2, infocentent, mobile: widestring;
  tem: widestring;
begin
  if (ConnFlag = 1) and (ComFlag = 0) then
  begin
    comflag := 1;
    if (length(RecNum.Text) <> 11) and (copy(RecNum.Text, 1, 2) <> '13') and (length('xx') = 5) then
      Application.MessageBox('提示', '接收号码有误，请重新填写')
    else
    begin
      if (copy(RecNum.Text, 1, 2) <> '13') or (copy(RecNum.Text, 1, 2) <> '15') then
        mobile := ConverMobileNum(RecNum.Text, 0)
      else
        mobile := ConverMobileNum(RecNum.Text, 1);
      infocentent := ConverInfoCenter(InfoCenter.Text);
      tem := SendMsg.Text;
      CententStr := ContentToUnicode(tem);
      CententStr2 := codeaddcode(mobile, CententStr);
      RecMsg.Text := infocentent + CententStr2;
      {MSC.Output := 'AT+CMGS=' + inttostr(length(CententStr2) div 2) + #13;
      sleep(1000);
      tem := MSC.Input;
      if (length(tem) > 0) then
        MSC.Output := RecMsg.Text + ^Z;
      sleep(2000);
      tem := MSC.Input;
      if pos(tem, 'OK') > 0 then
        Application.MessageBox('发送信息失败！', '提示', MB_OK + MB_ICONWARNING)
      else
        Application.MessageBox('发送信息成功！', '提示', MB_OK + MB_ICONQUESTION);
      comflag := 0;}
    end;
  end else
    Application.MessageBox('串口未打开', '提示', MB_OK + MB_ICONWARNING);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  CententStr, CententStr2, infocentent, mobile: string;
begin
  mobile := ConverMobileNum(RecNum.Text, 1);
  infocentent := ConverInfoCenter(InfoCenter.Text);
  CententStr := ContentToUnicode(SendMsg.Text);
  CententStr2 := codeaddcode(mobile, CententStr);
  RecMsg.Text := infocentent + CententStr2;
  MSC.Output := 'AT+CMGS=' + inttostr(length(CententStr2) div 2) + #13;
  sleep(1000);
  MSC.Output := RecMsg.Text + ^Z;
end;


procedure TForm1.BtnOpenClick(Sender: TObject);
var
  readstr: widestring;
begin
  try
    comflag := 1;
    MSC._CommPort := 8;
    MSC.PortOpen := true;
    MSC.Output := 'ATE0' + #13;
    sleep(1000);
    readstr := MSC.Input;
    if pos(readstr, 'OK') > 0 then
    begin
      Label8.Caption := '与手机连接不成功';
      MSC.PortOpen := false;
      exit;
    end;
    MSC.Output := 'AT+CGMF=0' + #13;
    sleep(1000);
    readstr := MSC.Input;
    MSC.Output := 'AT+CGMM' + #13;
    sleep(1000);
    readstr := MSC.Input;
    if (length(readstr) > 0) then
      Label8.Caption := copy(readstr, 3, 4) + ' 连接中......'
    else
    begin
      Label8.Caption := '与手机连接不成功';
      MSC.PortOpen := false;
      comflag := 0;
      ConnFlag := 0;
      exit;
    end;
    ConnFlag := 1;
    MSC.Output := 'AT+CSCA?' + #13;
    sleep(1000);
    readstr := MSC.Input;
    InfoCenter.Text := copy(readstr, 14, 11);
    BtnOpen.Enabled := false;
    comflag := 0;
  except
    begin
      BtnOpen.Enabled := true;
      MSC.PortOpen := false;
      comflag := 0;
      ConnFlag := 0;
    end;
  end;
end;

procedure TForm1.BtnCloseClick(Sender: TObject);
begin
  if comflag <> 0 then exit;
  MSC.PortOpen := false;
  BtnOpen.Enabled := true;
  Label8.Caption := '未连接......';
  ConnFlag := 0;
end;

procedure TForm1.MSCComm(Sender: TObject);
begin
  sleep(1000);
  case MSC.CommEvent of
    comEvReceive:
      begin
        InsertLogfile(MSC.Input);
      end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  X: widestring;
  c: Integer;
  cc: string;
begin
  X := '我';
  c := ord(X[1]);
 // chr
  showmessage(inttostr(c));
  FmtStr(cc, '%4.4X', [c]);
  showmessage(DecodeChinese('4F60597D0021'));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  aa: widestring;
  s4: string;
  i: Longint;
begin
  showmessage(inttoBin(16));
  //showmessage(IntTostr(StrToint('$' + infocenter2.text)));
 { i := 140;
  s4 := Format('%X', [i]);
  showmessage(s4);
  if length(s4) < 2 then
    s4 := '0' + s4;
  showmessage(s4);      }
  //aa := '内容内' + #$D#$A'容';
  //showmessage(inttostr(length(infocenter2.Text)));
end;

procedure TForm1.BtnRceClick(Sender: TObject);
var
  ct, i: Integer;
  tem: string;
  sitems: TStringList;
begin
  ct := 0;
  MSC.RThreshold := 0;
  ListBox1.Items.Clear;
  MSC.Output := 'at+cmgl=4' + #13;
  sleep(4000);
  tem := MSC.Input;
  sitems := SpString(tem, #$D#$A);
  for i := 0 to sitems.Count - 1 do
  begin
    tem := sitems[i];
    if (length(tem) > 15) then
    begin
      inc(ct);
      ListBox1.Items.Add(tem);
      InsertLogfile(tem);
    end;
  end;
  for i := 1 to ct do
  begin
    MSC.Output := 'at+cmgd=' + inttostr(i) + #13;
    sleep(1000);
    MSC.Input;
  end;
end;


procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  vars: TStringList;
  tem: string;
begin
  if ListBox1.ItemIndex <> -1 then
  begin
    tem := DecodeInfo(ListBox1.Items.Strings[ListBox1.ItemIndex]);
    vars := SpString(tem, '|_|');
    SendNum.Text := vars[0];
    InfoCenter2.Text := vars[1];
    RecMsg.Text := vars[2];
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 10 do
  begin
    MSC.Output := 'at+cmgd=' + inttostr(i) + #13;
    sleep(1000);
    MSC.Input;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (ConnFlag = 1) and (comflag = 0) then
  begin
    comflag := 1;
    BtnRce.Click;
    comflag := 0;
  end;
end;

end.