--- /dev/null
+unit smscedit;\r
+\r
+interface\r
+\r
+uses\r
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
+ Dialogs, StdCtrls, GnokiiAPI,MainUnit;\r
+\r
+type\r
+ TSMSCEditForm = class(TForm)\r
+ Button1: TButton;\r
+ Button2: TButton;\r
+ Label1: TLabel;\r
+ Edit1: TEdit;\r
+ Label3: TLabel;\r
+ ComboBox1: TComboBox;\r
+ Label4: TLabel;\r
+ ComboBox2: TComboBox;\r
+ Label5: TLabel;\r
+ Edit3: TEdit;\r
+ Edit2: TEdit;\r
+ Label2: TLabel;\r
+ procedure Button2Click(Sender: TObject);\r
+ procedure Button1Click(Sender: TObject);\r
+ private\r
+ { Private declarations }\r
+ public\r
+ { Public declarations }\r
+ end;\r
+\r
+var\r
+ SMSCEditForm: TSMSCEditForm;\r
+\r
+implementation\r
+\r
+{$R *.dfm}\r
+\r
+procedure TSMSCEditForm.Button2Click(Sender: TObject);\r
+begin\r
+ SMSCEditForm.Close;\r
+end;\r
+\r
+procedure TSMSCEditForm.Button1Click(Sender: TObject);\r
+var\r
+ smsc:GSM_MessageCenter;\r
+ i:integer;\r
+begin\r
+ smsc.no:=smscselectitem;\r
+\r
+ for i:=1 to 20 do\r
+ smsc.name[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Edit1.text)) do\r
+ smsc.name[i]:=Edit1.Text[i];\r
+\r
+ for i:=1 to 40 do\r
+ smsc.number[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Edit2.text)) do\r
+ smsc.number[i]:=Edit2.Text[i];\r
+\r
+ for i:=1 to 40 do\r
+ smsc.defaultrecipient[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Edit3.text)) do\r
+ smsc.defaultrecipient[i]:=Edit3.Text[i];\r
+\r
+ case ComboBox1.ItemIndex of\r
+ 0:smsc.Validity:= GSMV_1_Hour ;\r
+ 1:smsc.Validity:= GSMV_6_Hours ;\r
+ 2:smsc.Validity:= GSMV_24_Hours;\r
+ 3:smsc.Validity:= GSMV_72_Hours;\r
+ 4:smsc.Validity:= GSMV_1_Week ;\r
+ 5:smsc.Validity:= GSMV_Max_Time;\r
+ end;\r
+\r
+ case combobox2.ItemIndex of\r
+ 0:smsc.Format:= GSMF_Text;\r
+ 1:smsc.Format:= GSMF_Fax ;\r
+ 3:smsc.Format:= GSMF_Paging;\r
+ else\r
+ smsc.format:=GSMF_Email;\r
+ end;\r
+\r
+ GSM_SetSMSCenter(@smsc);\r
+ MainForm.SMSCTabSheetShow(nil);\r
+ SMSCEditForm.Close;\r
+end;\r
+\r
+end.\r