// // 程序启动时,自动连上应用服务器... procedure TForm1.FormCreate(Sender: TObject); begin if userconn.Connect then begin memo1.Lines.Add('连接应用服务器成功!'); if userconn.Login then memo1.Lines.Add('登录应用服务器成功,请继续测试!') else memo1.Lines.Add('登录应用服务器失败,无法继续测试!'); end else memo1.Lines.Add('连接应用服务器失败,无法继续测试!'); end;
// // 提交短信到服务器,让短信驴去做事! procedure TForm1.Button1Click(Sender: TObject); var tmpstr: ansistring; SmsMsg: TSmsMessage; begin if not dba.GenerateId('smsmessage','MessageId','Substring(MessageId,1,4)='''+formatdatetime('yymm',now)+'''','YYMMXXXX','',tmpstr) then begin memo1.Lines.add('分配短信号失败,无法继续测试!'); exit; end; SmsMsg:=TSmsMessage.Create; SmsMsg.f_MessageId:=tmpstr; SmsMsg.f_BusinessId:=''; SmsMsg.f_ReceiverName:=trim(edit1.Text); SmsMsg.f_Mobile:=trim(edit2.Text); SmsMsg.f_SendMode:=1; SmsMsg.f_BeginDateTime:=formatdatetime('yyyymmddhhnnss',now); SmsMsg.f_Complete:=''; SmsMsg.f_CompleteDateTime:=''; SmsMsg.f_LastDate:=''; SmsMsg.f_NextDate:=''; SmsMsg.f_SmsBody:=trim(memo2.Lines.Text); SmsMsg.f_SentTimes:=0; if SmsMsg.InsertToDB(dba) then memo1.Lines.Add('提交短信成功!') else memo1.Lines.Add('提交短信失败!'); FreeAndNil(SmsMsg); end;
// // 退出程序... procedure TForm1.Button2Click(Sender: TObject); begin UserConn.Logout; close; end;