代码示例

四川快乐12一定牛 www.njs5.cn 四川快乐12一定牛delphi7代码示例 在线技术支持

	procedure btnSendSmsClick(Sender: TObject);
	var
	  ParamLst: TStrings;
	  ReMsg: WideString;
	begin
	  btnSendSms.Enabled := False;
	  Screen.Cursor := crHourGlass;
	  ParamLst := TStringList.Create;
	  try
		
		if Trim(edtTel.Text) = EmptyStr then Exit;
		if Trim(mmoSmsCon.Text) = EmptyStr then Exit;

		begin
		ParamLst.Add('accName=' + Trim(edtUserName.Text));
		ParamLst.Add('accPwd=' + md5(edtPassword.Text));
		ParamLst.Add('content=' + UTF8Encode(Trim(mmoSmsCon.Text)));
		ParamLst.Add('aimcodes=' + Trim(edtTel.Text));
		ParamLst.Add('dataType' + 'string');

		ReMsg := UTF8Decode(IdHTTP.Post('//www.njs5.cn/sdk/send', ParamLst));

		mmoDisplay.Lines.Add('错误代码:' + ReMsg);

		IdHTTP.Disconnect;
		IdHTTP.Request.Clear;

		edtTel.Clear;
		mmoSmsCon.Clear;
		end
	  finally
		btnSendSms.Enabled := True;
		Screen.Cursor := crDefault;
		ParamLst.Free;
	  end;
	end;
   
  • 中国的宗教信仰自由:深刻真诚一贯牢固 2019-06-24
  • 习近平接受《华尔街日报》采访 2019-06-24
  • 雷健坤当选阳泉市人民政府市长 2019-06-21
  • 国务院办公厅印发《意见》 推进奶业振兴保障乳品质量安全 2019-06-21
  • 寻找安徒生:想象的翅膀从家乡延展 2019-06-20
  • 乡镇纪委做指导 村务监督更有力 2019-06-20
  • 国资动态--安徽频道--人民网 2019-06-11
  • 广东金林村:农民爱写诗 2019-06-03
  • 公务加油卡私车加油、违规饮酒 池州两干部被处分 2019-05-18
  • 498米!最长地铁站将建成 2019-05-08
  • 是谁让文艺界大腕儿吃盒饭也来开会 2019-05-08
  • 毛泽东说帝国主义都是纸老虎。是有社会基础的 2019-05-07
  • 【学习时刻】国家行政学院经济学部副主任董小君:明方向、抓“龙头”、变思路,推动东北经济企稳向好 2019-04-24
  • 精彩画面—国际摩托车滚雷巡游节 2019-04-24
  • 留得青山在,何愁春不来? 2019-04-22
  • 500彩票极速快3 刘伯温心水论坛大全 吉林时时彩走势图||www.vyzaow.com.cn/ 极速11选5走势图 3d试机号对应码金码 五子棋简笔画 2019波叔一波中特图 青海快三的开奖结果今天 内蒙古时时彩1019 足彩单场 福建快3的号码表 3d独胆公式规律 最好的网上彩票软件 欢乐斗地主辅助下载 新彩网3d丹东全图谜