DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: jeff1314
今日帖子: 0
在线用户: 9
导航: 论坛 -> 移动应用开发 斑竹:flyers,iamdream  
作者:
男 ywo (ywo) ★☆☆☆☆ -
盒子活跃会员
2019/1/7 14:05:42
标题:
安卓发送邮件乱码 浏览:1499
加入我的收藏
楼主: 我用的是delphi xe 10.2,在电脑上用以下代码发送邮件正常,主题和正文的中文字都没有乱码,但在安卓上发送邮件,主题中文变成?????,正文正常,没有乱码,不知道哪里有问题,各位高手帮忙看看,谢谢了!

用的是自带的Indy10控件.

procedure TForm1.Button1Click(Sender: TObject);
begin
 
  IdSMTP1.Host := 'smtp.sina.com';
  IdSMTP1.Port := 25;
  IdSMTP1.username := 'xxxx@sina.com'; //发送者用户名
  IdSMTP1.password := 'xxxxxxxxx'; //密码用自己的
  IdSMTP1.AuthType := satDefault;
  IdSMTP1.Connect; //连接

  IdMessage1.Clear;
  idmessage1.CharSet := 'gb2312'; // 这句不能解决乱码的问题
  IdMessage1.Encoding := meDefault;
  IdMessage1.From.address := 'xxxx@sina.com'; // 发件人地址
  IdMessage1.Recipients.EMailAddresses := 'xxxxxxxxxx'; // 收信人地址
  IdMessage1.Subject := '测试'; // 邮件标题
  IdMessage1.Priority := mphigh; //优先级
  IdMessage1.Body.Text := '这是一封测试邮件'; //邮件内容
  try
     IdSMTP1.Send(IdMessage1);
  finally
     IdSMTP1.Disconnect;
  end;
  ShowMessage('发送完毕!');
end;
----------------------------------------------
-
作者:
男 sdhzth (通慧) ▲▲▲▲▲ -
普通会员
2019/1/7 19:29:43
1楼: 这个你要用android的代码发送
----------------------------------------------
-
作者:
男 ywo (ywo) ★☆☆☆☆ -
盒子活跃会员
2019/1/8 9:29:32
2楼: 能给出代码吗?谢谢了
----------------------------------------------
-
作者:
男 luchao900 (哈你宝贝) ▲▲▲▲△ -
普通会员
2019/1/8 14:29:04
3楼: 百度吧,还是用 Intent 发送,很简单的,类似调用call打电话一样
----------------------------------------------
-
作者:
男 ywo (ywo) ★☆☆☆☆ -
盒子活跃会员
2019/1/8 15:33:34
3楼: 问题解决了!只要这里改一下就行,也不用Android的代码,只用Indy的代码.

  IdMessage1.Subject := '';  // 邮件标题
  IdMessage1.ExtraHeaders.Values['Subject'] := EncodeHeader(UTF8Encode('测试'), '',  'Q', 'UTF-8');

结贴了.
----------------------------------------------
-
作者:
男 tulater (tulater) ★☆☆☆☆ -
普通会员
2019/1/8 18:15:56
4楼: EncodeHeader  在哪哦?
----------------------------------------------
http://www.cnblogs.com/tulater/
作者:
男 wg961423 (麦子仲肥) ★☆☆☆☆ -
盒子活跃会员
2019/1/8 18:37:46
5楼: @tulater   uses Idcoderheader;
----------------------------------------------
-
作者:
男 tulater (tulater) ★☆☆☆☆ -
普通会员
2019/1/8 19:04:27
6楼: @wg961423  谢谢你哦
----------------------------------------------
http://www.cnblogs.com/tulater/
作者:
男 vga (vga) ★☆☆☆☆ -
盒子活跃会员
2019/1/9 5:49:52
7楼: 为 ywo 点赞
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行72.02148毫秒 RSS