问：最小的邮件发送程序(<100K)怎么做？能否做出来？(100分)

HN-Huang · 2001-08-18

问：最小的邮件发送程序(<100K)怎么做？能否做出来？ 我只要 uses nmsmtp; 程序就从44k变成330k了。 是不是不可能<100K呢？ 如果能，请告诉我，我该怎么做呢？

jingtao · 2001-08-18

直接用API来写就可以了. 下面是某程序的部分片段,看懂后相信你的问题就OK了. -------------------------------------------------- program XXXX; uses   windows,messages,winsock,sysutils; {$R *.RES} const   CRLF=#13#10; var   thd:array[1..1000] of integer;   tid:array[1..1000] of dword;   faint,hMutex,mcount,speed,newtime,oldtime,num,count,err:integer;   s1:string;   sbuf:array[0..1024] of char;   dest:string;   allstart:boolean; //以下是网络连接的过程 function StartNet(host:string;port:integer):integer; var   wsadata:twsadata;   fsocket:integer;   SockAddrIn:TSockAddrIn;   mct,err:integer; begin   //为网络连接作好准备(用winsock1.1以上版本)   err:=WSAStartup($0101,WSAData);   //创建一个客户端套接字(Client Socket,用SOCK_STREAM，即TCP协义)   FSocket := socket(PF_INET, SOCK_STREAM,IPPROTO_IP);   //初始化网络数据   SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(host));   SockAddrIn.sin_family := PF_INET;   SockAddrIn.sin_port :=htons(port);   //客户端向smtp进行连接   mct:=0;   repeat   err:=connect(FSocket,SockAddrIn, SizeOf(SockAddrIn));   inc(mct);   if mct>0 then break;   until err=0;   Result:=FSocket; end; //以下是网络关闭的过程 procedure StopNet(Fsocket:integer); var   err:integer; begin   //发信结束，关闭客户端套接字(Close Client Socket)   err:=closesocket(FSocket);   //清除网络参数   err:=WSACleanup; end; function PostData(uid,pid:string):integer; const   MaxSize=1024; var   FSocket:integer;   HeadStr,PostStr:string;   DataBuf:array[0..MaxSize*60] of char;   TmpBuf:array[0..MaxSize*16] of char;   SubStr:array[0..MaxSize] of char;   err,cut:integer; begin //  repeat     FSocket:=StartNet('202.104.32.236',80);     //  PostData(FSocket,dest);     //--------------------申请第一步-------------------------------------     PostStr:=//下面是POST数据部分              'FullName=&NewUserName='+uid+'&DomainName=21cn.com&submit.x=33&submit.y=10';     HeadStr:=//下面是HEAD数据部分              'POST /extend/gb/std/NULL/NULL/register.gen HTTP/1.1'+CRLF+              'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, */*'+CRLF+              'Accept-Language: zh-cn'+CRLF+              'Content-Type: application/x-www-form-urlencoded'+CRLF+              'Accept-Encoding: gzip, deflate'+CRLF+              'User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)'+CRLF+              'Host: webmail.21cn.com'+CRLF+   //webmail.21cn.com=202.104.32.236              'Connection: Keep-Alive'+CRLF+              'Referer: http://webmail.21cn.com/extend/gb/UserName.htm'+CRLF+              'Content-Length: '+inttostr(length(PostStr))+CRLF+CRLF;     strcopy(DataBuf,pchar(HeadStr+PostStr+CRLF));     err:=send(FSocket,DataBuf,strlen(DataBuf),MSG_DONTROUTE);     strcopy(DataBuf,pchar(''));     repeat       err:=recv(FSocket,TmpBuf,MaxSize,0);       strcopy(DataBuf,pchar(strpas(DataBuf)+strpas(TmpBuf)));     until err<=0;     strcopy(SubStr,pchar('已经被占用了'));     if AnsiStrPos(DataBuf,SubStr)<>nil then       WriteCaption(hEditEMail,pchar('用户已存在'));     strcopy(SubStr,pchar('用户名太短'));     if AnsiStrPos(DataBuf,SubStr)<>nil then       WriteCaption(hEditEMail,pchar('用户名太短'));     strcopy(SubStr,pchar('非法字符'));     if AnsiStrPos(DataBuf,SubStr)<>nil then       WriteCaption(hEditEMail,pchar('非法字符'));     WriteCaption(handle,pchar(inttostr(strlen(DataBuf))));     StopNet(Fsocket); //    WriteCaption(hEditCount,pchar(inttostr(strlen(DataBuf)))); //  until err>0;   //------------------------------   FSocket:=StartNet('202.104.32.236',80);   //--------------------申请第二步-------------------------------------   PostStr:=//下面是POST数据部分            'Agree=Agree&DomainName=21cn.com&NewUserName='+uid+'&Version=2&'+            'LastName=xxx&CommonName=xxx&Password='+pid+'&ConfirmPassword='+pid+'&PasswordReminderQuestion=xxx&PasswordReminderAnswer=xxx'+            '&PersonalID=&Gender=0&birth_year=1999&birth_month=1&birth_day=1&MailBox=&PasswordReminderAnswer3=&Country=Null&Province=Null&City=';   HeadStr:=//下面是HEAD数据部分            'POST /extend/gb/std/NULL/NULL/AddUser1.gen HTTP/1.1'+CRLF+            'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, */*'+CRLF+            'Accept-Language: zh-cn'+CRLF+            'Content-Type: application/x-www-form-urlencoded'+CRLF+            'Accept-Encoding: gzip, deflate'+CRLF+            'User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)'+CRLF+            'Host: webmail.21cn.com'+CRLF+   //webmail.21cn.com=202.104.32.236            'Connection: Keep-Alive'+CRLF+            'Referer: http://webmail.21cn.com/extend/gb/std/NULL/NULL/register.gen?FullName=&NewUserName='+uid+'&DomainName=21cn.com&submit.x=33&submit.y=10'+CRLF+            'Content-Length: '+inttostr(length(PostStr))+CRLF+CRLF;   strcopy(DataBuf,pchar(HeadStr+PostStr+CRLF));   err:=send(FSocket,DataBuf,strlen(DataBuf),MSG_DONTROUTE);   strcopy(DataBuf,pchar(''));   repeat     err:=recv(FSocket,TmpBuf,MaxSize,0);     strcopy(DataBuf,pchar(strpas(DataBuf)+strpas(TmpBuf)));   until err<=0;   strcopy(SubStr,pchar('你已经成功'));   if AnsiStrPos(DataBuf,SubStr)<>nil then WriteCaption(hEditEMail,pchar('申请成功!'));   //WriteCaption(hEditCount,pchar(inttostr(strlen(DataBuf))));   StopNet(Fsocket); end; //------------------------------------ //以下是线程创建时调用的线程函数 function fun(Parameter: Pointer): Integer; stdcall; var   uid,pid:string; begin     ReadCaption(hEditEmail,sbuf);uid:=strpas(sbuf);     ReadCaption(hEditCount,sbuf);pid:=strpas(sbuf);     PostData(uid,pid);     result:=0; end;

