帮忙看一下 winsock API 问题

Question

多谢提醒 但这是不小心写错了
源程序是这样的:
function Tform1.socketSend(msg:String):integer;
var
ok:integer;
len:integer;
sBuff:pChar;
begin
len:=Length(msg);
sBuff:=StrAlloc(len+1);
strPcopy(sBuff,msg);
ok:=send(cSocket,sBuff,len,0);
display(sBuff);
StrDispose(sBuff);
if ok=SOCKET_ERROR then
        begin
        Application.MessageBox('data send fail!','socketRead()',MB_OK);
        socketSend:=0;
        exit;
        end;
display(inttostr(ok)+'bytes sent . len='+inttostr(len));
socketSend:=ok;
end;
情况还如上所说 望各大虾再帮忙 呵呵

Answer 1

display只是用来调试的一个自编函数