mainunit.pas

请使用Mobile FBUS——用来创建与NOKIA手机连接的软件的理想解决方案！功能包括：发送SMS

procedure TfrmMain.btnDeleteSMSClick(Sender: TObject);
begin
    if lvSMS.SelCount >0 then
      begin
        fBus1.SMS.DeleteSMSMessage(cmboSMSMemType.ItemIndex,Trim(Filtercr(lvSMS.items[lvSMS.Selected.Index].SubItems[2])));
        LoadSMSMessages(cmboSMSMemType.ItemIndex);
        btnDeleteSMS.visible:=false;
      end;
end;

procedure TfrmMain.btnPBSendSMSClick(Sender: TObject);
begin
  if lvPhoneBook.selcount >0 then
    begin
      application.CreateForm(TfrmSendSMS,frmSendSMS);
      frmSendSMS.txtDestination.text:=lvPhoneBook.items[lvPhoneBook.Selected.Index].SubItems[0];
      frmSendSMS.showmodal;
    end;
end;

procedure TfrmMain.btnPlayToneClick(Sender: TObject);
begin
  if (FileListBox1.FileName <> '') and  (rgrpPlayDevice.itemindex<>-1) and (IsRingTone(FileListBox1.Filename)) then
    begin
      FBUS1.RingTone.ReadFile(FileListBox1.Filename);
      if Not fWin95 then
        FBUS1.RingTone.Play(rgrpPlayDevice.itemindex)
      else
        FBUS1.RingTone.Play(rgrpPlayDevice.itemindex+1);
    end;
end;

procedure TfrmMain.btnSendVIASMSClick(Sender: TObject);
var
  sInput:string;
begin
 if (FileListBox1.FileName <> '') and (IsRingTone(FileListBox1.Filename))  then
  begin
   sInput:=InputBox('Destination', 'Please enter the destination phone number','');
     if Trim(sInput) <>'' then
       begin
         FBUS1.RingTone.ReadFile(FileListBox1.Filename);
         FBUS1.RingTone.SendAsSMS(sInput);
       end;
    end;
end;

procedure TfrmMain.btnRingToneUploadClick(Sender: TObject);
begin
   if (FileListBox1.FileName <> '') and (IsRingTone(FileListBox1.Filename)) then
    begin
      FBUS1.RingTone.Upload;
    end;
end;

procedure TfrmMain.btnRingToneWriteClick(Sender: TObject);
begin
 if (FileListBox1.FileName <> '') and (IsRingTone(FileListBox1.Filename)) then
   FBUS1.RingTone.WriteFile(FileListBox1.FileName);
end;

procedure TfrmMain.rgrpDTMFTypeClick(Sender: TObject);
begin
  if rgrpDTMFType.itemindex=1 then
    begin
      btnCall.enabled:=true;
      btnhangup.enabled:=true;
      txtVoiceCall.Visible:=true;
    end
  else
    begin
      btnCall.enabled:=False;
      btnhangup.enabled:=False;
      txtVoiceCall.Visible:=False;
    end;

end;

procedure TfrmMain.ProcessDTMF(sender : TObject);
var
  sTagIndex:string;
begin
 if FBus1.Connected then
 With Sender as TButton do
   begin
     sTagIndex:=IntToStr(TButton(Sender).tag);
     if sTagIndex = '99' then sTagIndex:='+';
     if sTagIndex = '88' then sTagIndex:='#';

     if txtVoiceCall.Visible then
       txtVoiceCall.text:=txtVoiceCall.text+sTagIndex
     else
       FBUS1.SendDTMF(sTagIndex);
   end;
end;
procedure TfrmMain.btnCallClick(Sender: TObject);
begin
  if FBus1.Connected then FBUS1.MakeVoiceCall(txtVoiceCall.text);
end;



procedure TfrmMain.btnHangupClick(Sender: TObject);
begin
  if FBus1.Connected then FBUS1.HangupPhone;
end;

procedure TfrmMain.UpDown1Click(Sender: TObject; Button: TUDBtnType);
  function FilterHash10(sData:string):string;
  var
    iPos:integer;
    sNewString:String;
  begin
    sNewString:='';

    for ipos:=0 to length(sData)-1 do
      if sData[ipos+1] = #10 then
        sNewString:=sNewString+#13#10
      else
        sNewString:=sNewString+sData[ipos+1];

     result:=sNewString;
  end;
begin
   moNetMonitor.lines.clear;
   moNetMonitor.lines.add(FilterHash10(FBus1.NetMon(edit1.text)));
end;

