Question

连接是出现socket error 10053错误，serversocket提示出现没有建立好socket 麻烦各位了谢谢了！

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
c:integer;
a:tmemorystream;
b:tstringlist;
i:integer;
t:tlistitem;
s,s2,s3:string;
begin
a:=tmemorystream.Create;
b:=tstringlist.Create;
c:=socket.ReceiveLength;
serversocket1.Socket.Connections[0].ReceiveBuf(a,c);
b.LoadFromStream(a);
listbox1.Items.Assign(b); //保存进程信息到LISTBOX中

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
count:integer;
str:string;
a:array[0..99] of char;
b:string;
stream1:tmemorystream;
begin
// nmudp1.ReadBuffer(a,numberbytes); //获取控制端发送过来的控制指令
str:=trim(socket.ReceiveText);

if str='refresh' then //如果时刷新进程信息指令
begin
EnumerateProcess;
try
stream1:=tmemorystream.Create;
stream1.LoadFromFile('c:\result.txt'); //读取C盘下的进程信息
//nmudp1.SendStream(stream1); //发送进程信息给控制端

clientsocket1.Socket.SendStream(stream1);
finally
stream1.free;
// deletefile('c:\result.txt');
end;
end;

Answer 1

1、可能软件的其它地方关闭了socket；
2、可能对端已关闭了连接。
3、socket被其他线程关闭你会收到10053，可能你内存访问越界。
4、检查下你的逻辑错误，别访问非法内存，写网络程序指针多做判断释放要安全释放.
5、还有一个问题，创建无法连接到ServerSocket的Socket会让程序死掉，这个你注意了么。
再好好看看哦