如何做收发电子邮件（用SMTP和POP协议）？

2003-11-04 04:47:48 766 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

UItextView禁用手势同时响应富文本按钮需求： 1、UITextView中加入CheckBox（UIButton），使用富文本方式实现。 2、UITextView在非编辑状态下不可点击（添加UITextView到UITableViewCell，textView需要响应Cell父视图事件），但可以点击CheckBox。 3、UITextView在编辑状态下恢复点击状态。实现：新建一个UITextView的分类，m文件加入以上... 阅读详情

要做个能收发电子邮件（用SMTP和POP协议）的模块？各位大侠能否给个源代码示例？

...全文

利用抖音Cookie充值接口提取支付链接，调起原生微信h5支付宝h5支付最近开始搞一些个人支付通道的开发，方便个人不用和第三方平台签约就能收款，省去很多流程手续的成本。然后翻了一下网上并没有太多现成的技术教程，只能自己研究着搞了。这次要分享的是利用抖音的充值接口，去分析提取出支付链接，分别包含微信原生支付的h5支付链接，和支付宝h5支付链接。微信h5支付：抖币充值,抖音充值,抖音直播充值官方入口 - 抖音支付宝h5支付抖币充值,抖音充值,抖音直播充值官方入口 - 抖音整个开发流程思路是以下几步： 1.抓包分析抖音的充值的整个流程，提取关键的一些阅读详情

zhengwuyu

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

delphi023445 2003-11-07

打赏
举报

等我晚上把这个程序写完了就给你复制一份发过去

zhengwuyu 2003-11-07

打赏
举报

各位大侠能否发一份到我的MAIL重：zhengwuyu@sina.com,
在线求救！！！！先谢了！

delphi023445 2003-11-06

打赏
举报

delphi023445 2003-11-06

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
edt_SMTP: TEdit;
Label2: TLabel;
edt_From: TEdit;
Label3: TLabel;
edt_To: TEdit;
Lable4: TLabel;
edt_Username: TEdit;
Label4: TLabel;
edt_Psw: TEdit;
Label5: TLabel;
edt_Subject: TEdit;
Label6: TLabel;
Memo1: TMemo;
Label7: TLabel;
edt_File: TEdit;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//添加附件
Opendialog1.Filename:='';
Opendialog1.Filter:='所有文件|*.*';
if Opendialog1.Execute then
begin
edt_File.Text:=Opendialog1.FileName;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//
IdMessage1.From.Address:=edt_From.Text;
//
IdMessage1.From.Name:=edt_Username.Text;
//
Idmessage1.Recipients.EMailAddresses:=edt_To.Text;
//
Idmessage1.Subject:=edt_Subject.Text;
//
Idmessage1.Body.Add(Memo1.Text);
//
TidAttachment.Create(Idmessage1.MessageParts,edt_File.Text);
//
Idsmtp1.Host:=edt_SMTP.Text;
//
Idsmtp1.Username:=edt_Username.Text;
//
Idsmtp1.Password:=edt_Psw.Text;
//
Idsmtp1.AuthenticationType:=atLogin;
//
Idsmtp1.Connect();
//
Idsmtp1.Send(Idmessage1);
end;

end.

skyeagle31 2003-11-05

打赏
举报

//receive
try
NMPOP31.Connect;
except
lpText:= '连接POP3服务器失败。请检查通信设置是否正确，稍后再试。'+CHR(13)+
'[状态：连接]'+CHR(13)+CHR(13)+
'WinSock Error: [10060] Connection timed out.';
MessageBox(Application.Handle, PChar(lpText), PChar(frmDataReceive.Caption), MB_OK+MB_ICONERROR);
end;

screen.Cursor := crHourGlass ;

mailcelln := 0 ;
if NMPOP31.MailCount > 0 then
begin
//mailcelln控制符合条件的邮件显示到stringgrid1中.
for getM := 1 to NMPOP31.MailCount do
retrieveEnd(false);
stringgrid1.RowCount := mailcelln + 1 ;
// NMPOP31.GetSummary(getM);

//mailcelln 变量改为控制将stringgrid1中显示的邮件实现接收到本地.
for mailcelln := 1 to stringgrid1.RowCount-1 do
begin
retrieveEnd(true) ;

mailcount := mailcount + NMPOP31.MailMessage.Attachments.Count ;

for m := 0 to NMPOP31.MailMessage.Attachments.Count-1 do
begin //对附件进行处理

zbfilestr := NMPOP31.MailMessage.Attachments.Strings[m] ;
....
end;

end;
mailcelln := mailcelln-1 ;

end
else
ShowMessage('没有可接收的邮件！');

NMPOP31.Disconnect;
screen.Cursor := crDefault ;

showmessage('接收了 '+inttostr(mailcelln)+'个新邮件! 恢复了'+inttostr(mailcount)+'个数据文件！') ;
//发送部分自己考虑吧，差不多的

CDSoftwareWj 2003-11-05

打赏
举报

用Indy呗……这个，看看indy本身代的例程不就可以啦！！！

vagerent 2003-11-04

打赏
举报

想和你共同开发可以吗？一起学习
我的email:ampro@163.com

ShallowShrimp 2003-11-04

打赏
举报

Delphi有例子，在Demo目录下

rick29 2003-11-04

打赏
举报

用Indy呗……这个，看看相关文档吧……

如何做收发电子邮件（用SMTP和POP协议）？

相关推荐