用API发邮件卡住了。。。。
//为网络连接作好准备(用winsock1.1以上版本)
err:=WSAStartup($0101,WSAData);
//创建一个客户端套接字(Client Socket,用SOCK_STREAM,即TCP协义)
FSocket := socket(AF_INET, SOCK_STREAM,IPPROTO_IP);
//初始化网络数据
//host是220.181.12.14(smtp.163.com)
SockAddrIn.sin_addr.s_addr:=inet_addr(pchar(host));
SockAddrIn.sin_family := AF_INET;
//port是25
SockAddrIn.sin_port :=htons(port);
//客户端向smtp进行连接(这里一直连接不成功,err=-1)
repeat
err:=connect(FSocket,SockAddrIn, SizeOf(SockAddrIn));
until err=0;
showmessage('连接成功');
Result:=FSocket;
达人救命撒。。。。。。。。。。。。。。。