[delphi]利用TidHTTP控件向目标PHP网页POST参数

最新推荐文章于 2023-12-05 14:28:53 发布

我不是代码教父

最新推荐文章于 2023-12-05 14:28:53 发布

阅读量1.4w

点赞数

分类专栏： # Delphi随想文章标签： delphi php class exception email 测试

本文链接：https://blog.csdn.net/code_godfather/article/details/6582478

版权

Delphi随想专栏收录该内容

9 篇文章 0 订阅

订阅专栏

[序言]

最近在做一个功能(delphi),需要向163邮箱发送EMAIL,本想偷懒利用现成的Indy的smtp控件发送,结果发现163邮箱已对这类发送方式纳入垃圾邮件了.虽然在网上查阅相关资料可以通过修改Indy的单元来达到发送成功的目的,可本人不太喜欢这种行为.网上也提供了原生套接字封装的EMAIL发送类,但又不是大公司封装,还是罢了.还有流行Jmail发送组件,本人也尝试查找delphi版本的,找了几个测试代码,没有成功.实在不行了,只能采用最稳妥的方法POST一个PHP网页通过Jmail组件发送到163邮箱.如果大家有条件的,可以采用这种方式.该方式我绝对是最稳定的.

[代码示例]

[Delphi写的客户端Post目标PHP网页]

procedure TForm1.RzButton1Click(Sender: TObject);
var
  strlist_ParamPost : TStringList ;
  class_IdHttp : TIdHTTP ;
begin

  strlist_ParamPost := TStringList.Create() ;
  class_IdHttp := TIdHTTP.Create(nil);
  try
    // 向目标PHP网址POST参数
    strlist_ParamPost.Add('Subject=PHP+Jmail测试邮件') ;
    strlist_ParamPost.Add('1=中国人') ;
    strlist_ParamPost.Add('2=aaaaa') ;
    strlist_ParamPost.Add('3=变态');

    // TidHTTP属性设置
    class_IdHttp.ReadTimeout := 30*1000 ; // 超时设置
    class_IdHttp.Post('http://www.xxxxxxxxxxx.com/sendemail/sendemail.php', strlist_ParamPost) ;
  finally
    FreeAndNil(class_IdHttp);
    strlist_ParamPost.Free() ;
  end;

end;

[目标PHP网页接受来自Delphi写的客户端参数]

<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title></title>
</head>
	<body>
    	<?php
		
			if(count($_POST) != 0)
			{
				$var_PostAllParma = "" ;
				foreach($_POST as $var_Key => $var_Value)
				{
					$var_PostAllParma  .= $var_Value."\r\n" ;
				}
				
				$var_Jmail = new COM('JMail.Message') or die("Can not call Jmail COM") ;
				$var_Jmail->silent  = true ;
				$var_Jmail->charset = "gb2312" ;
				$var_Jmail->from    = "xxxxxxx_tp@163.com" ;
				$var_Jmail->fromName= "xxxxxxx_tp";
				$var_Jmail->AddRecipient("xxxxxx_cd@163.com") ;
				$var_Jmail->Subject = $_POST['Subject'] ;
				$var_Jmail->Body    = $var_PostAllParma ;
				$var_Jmail->MailServerUserName = "xxxxx_tp@163.com" ;
				$var_Jmail->MailServerPassword = "xxxxx" ;
				
				try{
					$var_Ret = $var_Jmail->Send("smtp.163.com") ;
					if($var_Ret)
					echo "Send Success" ;
					else
					echo "Send Faile" ;
				}catch(Exception $e){
					echo $e->GetMessage() ;
				}
			}	
		
		?>
    </body>
</html>

我不是代码教父

关注

0
点赞
踩
5

收藏

觉得还不错? 一键收藏
打赏
6
评论
[delphi]利用TidHTTP控件向目标PHP网页POST参数

最近在做一个功能(delphi),需要向163邮箱发送EMAIL,本想偷懒利用现成的Indy的smtp控件发送,结果发现163邮箱已对这类发送方式纳入垃圾邮件了......
复制链接

扫一扫