iseek · 2001-08-19

用AHM控件，然后用ASPACK压缩，程序可能很小，100K左右吧。 ——iseek

htw · 2001-08-19

>>

Darking · 2001-08-20

用winapi创建socket连接，端口26，掌握对应的命令（echo） 具体请查delphi6的idsmtp控件，做的好的话<100k(大约50k)。

HN-Huang · 2001-09-15

to jingtao 看了一个月，还是不懂：（，能否详细解释一下：）），注册用户和邮件发送程序技术一样？ to Darking 能否详细介绍一下呢？ to all 谢谢各位了

Lera · 2001-09-16

我手头有一个pcmail,它就只有11K. 不过我没有成功使用过,可能要用它9X上.

HN-Huang · 2001-10-01

Lera 你的pcmail,是什么东西？是控件，源程序，应用程序？

lauhy · 2001-10-03

下载一个smth的控件，这方面的控件很多， 然后用纯win 32 api编程，窗口之类的东西全部自己创建， 动态加入这个控件，可以令源程序很小。100多k完全可能。

Lera · 2001-10-06

PCMAIL是一个用汇编写的邮件程序，现在可能没有什么用途，毕业它的功能有限。 下载：http://asm.yeah.net,即罗云彬的编程世界里面有它的例子， 如找不到，给我个Email,发给你。

栋栋 · 2001-10-08

用 ASP 做个不是很小吗？

wenyue · 2001-11-18

锦涛讲的是如何用API而不用TCUSTOMWINSOCKET来建立和读写SOCKET 而HN-HUANG却在问SMTP的协议? 你如果真有1个月时间看,就去看RFC 821, 如果知道了如何用API处理SOCKET,又知道了SMTP的原理 你完全可以20K以下搞定(不要USES SYSUTILS AND CLASSES) 随便找了个RFC的引用:http://www.freesoft.org/CIE/RFC/821/index.htm

MrMengyi · 2001-12-11

同意楼上 昨天晚上我看来一篇关于用PHP发邮件的文章 在phpuser(破坏派中文用户站)有 关于mime邮件的发送将的很好 可以参考

navychen · 2001-12-11

用java写, 不到10K就搞定

HN-Huang · 2002-02-05

多人接受答案了。

问：最小的邮件发送程序(<100K)怎么做？能否做出来？(100分)

HN-Huang

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

htw

Unregistered / Unconfirmed

Darking

Unregistered / Unconfirmed

HN-Huang

Unregistered / Unconfirmed

Lera

Unregistered / Unconfirmed

HN-Huang

Unregistered / Unconfirmed

lauhy

Unregistered / Unconfirmed

Lera

Unregistered / Unconfirmed

栋栋

Unregistered / Unconfirmed

wenyue

Unregistered / Unconfirmed

MrMengyi

Unregistered / Unconfirmed

navychen

Unregistered / Unconfirmed

HN-Huang

Unregistered / Unconfirmed

Similar threads