【结贴】x3发送邮件内容可不可以转换

noahark · 发表于 2008-10-24 14:58:46

unicode的编码方式接收到乱码，有没有办法把邮件内容由unicode转换成ascii编码格式？

noahark · 发表于 2008-10-24 15:08:35

能不能

jiahaiming · 发表于 2008-10-24 15:09:16

楼主是怎么做的？

noahark · 发表于 2008-10-24 15:23:12

代码发送邮件；然后根据邮件内容决定流程是流转还是回退或者终止；
目前的问题是如果邮件是unicode的编码方式无法解析内容，因为汉字显示的乱码。我们像把unicode编码方式转换为ascii码，然后根据内容解析。

noahark · 发表于 2008-10-24 15:25:56

我说的邮件内容是根据回复的邮件内容决定流转还是回退；

jiahaiming · 发表于 2008-10-24 15:28:51

楼主，你是说从其他邮件服务器上收到的邮件，解析出来是乱码？

noahark · 发表于 2008-10-24 15:43:32

发邮件是代码发的，回复是用户用邮箱或者手机回复的。代码发送就是引用的邮件库：
procedure TMAILDETAIL.LoadFromStream(AStream: TStream);
var
  I: Integer;
  sl: TStrings;
  mi: TMenuItem;
  lIcon: TIcon;
  lWeb: TWebBrowser;
begin
  pClient.OnResize(nil);
  if AStream = nil then
msgMail.Clear
  else
msgMail.LoadFromStream(AStream);

  if msgMail.Body.Count = 0 then
msgMail.Body.Text := '<html></html>';
  edtFrom.Text := msgMail.From;
  edtSubject.Text := msgMail.Subject;
  edtSendTo.Text := msgMail.SendTo;
  edtCC.Text := msgMail.CC;
  //SMP Add 20080822由于一个邮件体(html)中有Meta项这一项只有在WebBrowser第一次Create之后的第一次Navigate
  //之后调用Designmode的开关一次才能读出来否则就是乱码
  lWeb := TWebBrowser.Create(pClient.Owner);
  TWinControl(lWeb).Parent := pClient;
  lWeb.Align := TAlign.alClient;
  lWeb.OnDocumentComplete := WebBrowserDocumentComplete;
  lWeb.Navigate(EncodeURL(sMainHTML));
  lWeb.BringToFront;
  if Assigned(lWeb.Document) then
  begin
(lWeb.Document as IHTMLDocument2).designMode := 'on';
(lWeb.Document as IHTMLDocument2).designMode := 'off';
  end;
  if Assigned(WebBrowser) then
WebBrowser.Free;
  WebBrowser := lWeb;
  popAttachs.Items.Clear;
  imgAttachs.Clear;
  sl := TStringList.Create;
  lIcon := TIcon.Create;
  try
msgMail.GetAttachFileNames(sl);
btnAttachs.Visible := sl.Count > 0;
for I := 0 to sl.Count - 1 do
begin
   mi := TMenuItem.Create(popAttachs);
   mi.Caption := sl[I];
   GetFileIcon(sl[I], lIcon);
   mi.ImageIndex := imgAttachs.AddIcon(lIcon);
   mi.Tag := MailExtCtrls.TObject2Integer(sl.Objects[I]);
   mi.OnClick := SaveAttach;
   popAttachs.Items.Add(mi);
end;
  finally
lIcon.Free;
sl.Free;
  end;
end;

代码中
msgMail.Body.Text如果是unicode汉字显示的乱码。

noahark · 发表于 2008-10-24 15:55:05

是的，目的是把收到的邮件格式转化为ASCII吗格式的

noahark · 发表于 2008-10-24 16:01:57

可不可以，不能的话回复一下，我们想其它的解决方法。

lixy · 发表于 2008-10-24 16:09:25

http://www.cnblogs.com/kouwell/archive/2005/02/22/107485.html

		自动登录	找回密码
密码			立即注册