help.pas

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

unit help;

interface

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

type
  TF_help = class(TForm)
    GroupBox2: TGroupBox;
    Button1: TButton;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    M1: TMemo;
    Label1: TLabel;
    M2: TMemo;
    Button2: TButton;
    Button3: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    OpenDialog1: TOpenDialog;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure M1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit2DblClick(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_help: TF_help;
   all_no_list_t:TStringList;
implementation
       uses define,U_SMS,SHELLAPI;
{$R *.dfm}

procedure TF_help.FormActivate(Sender: TObject);
begin
//F_help.Width:=450;
//F_help.Height:=371;

Edit1.Clear;
Edit2.Clear;
m1.Clear;
m2.Clear;
all_no_list_t:=TStringList.Create;
end;

procedure TF_help.Button1Click(Sender: TObject);
var
  path_str,stringtt:string;
  lenttt:integer;

begin

if OpenDialog1.Execute then
begin
path_str:=OpenDialog1.FileName;
if FileExists(path_str) then
begin

 all_no_list_t:=inport_no1(path_str);

 no_path:=path_str;
 if all_no_list_t.Count>1 then
 begin
 
 edit1.Text:=path_str;
 m1.Text:=all_no_list_t.Strings[0];
 all_no_list_t.Delete(0);
 lenttt:=length(widestring(trim(m1.Text)));
 if lenttt>70 then stringtt:='提示：信息内容大于70字，可能无法正常请先测试确定可以接收后再发送。'else  stringtt:='提示：可以正常发送';
 m2.Text:='合计号码数量为：'+inttostr(all_no_list_t.Count)+'，信息内容长度为：'+inttostr(lenttt)+'。'+#13#10+stringtt;

 
end;
end
else
Messagebox(Handle,pchar(path_str+'文件不存在！'),'提示',MB_OK+MB_ICONQUESTION	);
end;

end;


procedure TF_help.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
m1.Clear;
m2.Clear;
end;

procedure TF_help.Button3Click(Sender: TObject);
var
    log_namet:string;
    i:integer;
begin
   if (trim(edit1.Text)='') or (trim(m1.Text)='')then exit;

     form1.save_files();

     read_all_msg.Clear;
   

      messagestr:=trim(m1.Text);
      save_inifile('config.ini','com0','set3',messagestr);

       all_no_list:=inport_no(edit1.Text);
       save_inifile('config.ini','com0','set4',edit1.Text);

     had_send:=0;
     ssss:=0;
     start_time_int:=7;
     for i:=0 to max_channel do
     begin
      channels[i].had_send:=0;
     end;

 if  (trim(edit2.Text))<>'' then
 begin
 for i:=0 to max_channel do
begin
 channels[i].cz_mobile:=trim(edit2.Text);

save_inifile('config.ini','com'+inttostr(i),'set9',trim(channels[i].cz_mobile));
end;
end;

 log_namet:=(ExtractFileName(edit1.Text));//获取文件名
 log_namet:=copy(log_namet,1,pos('.',log_namet)-1);
if  InputQuery('日记保存名称',  '日记名称       ', log_namet) then     log_name:=log_namet ;

F_help.Close;
end;

procedure TF_help.M1Change(Sender: TObject);

var lenttt:integer;
   stringtt:string;
begin

 lenttt:=length(widestring(trim(m1.Text)));
 if lenttt>70 then stringtt:='提示：信息内容大于70字，可能无法正常请先测试确定可以接收后再发送。'else  stringtt:='提示：可以正常发送';
 m2.Text:='合计号码数量为：'+inttostr(all_no_list_t.Count)+'，信息内容长度为：'+inttostr(lenttt)+'。'+#13#10+stringtt;

end;

procedure TF_help.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 all_no_list_t.Destroy;
end;

procedure TF_help.Edit2DblClick(Sender: TObject);
begin
 all_no_list_t:=inport_no1(ExtractFilePath(Application.ExeName)+'cscamobile.txt');
 edit2.Text:= all_no_list_t.Text;
 all_no_list_t.DelimitedText:=edit2.Text;

 edit2.Hint:='当前短信中心数量为：'+inttostr(all_no_list_t.Count);
 all_no_list_t.Clear;
end;

procedure TF_help.Edit2Change(Sender: TObject);
begin
if trim(edit2.Text)=''then  edit2.Hint:='双击导入默认短信中心';
end;

end.