用indy10的idpop3和idmessage写了个邮件检查的程序,但是邮件主题里有中文的时候,主题显示不出来,读到的字节数为0,请各位指点。
代码如下: IdPOP.Host := Pop3ServerName;
IdPOP.Port := Pop3ServerPort;
IdPOP.Username Pop3ServerUser;
IdPOP.Password := Pop3ServerPassword;
try
IdPOP.Connect; FMsgCount := IdPOP.CheckMessages; if FMsgCount>0 then
begin
//for i:=1 to FMsgCount do
begin
IdMessage.Clear;
IdPOP.RetrieveHeader(FmsgCount, IdMessage);
ilong := Length(IdMessage.Subject);
showmessage(Inttostr(ilong));
end;
end;
finally
IdPOP.Disconnect;
end;
代码如下: IdPOP.Host := Pop3ServerName;
IdPOP.Port := Pop3ServerPort;
IdPOP.Username Pop3ServerUser;
IdPOP.Password := Pop3ServerPassword;
try
IdPOP.Connect; FMsgCount := IdPOP.CheckMessages; if FMsgCount>0 then
begin
//for i:=1 to FMsgCount do
begin
IdMessage.Clear;
IdPOP.RetrieveHeader(FmsgCount, IdMessage);
ilong := Length(IdMessage.Subject);
showmessage(Inttostr(ilong));
end;
end;
finally
IdPOP.Disconnect;
end;
解决方案 »
- DevExpress VCL for Delphi 7 dxRibbon的ColorScheme属性无法设置
- delphi DataSource.DataSet.Append时出现一条空记录,如何处理?
- 一个小问题,你一定会的.
- 有关combobox的问题,请高手帮忙!!!!
- 程序移植-----穷人的问题
- 如何动态关键pagecontrol页???
- 服务器无固定的IP,应该如何连接(相关资料也好)?
- 天!我要疯了,有一颗中国心,还有点良知的人,过来签个名
- 在delphi中怎么样使Timage控件显示gif格式的图片?
- 我想要一个极为简单多线程的例子
- 在Image上DrawText任意格式的字???
- 如何截获另一个程序关闭的消息啊?
你可以从svn更新indy10到最新版本 大概是10.5.5吧不用indy的话可以考虑用下synapse的网络库 挺好用的
不行就自己写吧。
另外再问一下indy10怎么更新?
synapse是什么,能给提供点资料么?