<nav id="ckusc"></nav>
<menu id="ckusc"><acronym id="ckusc"></acronym></menu>
<input id="ckusc"><u id="ckusc"></u></input>
<menu id="ckusc"></menu>
<input id="ckusc"><u id="ckusc"></u></input>
  • <input id="ckusc"></input>
  • <input id="ckusc"></input>
  • <menu id="ckusc"><u id="ckusc"></u></menu> <nav id="ckusc"><tt id="ckusc"></tt></nav>
  • <legend id="ckusc"></legend>
  • <menu id="ckusc"></menu>
  • <input id="ckusc"></input>
    代码示例

    代码下载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('http://www.zgpmsmcom.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;
       
    最新一本道-斉木ゆあ