misc.pas

Gestione Cellulari Nokia

unit Misc;

interface
  uses INIFILES,Sysutils,Dialogs,Forms,ComSelect,MainUnit,FBus,phonebook,SMS,comctrls,windows,messages,functions,classes,Graphics;

  Function  ComportToUse:integer;                //This function finds the Comport that will be used to connect to the phone
  Procedure ChangeComport;                       //This procedure will change the comport
//  procedure LoadSMSMessages(iBox:integer);       //This procedure loads the SMS messages;
  function  FilterNumber(sNumber:string):string; //filters just the number from the lblFROM caption. i.e. removes the name of the person
  function  FilterCr(sText:string):String;       //Filters carraige returns

  Function  IsRingTone(sFileName:string):Boolean;  // determines if the fiel being passed IS a ringtone
  Function  ReturnInsideStr(Count :Integer; Seperator : Char; TextStr : String) : String;

implementation


Function ComportToUse:integer;  // This function finds the Comport that will be used to connect to the phone
var
 fIniFile :TIniFile;
 iPort:Integer;
begin
  fIniFile :=TIniFile.create(extractFilePath(GetCurrentDir+'\')+'fbus.ini');

  iPort:=fIniFile.ReadInteger('COMPORT','PORT',-1);
  fIniFile.Free;

  if iPort=-1 then
    begin  //Since no comport has yet been entered, we open the comport selection screen
      MessageDlg('since this is the first time this program has been run, you need to select a comport that the phone is connected to',mtInformation,[mbOK],0);
      Application.createForm(TfmSelectComPort,fmSelectComPort);
      fmSelectComPort.Showmodal;
      fIniFile :=TIniFile.create(extractFilePath(GetCurrentDir+'\')+'fbus.ini');
      iPort:=fIniFile.ReadInteger('COMPORT','PORT',-1);
      fIniFile.Free;
      Result:=iPort
    end
  else
    Result:=iPort;
end;
Procedure ChangeComport; //This procedure will change the comport
begin
  Application.createForm(TfmSelectComPort,fmSelectComPort);
  fmSelectComPort.Change;
end;


procedure LoadSMS; //This procedure loads the SMS messages;
begin
//  LoadSMSMessages(fbIncommingMessage);
//  IsAlive;
end;

{procedure LoadSMSMessages(iBox:integer);
var
 x:integer;
 ListItem: TListItem;
 fSMSMessage : TSMSMessage;
// fbTextBox : Array of TfbTextBox;
 ctrIndex : integer;
 sEncodeType:String;
begin
  screen.cursor:=-11; //crHourGlass;
  frmMain.FBUS1.SMS.RefreshSMSList;
  application.processmessages;
  //SendMessage(lvSMS.Handle, WM_SetRedraw, 0, 0);

  //if lvSMS.items.count <=0 then //only want to load the SMS Messages if they are not already loaded
  // begin
    ctrIndex:=0;

    //frmmain.lvSMS.items.clear;
    for x:=1 to 10 do
     begin
       fSMSMessage:=frmMain.FBUS1.SMS.RetreiveMessageData(iBox,x);
       if FormatDateTime('dd MMM YYYY', fSMSMessage.msg_date) <> '31 Dec 1899' then
        begin
          //ListItem:= frmMain.lvSMS.items.add;
          //ListItem.Caption:=DateToStr(fSMSMessage.msg_date);
          //ListItem.subitems.add(fSMSMessage.sSender);
          //if fSMSMessage.bRead then
          //  ListItem.subitems.add('Yes')
          //else
           // ListItem.subitems.add('No');
          //ListItem.subitems.add(FilterCR(fSMSMessage.sMessage));
          //ListItem.subitems.add(widechar(fSMSMessage.sMessage));

          case fSMSMessage.Encoding of
            fbSmsMessageText    : sEncodeType:='Default';
            fbSmsMessageUnicode : sEncodeType:='UniCode';
            fbSmsMessageBinary  : sEncodeType:='Binary';
          end;

          case x-1 of
            0: begin
                 frmMain.txtDate0.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender0.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead0.text:='Yes'
                 else
                   frmMain.txtRead0.text:='No';

                 frmMain.txtEncode0.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText0.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText0.Text := FilterCR(fSMSMessage.sMessage);
               end;
            1: begin
                 frmMain.txtDate1.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender1.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead1.text:='Yes'
                 else
                   frmMain.txtRead1.text:='No';

                 frmMain.txtEncode1.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText1.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText1.Text := FilterCR(fSMSMessage.sMessage);
               end;
            2: begin
                 frmMain.txtDate2.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender2.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead2.text:='Yes'
                 else
                   frmMain.txtRead2.text:='No';

                 frmMain.txtEncode2.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText2.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText2.Text := FilterCR(fSMSMessage.sMessage);
               end;
            3: begin
                 frmMain.txtDate3.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender3.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead3.text:='Yes'
                 else
                   frmMain.txtRead3.text:='No';

                 frmMain.txtEncode3.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText3.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText3.Text := FilterCR(fSMSMessage.sMessage);
               end;
            4: begin
                 frmMain.txtDate4.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender4.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead4.text:='Yes'
                 else
                   frmMain.txtRead4.text:='No';

                 frmMain.txtEncode4.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText4.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText4.Text := FilterCR(fSMSMessage.sMessage);
               end;
            5: begin
                 frmMain.txtDate5.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender5.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead5.text:='Yes'
                 else
                   frmMain.txtRead5.text:='No';

                 frmMain.txtEncode5.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText5.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText5.Text := FilterCR(fSMSMessage.sMessage);
               end;
            6: begin
                 frmMain.txtDate6.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender6.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead6.text:='Yes'
                 else
                   frmMain.txtRead6.text:='No';

                 frmMain.txtEncode6.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText6.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText6.Text := FilterCR(fSMSMessage.sMessage);
               end;
            7: begin
                 frmMain.txtDate7.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender7.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead7.text:='Yes'
                 else
                   frmMain.txtRead7.text:='No';

                 frmMain.txtEncode7.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText7.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText7.Text := FilterCR(fSMSMessage.sMessage);
               end;
            8:
            begin
                 frmMain.txtDate8.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender8.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead8.text:='Yes'
                 else
                   frmMain.txtRead8.text:='No';

                 frmMain.txtEncode8.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText8.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText8.Text := FilterCR(fSMSMessage.sMessage);
               end;
            9: begin
                 frmMain.txtDate9.text:=DateToStr(fSMSMessage.msg_date);
                 frmMain.txtSender9.text:=fSMSMessage.sSender;
                 if fSMSMessage.bRead then
                   frmMain.txtRead9.text:='Yes'
                 else
                   frmMain.txtRead9.text:='No';

                 frmMain.txtEncode9.text:=sEncodeType;
                 //if fSMSMessage.Encoding = fbSmsMessageUnicode then frmMain.fbUnicodeText9.Text := fSMSMessage.sUnicode else frmMain.fbUnicodeText9.Text := FilterCR(fSMSMessage.sMessage);
               end;
          end;
        end;
      end;
   //end;
  //SendMessage(lvSMS.Handle, WM_SetRedraw, 1, 0);
   screen.cursor:=0; //crDefault;
   //if frmmain.lvSMS.items.count=0 then MessageDlg('No SMS Message on phone',mtInformation,[mbOk],0);
   IsAlive;
end;
}
function FilterNumber(sNumber:string):string; //filters just the number from the lblFROM caption. i.e. removes the name of the person
var
 iPos:integer;