www.pudn.com > otsms > UnitD.pas

unit UnitD; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  SMSComp, StdCtrls, ComCtrls, ExtCtrls, Grids, Buttons, ExtDlgs, Menus, Spin, FileCtrl; 
 
type 
  TForm1 = class(TForm) 
    StBar: TStatusBar; 
    GBox1: TGroupBox; 
    PhoneML: TLabel; 
    PhoneMCB: TComboBox; 
    PortL: TLabel; 
    PortE: TSpinEdit; 
    ConnTypeL: TLabel; 
    ConnTCB: TComboBox; 
    ConnBtn: TButton; 
    DisConnBtn: TButton; 
    GBox2: TGroupBox; 
    GetInbox_Btn: TButton; 
    MsgNumCB: TComboBox; 
    TotalL: TLabel; 
    TotalMsgL: TLabel; 
    BusyL: TLabel; 
    BusyMsgL: TLabel; 
    CurMsgL: TLabel; 
    TextL: TLabel; 
    MsgTextL: TLabel; 
    TimeL: TLabel; 
    MsgTimeL: TLabel; 
    FromL: TLabel; 
    MsgFromL: TLabel; 
    PictureL: TLabel; 
    Image1: TImage; 
    NoPictureL: TLabel; 
    Bevel1: TBevel; 
    DelMsg_Btn: TButton; 
    ReadMsg_Btn: TButton; 
    GBox3: TGroupBox; 
    SendToL: TLabel; 
    SendTextL: TLabel; 
    SendValidL: TLabel; 
    NRepChB: TCheckBox; 
    UnicodeChB: TCheckBox; 
    SendMsgBtn: TButton; 
    SendToE: TEdit; 
    SendTextE: TEdit; 
    SendValidE: TSpinEdit; 
    GBox4: TGroupBox; 
    MsgGrid: TStringGrid; 
    OPD1: TOpenPictureDialog; 
    PopupMenu1: TPopupMenu; 
    Clear1: TMenuItem; 
    Load1: TMenuItem; 
    Picture_Btn: TSpeedButton; 
    Bevel2: TBevel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label6: TLabel; 
    Label7: TLabel; 
    Label2: TLabel; 
    Label5: TLabel; 
    Button7: TButton; 
    SPD: TSavePictureDialog; 
    SMS1: TOxygenSMS; 
    SpeedButton1: TSpeedButton; 
    procedure FormCreate(Sender: TObject); 
    procedure ConnBtnClick(Sender: TObject); 
    procedure DisConnBtnClick(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure SMSRepReceived(Index: Integer; Time: TDateTime; Send: String; Delivery:integer); 
    procedure SMSMSGReceived(Index: Integer; Time: TDateTime;Text, Send: String; Pict: TBitmap); 
    procedure ReadMsg_BtnClick(Sender: TObject); 
    procedure DelMsg_BtnClick(Sender: TObject); 
    procedure GetInbox_BtnClick(Sender: TObject); 
    procedure SendMsgBtnClick(Sender: TObject); 
    procedure Button7Click(Sender: TObject); 
    procedure ConnTCBChange(Sender: TObject); 
    procedure PortEChange(Sender: TObject); 
    procedure MsgNumCBChange(Sender: TObject); 
    procedure PhoneMCBChange(Sender: TObject); 
    procedure ConnState(st: boolean); 
    procedure Clear1Click(Sender: TObject); 
    procedure Load1Click(Sender: TObject); 
    procedure MsgGridClick(Sender: TObject); 
    procedure LoadMessage(location : integer); 
    procedure Image1DblClick(Sender: TObject); 
    procedure Picture_BtnClick(Sender: TObject); 
    procedure SpeedButton1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
  SMS1: TOxygenSMS; 
  FldNum: integer; 
  Numbers: TStringList; 
  SendPic : TBitmap; 
  BMPPath : string; 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.LoadMessage(location : integer); 
var IsMsg: WordBool; 
    Time: TDateTime; 
    Text, Send : string; 
    Deliv: integer; 
    Pict : TBitmap; 
begin 
  if SMS1.ReadSMSMessage(Location, isMsg, Time, Text, Send, Deliv, Pict) then 
  begin 
    MsgTimeL.caption := DateTimeToStr(Time); 
    if isMsg then MsgTextL.caption := Text else MsgTextL.caption := IntTostr(Deliv); 
    MsgFromL.caption := send; 
    if Pict <> nil then Image1.Picture.Assign(Pict) else Image1.visible := false; 
  end 
  else 
  begin 
    MsgTimeL.caption := ''; 
    MsgTextL.caption := ''; 
    MsgFromL.caption := ''; 
    Image1.visible := false; 
    ShowMessage('Slot is empty'); 
  end; 
 
end; 
 
procedure TForm1.ConnState(st: boolean); 
begin 
  PhoneMCB.Enabled := not st; 
  PortE.enabled := not st; 
  ConnTCB.Enabled := not st; 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
 
  with SMS1 do 
  begin 
    ComNumber := 2; 
    Model := 0; 
    ConnectionMode := 0; 
  end; 
  Numbers := TStringList.Create; 
  PhoneMCB.ItemIndex := 0; 
  ConnTCB.ItemIndex := 0; 
  with MsgGrid do 
  begin 
    Cells[0,0] := 'Type'; 
    Cells[1,0] := 'Location'; 
    Cells[2,0] := 'From'; 
    Cells[3,0] := 'Time'; 
    Cells[4,0] := 'Text'; 
    Cells[5,0] := 'Picture'; 
  end; 
  ConnState(false); 
  SendPic := nil; 
  BMPPath := ExtractFileDir(Application.ExeName)+ '\bmp\'; 
  if not DirectoryExists(BMPPath) then CreateDir(BMPPath); 
end; 
 
procedure TForm1.ConnBtnClick(Sender: TObject); 
begin 
  SMS1.Close; 
  if SMS1.Open = true then 
  begin 
    StBar.Panels[0].text := 'Connected'; 
    StBar.Panels[1].text := 'Phone type: ' + sms1.PhoneType; 
    StBar.Panels[2].text := 'IMEI: ' + SMS1.IMEI; 
    ConnState(true); 
  end 
  else 
  begin 
    SMS1.Close; 
    ShowMessage('FAILED'); 
  end; 
 
end; 
 
procedure TForm1.DisConnBtnClick(Sender: TObject); 
begin 
  SMS1.Close; 
  StBar.Panels[0].text := 'Not Connected'; 
  StBar.Panels[1].text := 'Phone type: none'; 
  StBar.Panels[2].text := 'IMEI:'; 
  ConnState(false); 
end; 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  SMS1.Close; 
  Numbers.Free; 
  RemoveDir(BMPPath); 
end; 
 
procedure TForm1.SMSRepReceived(Index: Integer; Time: TDateTime; Send: String; Delivery: integer); 
begin 
  with MsgGrid do 
  begin 
    Cells[0,RowCount-1] := 'REP'; 
    Cells[1,RowCount-1] := IntToStr(Index); 
    Cells[2,RowCount-1] := Send; 
    Cells[3,RowCount-1] := DateTimeToStr(Time); 
    Cells[4,RowCount-1] := IntToStr(Delivery); 
    RowCount := RowCount + 1; 
    MsgNumCB.Items.Add(IntTostr(Index)); 
    BusyMsgL.Caption := IntToStr(MsgNumCB.Items.count); 
  end; 
  StBar.Panels[3].text := 'Report arrived'; 
end; 
 
procedure TForm1.SMSMSGReceived(Index: Integer; Time: TDateTime; Text, Send: String; Pict: TBitMap); 
begin 
  with MsgGrid do 
  begin 
    Cells[0,RowCount-1] := 'MSG'; 
    Cells[1,RowCount-1] := IntToStr(Index); 
    Cells[2,RowCount-1] := Send; 
    Cells[3,RowCount-1] := DateTimeToStr(Time); 
    Cells[4,RowCount-1] := Text; 
    if Pict <> nil then 
    begin 
      Cells[5,RowCount-1] := 'Picture'; 
      Pict.SaveToFile(BMPPath + IntToStr(RowCount-1)+ '.bmp'); 
    end; 
    RowCount := RowCount + 1; 
    if Index <> 0 then 
    begin 
      MsgNumCB.Items.Add(IntTostr(Index)); 
      BusyMsgL.Caption := IntToStr(MsgNumCB.Items.count); 
    end 
  end; 
  StBar.Panels[3].text := 'Message arrived'; 
end; 
 
procedure TForm1.ReadMsg_BtnClick(Sender: TObject); 
begin 
  LoadMessage(StrToInt(MsgNumCB.text)); 
end; 
 
procedure TForm1.DelMsg_BtnClick(Sender: TObject); 
var s : string; 
    i : integer; 
begin 
try 
  if SMS1.DeleteSMSMessage(StrToInt(MsgNumCB.text)) then 
  begin 
    MsgNumCB.Items.Delete(MsgNumCB.ItemIndex); 
    StBar.Panels[3].text := 'Message deleted'; 
    s := BusyMsgL.Caption; 
    i := StrToInt(s); 
    if i > 0 then 
    begin 
      Dec(i); 
      s := IntToStr(i); 
      BusyMsgL.Caption := s; 
    end; 
    MsgNumCB.text := ''; 
  end 
  else StBar.Panels[3].text := 'Message NOT deleted'; 
except end; 
end; 
 
procedure TForm1.GetInbox_BtnClick(Sender: TObject); 
var count, busy : integer; 
    Locations : string; 
begin 
  GetInbox_Btn.Enabled := false; 
  SMS1.GetInboxInfo(Count, Busy, Locations); 
  TotalMsgL.Caption := IntToStr(Count); 
  BusyMsgL.Caption := IntToStr(Busy); 
  MsgNumCB.Clear; 
  MsgNumCB.Items.CommaText := Locations; 
  if MsgNumCB.Items.Count > 0 then 
  begin 
    MsgNumCB.ItemIndex := 0; 
    MsgNumCBChange(Self); 
  end; 
  GetInbox_Btn.Enabled := true; 
end; 
 
procedure TForm1.SendMsgBtnClick(Sender: TObject); 
begin 
  StBar.Panels[3].text := 'Sending message...'; 
  if sms1.SendSMSMessage(SendToE.text, SendtextE.text, SendValidE.Value, NRepChB.Checked, UnicodeChB.Checked, SendPic) = true then 
      StBar.Panels[3].text := 'Message sent' else StBar.Panels[3].text := 'Message NOT sent' 
 
end; 
 
procedure TForm1.Button7Click(Sender: TObject); 
begin 
 
  if SMS1.CheckConnection then 
  begin 
    Label2.Caption := 'SMSC: ' + SMS1.getsmscnumber; 
    Label3.Caption := 'Signal: ' + IntToStr(SMS1.SignalLevel); 
    Label4.Caption := 'Battery: ' + IntToStr(SMS1.BatteryLevel); 
    Label5.Caption := 'HardWare: ' + SMS1.HW; 
    Label6.Caption := 'Software: ' + SMS1.SW; 
    Label7.Caption := 'SWDate: ' + SMS1.SWDate; 
    StBar.Panels[0].text := 'Connected'; 
  end 
  else  StBar.Panels[0].text := 'Not Connected'; 
 
 
end; 
 
procedure TForm1.ConnTCBChange(Sender: TObject); 
begin 
  case ConnTCB.ItemIndex of 
    0: SMS1.ConnectionMode := 0; 
    1: SMS1.ConnectionMode := 1; 
    2: SMS1.ConnectionMode := 2; 
  end; 
end; 
 
procedure TForm1.PortEChange(Sender: TObject); 
begin 
 SMS1.ComNumber := PortE.Value; 
end; 
 
procedure TForm1.MsgNumCBChange(Sender: TObject); 
begin 
  if MsgNumCB.text <> '' then LoadMessage(StrToInt(MsgNumCB.text)); 
end; 
 
procedure TForm1.PhoneMCBChange(Sender: TObject); 
begin 
    SMS1.Model := PhoneMCB.ItemIndex; 
end; 
 
 
procedure TForm1.Clear1Click(Sender: TObject); 
begin 
// 
end; 
 
procedure TForm1.Load1Click(Sender: TObject); 
begin 
// 
end; 
 
procedure TForm1.MsgGridClick(Sender: TObject); 
begin 
  with MsgGrid do 
  if Row <> RowCount-1 then 
    case StrToInt(Cells[1, Row]) of 
    0: 
    begin 
      MsgFromL.caption := Cells[2, Row]; 
      MsgTimeL.caption := Cells[3, Row]; 
      MsgTextL.caption := Cells[4, Row]; 
      try 
        Image1.Picture.LoadFromFile(BMPPath + IntToStr(Row) + '.bmp'); 
        Image1.visible := true; 
      except Image1.visible := false; 
      end; 
    end; 
    else 
    begin 
      MsgNumCB.itemindex := MsgNumCB.Items.IndexOf(Cells[1, Row]); 
      LoadMessage(StrToInt(Cells[1, Row])); 
      Image1.visible := false; 
    end; 
    end; 
end; 
 
procedure TForm1.Image1DblClick(Sender: TObject); 
begin 
  if SPD.Execute then Image1.Picture.SaveToFile(SPD.filename); 
end; 
 
procedure TForm1.Picture_BtnClick(Sender: TObject); 
begin 
  if OPD1.Execute then 
  begin 
    Picture_btn.Caption := ''; 
    Picture_btn.Glyph.LoadFromFile(OPD1.FileName); 
    SendPic := Picture_btn.Glyph; 
    SendPic.width := 72; 
    SendPic.height := 28; 
  end; 
end; 
 
procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
  SendPic := nil; 
  Picture_btn.Glyph.Assign(nil); 
  Picture_btn.Caption := 'No picture' 
end; 
 
end.