winsock编程！发送不出去数据！ ( 积分: 100 )

帮我看看到底是哪里出了问题，为什么发不出数据！！！
在另一端用nc监听，可是收不到数据！！！！！我真看不出来哪有问题！
ws : TWSAData;
r:integer;
P:array[0..2]of char;
myaddr:sockaddr_in;
begin
WSAStartup(makeword(2,2),ws);
r:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
myaddr.sin_family:=AF_INET;
myaddr.sin_port:=htons(word(5555));
myaddr.sin_addr.S_addr:=inet_addr(pchar('127.0.0.1'));
if connect(r,myaddr,sizeof(sockaddr_in))<>-1 then
begin
p:='am';
send(r,p,2,0)
end;

send(r,@p,2,0);

1。判斷一下每個函數的返回值
2. 跟蹤看一下有沒有執行到 send
3. 是不是被防火牆擋了？

樓上的方法不對。因為 winsock.pas 定義的 buf 是無類型的。不是指針

参考： http://www.delphibbs.com/delphibbs/dispq.asp?lid=3627212

多人接受答案了。