procedure TfrmMain.Button7Click(Sender: TObject);
begin
  edit1.text:='0';
  moNetMonitor.lines.clear;
  FBus1.NetMon('devel');
end;

procedure TfrmMain.Button8Click(Sender: TObject);
begin
  edit1.text:='0';
  moNetMonitor.lines.clear;
  FBus1.NetMon('field');
end;

procedure TfrmMain.Button6Click(Sender: TObject);
begin
  edit1.text:='0';
  moNetMonitor.lines.clear;
  FBus1.NetMon('off')
end;

procedure TfrmMain.cmboLogoTypeClick(Sender: TObject);
begin
 case cmboLogoType.itemindex of
   0: LogoEditor.LogoType:=fbNoLogo;
   1: LogoEditor.LogoType:=fbStartupLogo;
   2: LogoEditor.LogoType:=fbOperatorLogo;
   3: LogoEditor.LogoType:=fbCallerLogo;
 end;

end;

procedure TfrmMain.btnClearClick(Sender: TObject);
begin
  LogoEditor.ClearLogo;
end;

procedure TfrmMain.btnLoadfromfileClick(Sender: TObject);
begin
  if dlgOpenImageFile.execute then
    begin
      LogoEditor.ClearLogo;
      cmboLogoTypeclick(self);
      screen.cursor:=crHourglass;
      application.processmessages;
      dlgOpenImageFile.InitialDir:=sApplicationPath;
      if (extractfileext(dlgOpenImageFile.Filename) = '.bmp') or (extractfileext(dlgOpenImageFile.Filename) = '.jpg') or (extractfileext(dlgOpenImageFile.Filename) = '.gif') then
         LogoEditor.LoadBitmapForLogo(dlgOpenImageFile.Filename);

      if (extractfileext(dlgOpenImageFile.Filename) = '.nol') or (extractfileext(dlgOpenImageFile.Filename) = '.ngg') or (extractfileext(dlgOpenImageFile.Filename) = '.nlm') then
        begin
          LogoEditor.LoadLogoFromFile(dlgOpenImageFile.Filename);
        end;
      end;
   screen.cursor:=crDefault;
end;

procedure TfrmMain.btnDownloadClick(Sender: TObject);
begin

  screen.cursor:=crHourGlass;
  LogoEditor.Download(cmboLogoType.itemIndex);
  screen.cursor:=crdefault;

end;

procedure TfrmMain.LogoEditorSentViaSMS(Sent: Boolean);
begin
 if Sent then
    messageDlg('The logo has successfully been sent',mtInformation,[mbOk],0)
  else
    messageDlg('The logo was not sent due to an error',mtInformation,[mbOk],0);

end;

procedure TfrmMain.LogoEditorGridPos(X, Y: Integer);
begin
  MFBUSStatusBar1.Panels[1].text:='Mouse Pos: '+Inttostr(Trunc(x / 6)+1)+'/'+inttostr(Trunc(y / 6)+1);
end;

procedure TfrmMain.Notebook1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  MFBUSStatusBar1.Panels[1].text:='';
end;

procedure TfrmMain.Button1Click(Sender: TObject);
var
  sDestination:String;
begin

  if (cmboLogoType.itemindex = 1) and ( FBUS1.PhoneInfo.Model <> 'Nokia 3310') and ( FBUS1.PhoneInfo.Model <> 'Nokia 3210') and ( FBUS1.PhoneInfo.Model <> 'Nokia 6110') then
    messageDlg('Sorry. Your phone cannot send a "Startup Logo" as this logo type is not supportd by your phone',mtInformation,[mbOk],0)
  else
    begin
      sDestination:=Inputbox('destination number','Please Enter the destination number','');
      if length(sDestination) >0 then
        begin
          screen.cursor:=crHourGlass;
          LogoEditor.SendLogoViaSMS(sDestination);
          screen.cursor:=crDefault;
        end;
    end;
end;

procedure TfrmMain.btnSaveLogoClick(Sender: TObject);
begin
  LogoEditor.SaveLogoToFile('c:\test.nol');
  messagedlg('The logo has been saved to "c:\test.nol" by default',mtInformation,[mbOk],0);
end;

procedure TfrmMain.btnSendToPhoneClick(Sender: TObject);
begin
  screen.cursor:=crHourglass;
  LogoEditor.SendLogoToPhone;
  screen.cursor:=crDefault;
end;

procedure TfrmMain.Button17Click(Sender: TObject);
var
 iLeft,iTop:integer;
