代码示例

新疆时时彩购彩 www.gnouw.com.cn 新疆时时彩购彩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.gnouw.com.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-26
  • 双拳出击:领主商务版威虎超值版上市 2019-06-26
  • 调查:六成老人感到幸福,西藏排第一,您家的呢?  2019-06-26
  • 浙大科研团队15载攻克歼20等飞机装配系列难题 2019-06-25
  • 都以为机器人普及了,一切都不是问题了?机器人不需要不断升级?机器人生产啥?不需要人设计? 2019-06-25
  • 新华网评:流浪犬伤人事件频发,亟待多措并举 2019-06-25
  • 美国依据“301”调查发布对中国产品征收关税清单 2019-06-24
  • 弥渡 万亩梨花如云似瀑 春城壹网 七彩云南 一网天下 2019-06-24
  • 易烊千玺押中高考作文题?不仅会押,今年还唱过! 2019-06-24
  • 2018年两会第五场“部长通道” 2019-06-23
  • 筑牢主流 摈弃“历史虚无主义” 2019-06-23
  • 李宇嘉深圳二次房改对其他城市有重大示范意义 ——凤凰网房产北京 2019-06-23
  • 澳大利亚女子离婚时发现丈夫有15套房产 2019-06-22
  • 当老对手再重逢 本田飞度vs大众POLO 2019-06-22
  • 足协调查深足欠薪陷两难 队员不开发布会就罢赛 2019-06-22
  • qq视频欢乐斗地主 网球比分规则几局几胜 2元彩票论坛 18选7开奖结果走势图 中国福彩网3d太湖字谜 快速赛车开奖规律 内蒙古快三基本走势图形态走势图 辽宁35选7玩法 福彩3d选号绝密资料 体育彩票走势图七星彩 南粤36选7开奖时间 二分彩免费计划软件 足彩胜负彩单场奖金 双色球2019大复式票 三分彩免费全天计划