再次高分求教：帮忙看一下 winsock API 的问题

Question

少等～高人马上就来～～～～～～～～～～～

Answer 1

这个函数只是想把send()函数封装起来
但是实际上工作不了 
其他的代码与这个关系不大....也贴不下这么多
在调用之前socket已经准备完毕
因为在此前后另外一个函数
function Tform1.socketRead(sec:integer):integer;
var
ws:TFDSET;
rs:TFDSET;
timeout:timeval;
ok:integer;
begin
ok:=0;
FD_ZERO(ws);
FD_ZERO(rs);
FD_SET(cSocket,rs);
timeout.tv_sec:=sec;
timeout.tv_usec:=0;
select(cSocket+1,@rs,@ws,Nil,@timeout);
if FD_ISSET(cSocket,rs) then
        begin
        ok:=recv(cSocket,pBuff,1024,0);
        if ok=SOCKET_ERROR then
                begin
                Application.MessageBox('data reiceve fail!','socketRead()',MB_OK);
                socketRead:=0;
                exit;
                end;
        display('recv .');
        end;
socketRead:=ok;
end;
就工作得很好
所以才非常奇怪

Answer 2

我已经找到问题所在了
这个问题竟然没人回答
呵呵
一共三帖300分呢
就算白送大家吧
大家平分