为什么我用API创建的套接字连接不上TServerSocket?

Question

var
ServerAddr:SockAddr_IN;
SockHandle:integer;sockHandle:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);//创建成功
zeromemory(@serveraddr,sizeof(sockaddr_in));
serveraddr.sin_family:=AF_INET;
SerVeraddr.sin_port:=strtoint(edit2.Text);//192.168.0.111
serveraddr.sin_addr.S_addr:=inet_addr(pchar(edit1.text));//5050
connect(sockhandle,Serveraddr,sizeof(sockaddr_in));
WSAGetLastError返回10061;而TClientSocket却可以连接。

Answer 1

tnnd
SerVeraddr.sin_port:=htons(strtoint(edit2.Text));//
就可以了
散分！！！！！！！！！！！！！！！！！