begin
  if fFont=nil then
    begin
     fFont:=TFont.Create;
     fFont.Size:=6;
     fFont.Name:='Arial';
     fFont.Style:=[];
   end;
  DisplayLogo.canvas.font.size:=fFont.Size;
  DisplayLogo.canvas.font.name:=fFont.Name;
  DisplayLogo.canvas.font.style:=fFont.Style;

  iLeft:=((DisplayLogo.width div 2) - (DisplayLogo.canvas.textwidth(txtLogo.text) div 2))+1;
  iTop:=((DisplayLogo.height div 2) - (DisplayLogo.canvas.textHeight(txtLogo.text) div 2))+1;
  DisplayLogo.canvas.brush.style:=bsClear;
  DisplayLogo.canvas.TextOut(iLeft,iTop,txtLogo.text);
  DisplayLogo.update;
  LogoEditor.TextToLogo(DisplayLogo);
end;

procedure TfrmMain.Button19Click(Sender: TObject);
begin
 if FontDialog1.execute then
   fFont:=FontDialog1.Font;

end;

procedure TfrmMain.btnResetClick(Sender: TObject);
begin
 if LogoEditor.ResetLogo(cmboLogoType.itemindex) then
   begin
    if MessageDlg('Logo Reset. Clear Logo editor?',mtinformation,[mbYes,mbNo],0) = mryes then
       btnClearClick(Self);
   end
 else
   messageDlg('Error: Logo Not Reset',mtinformation,[mbOk],0);
end;

procedure TfrmMain.FBUS1RingToneSent(Sent: Boolean);
begin
 if Sent then
    messageDlg('The Ringtone has successfully been sent',mtInformation,[mbOk],0)
  else
    messageDlg('The Ringtone was not sent due to an error',mtInformation,[mbOk],0);
end;

procedure TfrmMain.FBUS1IncommingCall(Number: String);
begin
   showmessage(FindNumber(number));
end;

procedure TfrmMain.PhoneInfo1Click(Sender: TObject);
begin
  Outlook1.activeTab:=1;
  NoteBook1.pageindex:=0;
  lblText.caption:='Phone Information';
end;

procedure TfrmMain.PhoneBook1Click(Sender: TObject);
begin
    Outlook1.activeTab:=2;
    PhoneBookGet(TMemType(cmbpMemType.itemindex));
    if fBus1.Connected then
      begin
        lblText.caption:='Phone Book';
        application.processmessages;
      end
    else
      Notebook1.PageIndex:=1;
end;

procedure TfrmMain.SMS1Click(Sender: TObject);
begin
  lblText.caption:='SMS Messages';
  Outlook1.activeTab:=2;
  Notebook1.PageIndex:=2;
  application.processmessages;
  cmboSMSMemType.itemindex:=2;
  LoadSMSMessages(cmboSMSMemType.itemindex+11);
end;

procedure TfrmMain.SpeedDial1Click(Sender: TObject);
begin
  lblText.caption:='Speed Dial';
  Outlook1.activeTab:=2;
  NoteBook1.pageindex:=3;
end;

procedure TfrmMain.RingTone1Click(Sender: TObject);
begin
  lblText.caption:='Ringtone';
  Outlook1.activeTab:=2;
  NoteBook1.pageindex:=4;
end;

procedure TfrmMain.Logo1Click(Sender: TObject);
begin
  lblText.caption:='Logo';
  Outlook1.activeTab:=2;
  NoteBook1.pageindex:=6;
end;

procedure TfrmMain.DTMF1Click(Sender: TObject);
begin
  lblText.caption:='DTMF';
  Outlook1.activeTab:=2;
  NoteBook1.pageindex:=5;
end;

procedure TfrmMain.NetMonitor1Click(Sender: TObject);
begin
  lblText.caption:='Net Monitor';
  Outlook1.activeTab:=2;
  NoteBook1.pageindex:=7;
end;

procedure TfrmMain.btnChangeProviderClick(Sender: TObject);
begin
 application.createform(TfrmProviders,frmProviders);
 frmProviders.ShowProviders(FBUS1.NetworkInfo.NetworkCode,FBUS1.NetworkInfo.Country);

end;

procedure TfrmMain.btnExportClick(Sender: TObject);
begin
   LogoEditor.ExportLogoToFile('C:\ExportedLogo.bmp','BMP');
   LogoEditor.ExportLogoToFile('C:\ExportedLogo.gif','GIF');
   LogoEditor.ExportLogoToFile('C:\ExportedLogo.jpg','JPG');
   messagedlg('3 logos saved to file. 1 BMP, 1 GIF and 1 JPG. Saved to C:\ExportedLogo.xxx',mtinformation,[mbOk],0);
end;

end.