setting.pas

利用手机短信信息实现充值的例子

unit setting;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    Edit3: TEdit;
    Edit1: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
       uses define;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var i,ii:integer;

begin
i:=strtoint(edit3.Text);

channels[i].had_send:=0;
channels[i].false_count:=0;
channels[i].sucess_count:=0;
 Form2.Close;
end;

procedure TForm2.FormShow(Sender: TObject);
var i:integer;
begin
i:=strtoint(edit3.Text);


memo1.Text:=channels[i].messagestr;
edit1.Text:=inttostr(channels[i].speed);
edit2.Text:=no_path;
edit4.Text:=(channels[i].qz);
ComboBox2.Text:=(channels[i].cz_mobile);


ComboBox3.ItemIndex:=channels[i].channel_COM;
case channels[i].channel_COM_speed of
12:
    begin
      ComboBox1.Text:='9600';
    end;
13:
    begin
      ComboBox1.Text:='19200';
    end;
14:
    begin
       ComboBox1.Text:='38400';
    end;
15:
    begin
       ComboBox1.Text:='115200';
    end
else
begin
       ComboBox1.Text:='00000';
    end;
end;
end;

procedure TForm2.Memo1Change(Sender: TObject);
begin
Label5.Caption:='（'+inttostr(length(widestring(Memo1.Text)))+' ）';
end;

procedure TForm2.Edit2Change(Sender: TObject);
begin
Label6.Caption:='（'+inttostr(all_no_list.Count)+' ）';
end;

procedure TForm2.ComboBox1Change(Sender: TObject);
var i,i1:integer;
begin
i:=strtoint(ComboBox1.Text);
i1:=strtoint(edit3.Text);
case i of

9600:
    begin
      channels[i1].channel_COM_speed:=12;
    end;
19200:
    begin
      channels[i1].channel_COM_speed:=13;
    end;
38400:
    begin
      channels[i1].channel_COM_speed:=14;
    end;
115200:
    begin
      channels[i1].channel_COM_speed:=16;
    end;

end;

save_inifile('config.ini','com'+inttostr(i1),'set8',inttostr(channels[i1].channel_COM_speed));

end;

procedure TForm2.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to 55 do
begin
ComboBox3.Items.Add('COM'+inttostr(i));
end;
end;

procedure TForm2.ComboBox3Change(Sender: TObject);
var i:integer;
begin
 i:=strtoint(edit3.Text);
 channels[i].channel_COM:=ComboBox3.ItemIndex;
 save_inifile('config.ini','com'+inttostr(i),'set7',inttostr(channels[i].channel_COM));

end;

procedure TForm2.Edit1Change(Sender: TObject);
var i:integer;
begin
i:=strtoint(edit3.Text);
if is_int(trim(edit1.Text)) then channels[i].speed:=strtoint(edit1.Text);
save_inifile('config.ini','com'+inttostr(i),'set0',inttostr(channels[i].speed));
end;

procedure TForm2.ComboBox2Change(Sender: TObject);
var i:integer;
begin
 i:=strtoint(edit3.Text);
if is_int(trim(ComboBox2.Text)) then channels[i].cz_mobile:=trim(ComboBox2.Text);
save_inifile('config.ini','com'+inttostr(i),'set9',(channels[i].cz_mobile));
end;

procedure TForm2.Edit4Change(Sender: TObject);
var i:integer;
begin
 i:=strtoint(edit3.Text);
if trim(edit4.Text)<>'' then channels[i].qz:=trim(edit4.Text);
save_inifile('config.ini','com'+inttostr(i),'set5',(channels[i].qz));

end;

end.