帮帮忙，遇到过问题，简单端口连接问题。

Question

我写了一个函数
很简单就是要出错。
Socket连接端口的问题。
先来函数吧。Function Connect_Server(ip:string;Port:integer) : Integer;
var
  sin  : sockaddr_in;
begin  sin.sin_family:=AF_INET;
  sin.sin_port:=htons(Port);
  sin.sin_addr.s_addr := inet_addr(Pchar(ip));
  Result := socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);  ShowMessage(IntToStr(Result));
// 显示出来的值是-1, 连接不成功。  Connect(Result,sin,sizeof(sin));end;测试是这样的:Connect_Server('127.0.0.1',21);我本机开了21端口的 TCP    127.0.0.1:21           0.0.0.0:0              LISTENING大家帮我看看哪里没有对头。
我晕死了

Answer 1

晕哟
简单问题没人回答吗？？？我就是找不出原因。
这是怎么回事