ClientSocket发送数据 发送第二次就报错(50)

终于把重连的问题弄好了 发送数据又出现问题了 procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); begin if clientsocket1.Socket.Connected then begin clientsocket1.Socket.SendStream(AData); clientsocket1.FreeOnRelease; i:=i+1; end; StatusBar1.Panels[1].Text:=inttostr(i); end; 我是在IdUDPServer里面将接受到的数据通过Clientsocket转发的 请各位大虾们看看

流初始化了吗？ 是不是释放掉了？

to zkktom没有啊 clientsocket是把收到的数据转发给目的地 不做任何的处理的

看了你之前的问题,你还是要多了解一下 Socket 组件, 最好多看看别人写的例子.

to manjel有没有相关的例子 或者链接 帮忙贴一个~！

if clientsocket1.socket.connected then try AData.Postition:=0; clientsocket1.Socket.SendStream(AData); inc(i); except ClientSocket1.Socket.Close; end;