使用indy的IdTcpServer,IdTcpclient传输文件

使用indy的IdTcpServer,IdTcpclient传输文件

接受部分（有个用户和密码check，你取消就可以）

procedure TTCP_Server.IdTCPServerExecute(AThread: TIdPeerThread);

var

FStream : TFileStream;

FileName : String;

CmdStr : String;

begin

CmdStr :=AThread.Connection.ReadLn();

if CompareStr(Copy(CmdStr,1,

6),'