6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
\r
7 Dialogs, StdCtrls, GnokiiAPI,MainUnit;
\r
10 TSMSCEditForm = class(TForm)
\r
16 ComboBox1: TComboBox;
\r
18 ComboBox2: TComboBox;
\r
23 procedure Button2Click(Sender: TObject);
\r
24 procedure Button1Click(Sender: TObject);
\r
26 { Private declarations }
\r
28 { Public declarations }
\r
32 SMSCEditForm: TSMSCEditForm;
\r
38 procedure TSMSCEditForm.Button2Click(Sender: TObject);
\r
43 procedure TSMSCEditForm.Button1Click(Sender: TObject);
\r
45 smsc:GSM_MessageCenter;
\r
48 smsc.no:=smscselectitem;
\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
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
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
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
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
79 smsc.format:=GSMF_Email;
\r
82 GSM_SetSMSCenter(@smsc);
\r
83 MainForm.SMSCTabSheetShow(nil);
\r