社区
网络通信/分布式开发
帖子详情
用indy9的idpop3收信后应该怎样解码?
sunseave
2004-05-08 03:54:36
请高手提供代码参考,谢谢
本人用的是DELPHI5
...全文
50
1
打赏
收藏
微信扫一扫
点击复制链接
分享
举报
写回复
1 条
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
whxhz80
2004-05-13
可以直接这样用..
Caption := Base64Decode(IdMessage.From.Text);
Caption := Base64Decode(IdMessage.Subject.Text);
以下是自己写的,利用Indy9內建De/EncoderMIME解码..
//------------------------------------------------------------------------------
//Base64Decode
//------------------------------------------------------------------------------
function TMainForm.Base64Decode(strInput : string) : string;
var
strDecode : string;
posStart: Integer;
posEnd : Integer;
begin
while pos('=?gb2312?b?',lowercase(strInput)) > 0 do
begin
try
posStart := pos('=?gb2312?b?',lowercase(strInput));
posEnd := pos('?=',lowercase(strInput));
strDecode := strDecode + copy(strInput,1,posStart-1) + IdDeMIME.DecodeString(copy(strInput,posStart+11,posEnd-posStart-11));
strInput := copy(strInput,posEnd+2,length(strInput)-posEnd-1);
finally
Application.ProcessMessages;
end;
end;
strDecode := strDecode + strInput;
result := strDecode;
end;
//------------------------------------------------------------------------------
//Base64Encode
//------------------------------------------------------------------------------
function TMainForm.Base64Encode(strInput : string) : string;
var
strEncode : string;
begin
strEncode := IdEnMIME.EncodeString(strInput);
result := strEncode;
end;
//------------------------------------------------------------------------------
PS.
IdDeMIME是IdDecoderMIME
IdEnMIME是IdEncoderMIME
打赏
举报
回复
赞
相关推荐
delphi7
indy
9
.zip
delphi7
indy
9
接口调
用
解决这2个问题(17个版本):“cound not load ssl library 、 error connecting with ssl”
indy
10
idp
op3
接收邮件标题乱码
indy
10
idp
op3
接收邮件标题乱码 修改IdGlobal.pas [delphi] view plain copy function BytesToString(const AValue: TIdBytes; const AStartIndex: Integer; const...
indy
9
ssl 使
用
的两个动态库
indy
9
ssl 使
用
的两个动态库 对于报错Could not load ssl library 有显著疗效!
Indy
9
控件及使
用
Demo
Indy
9
控件及使
用
Demo
Indy
9
及全部演示代码: ---------------------------------- BasicClientServer CGIMailer Chat DayTimeServer DemoBaseServer DNSResolver Client Echo Finger FTP HTTPServer IdDateTime ...
Indy
9
SSL.zip
确保在Delphi7下能使
用
的libeay32_ssleay32 需要IdHttp控件和IdSSLIOHandlerSocket控件;... IdSSLIOHandl,delphi7
indy
9
使
用
ssl时要
用
openssl动态库,libeay32.dll,ssleay32.dll,已经测试成功,如果有疑问可留言
D7下删除
indy
9
安装
indy
10的方法说明付
indy
10.rar
delphi7下删除
indy
9
控件,安装
indy
10的方法,内付图文说明,
indy
10控件,已经测试,可
用
。
indy
9
控件包
indy
9
控件包,老东西了,但是是经典,估计有有人
用
到的
delphi7的
indy
9
控件安装exe与对应版本动态链接库libeay32 ssleay32
delphi的
indy
9
控件安装exe与对应版本动态链接库libeay32.dll ssleay32.dll,可以
用
idhttp来post https的链接。IdSSLIOHandlerSocket的method选sslvSSLv23
indy
9
openssl版本集合含delphi7调
用
例子
Delphi7+
Indy
9
+SSL HTTP GET 例子,内含
indy
9
专
用
的openssl 四个版本 0
9
6b 0
9
6k 0
9
6m
Indy
9
,
indy
10,delphi
indy
9
、
indy
10
Delphi7
Indy
9
专
用
的OpenSSL DLL动态库文件
Delphi7
Indy
9
只支持旧版的OpenSSL,现在网上的都是新版,旧版DLL文件反而很难找到了。
delphi7-
indy
9
-ssl动态库
与
indy
9
适配,解决第一次调
用
时错的问题。其他版本未具体测试。
Indy
10.5.
9
Indy
10.5.
9
Indy
最新版
Indy
9
控件for Delphi
INDY
的全名是Internet Direct(也叫Winshoes),它是一套开放源代码的Internet控件集,它支持大部分流行的Internet协议,包括TCP、UDP、DNS、ICMP、FINGER、FTP、GOPHER、HTTP、P
OP3
、SMTP、TELNET、WHOIS等,支持...
Delphi7
indy
9
ssl使
用
的两个动态库
delphi7
indy
9
使
用
ssl时要
用
openssl动态库,libeay32.dll,ssleay32.dll
indy
10
indy
9
最新源码及DLL
最新版本
indy
10,
indy
9
,包括示例代码,所需DLL,更新日期2018年5月7日
Indy
9
.0完整安装包
Indy
9
.0的完整安装包,傻瓜式一步步安装。下载按安装说明一步步安装即可。
Indy
9
使
用
方法大全
详细介绍
Indy
9
的使
用
方法,HDML格式。
2022广西三月三风俗的作文十篇.docx
2022广西三月三风俗的作文十篇.docx
发帖
网络通信/分布式开发
加入
微信扫一扫
点击复制链接
1584
社区成员
3.3w+
社区内容
Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2004-05-08 03:54
社区公告
暂无公告