用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;
达人救命撒。。。。。。。。。。。。。。。
[解决办法]
连接成功，没问题啊。
[解决办法]
host用IP了？220.181.12.14
有没Ping下看通不通啊？
