求使用indyTcpServer控件的源码。。 高分相赠

Question

想要个服务器的源码，主要功能：支持多用户同时连接和数据包收发。我想应该是挺简单的吧。小弟刚开始使用indy的控件，求些源码参考一下。  我的信箱[email protected] 有连接地址也可以阿。  indy的官方主页上的程序太简单了，就不用了。  请各位朋友不吝赐教   拜谢了！！

Answer 1

去 http://www.2ccc.com/article.asp?articleid=1262 下载demo吧,我刚下载了一个,
功能比较全.

Answer 2

去Indy站点下载Demo就是了
一定要使用最新的Indy9.0.16，AtoZed.com可以下载Delphi自带的问题很多的！http://lysoft.7u7.net

Answer 3

搜到的程序都太简单了，有没有那位朋友有好点的实例阿。
最好是用到IdThreadMgrPool控件的    多谢阿。 必高分酬谢

Answer 4

读写的方法，别的好像没什么了，
//接收
function IdreadEx(conn: TidTCPConnection;
  var s: string): boolean;
var
  outStream:TstringStream;
  iSize:integer;
begin
   result:=true;
   with conn do
   begin
   try
     iSize:=readInteger();
     outStream:=TStringStream.Create('');
     readStream(outStream,iSize,false);
     outStream.Seek(0,0);
     s:=outStream.ReadString(iSize);
     outStream.Free;
   except
     s:='';
     result:=false;
   end;
   end;
end;
//发送
function IdWriteEx(conn: TidTCPConnection;
  s: string): boolean;
var
  inputStream:TstringStream;
begin
   result:=true;
   with conn do
   begin
   try
     inputStream:=TStringStream.Create(s);
     OpenWriteBuffer;
     WriteStream(InputStream,true,true);   //发送数据的同时，发送数据长度。
     CloseWriteBuffer;
     inputStream.Free;
   except
     result:=false;
   end;
   end;
end;

Answer 5

到 这里去看看
www.delphiliving.com  去看看，有很多源码的，好像有你要的！！