用API发邮件卡住了。。。。 ( 积分: 50 )

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

米人救命。。。。。。。。。