win32_makefile/gui_delphi/smscedit.pas

   1 unit smscedit;\r
   2 \r
   3 interface\r
   4 \r
   5 uses\r
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
   7   Dialogs, StdCtrls, GnokiiAPI,MainUnit;\r
   8 \r
   9 type\r
  10   TSMSCEditForm = class(TForm)\r
  11     Button1: TButton;\r
  12     Button2: TButton;\r
  13     Label1: TLabel;\r
  14     Edit1: TEdit;\r
  15     Label3: TLabel;\r
  16     ComboBox1: TComboBox;\r
  17     Label4: TLabel;\r
  18     ComboBox2: TComboBox;\r
  19     Label5: TLabel;\r
  20     Edit3: TEdit;\r
  21     Edit2: TEdit;\r
  22     Label2: TLabel;\r
  23     procedure Button2Click(Sender: TObject);\r
  24     procedure Button1Click(Sender: TObject);\r
  25   private\r
  26     { Private declarations }\r
  27   public\r
  28     { Public declarations }\r
  29   end;\r
  30 \r
  31 var\r
  32   SMSCEditForm: TSMSCEditForm;\r
  33 \r
  34 implementation\r
  35 \r
  36 {$R *.dfm}\r
  37 \r
  38 procedure TSMSCEditForm.Button2Click(Sender: TObject);\r
  39 begin\r
  40   SMSCEditForm.Close;\r
  41 end;\r
  42 \r
  43 procedure TSMSCEditForm.Button1Click(Sender: TObject);\r
  44 var\r
  45   smsc:GSM_MessageCenter;\r
  46   i:integer;\r
  47 begin\r
  48   smsc.no:=smscselectitem;\r
  49 \r
  50   for i:=1 to 20 do\r
  51     smsc.name[i]:=chr(0);\r
  52   for i:=1 to strlen(pchar(Edit1.text)) do\r
  53     smsc.name[i]:=Edit1.Text[i];\r
  54 \r
  55   for i:=1 to 40 do\r
  56     smsc.number[i]:=chr(0);\r
  57   for i:=1 to strlen(pchar(Edit2.text)) do\r
  58     smsc.number[i]:=Edit2.Text[i];\r
  59 \r
  60   for i:=1 to 40 do\r
  61     smsc.defaultrecipient[i]:=chr(0);\r
  62   for i:=1 to strlen(pchar(Edit3.text)) do\r
  63     smsc.defaultrecipient[i]:=Edit3.Text[i];\r
  64 \r
  65   case ComboBox1.ItemIndex of\r
  66     0:smsc.Validity:=    GSMV_1_Hour  ;\r
  67     1:smsc.Validity:=    GSMV_6_Hours ;\r
  68     2:smsc.Validity:=    GSMV_24_Hours;\r
  69     3:smsc.Validity:=    GSMV_72_Hours;\r
  70     4:smsc.Validity:=    GSMV_1_Week  ;\r
  71     5:smsc.Validity:=    GSMV_Max_Time;\r
  72   end;\r
  73 \r
  74   case combobox2.ItemIndex of\r
  75     0:smsc.Format:=       GSMF_Text;\r
  76     1:smsc.Format:=     GSMF_Fax   ;\r
  77     3:smsc.Format:=     GSMF_Paging;\r
  78   else\r
  79     smsc.format:=GSMF_Email;\r
  80   end;\r
  81 \r
  82   GSM_SetSMSCenter(@smsc);\r
  83   MainForm.SMSCTabSheetShow(nil);\r
  84   SMSCEditForm.Close;\r
  85 end;\r
  86 \r
  87 end.\r