我曾用ServerSocket 读端口数据,因为不支持ReadLn,所以请教IdSocksServer 编程怎么实现?
原来的语句是:
Procedure TForm_Main.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);
Var
TempString:String;
Begin
TempString := Socket.ReceiveText;
End;最好把开始的参数设置语句也写上
以及程序退出时,如何关闭链接,释放资源
原来的语句是:
Procedure TForm_Main.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);
Var
TempString:String;
Begin
TempString := Socket.ReceiveText;
End;最好把开始的参数设置语句也写上
以及程序退出时,如何关闭链接,释放资源
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货