接受部分(有个用户和密码check,你取消就可以)
procedureTTCP_Server。IdTCPServerExecute(AThread:TIdPeerThread);
var
FStream:TFileStream;
CmdStr:String;
begin
CmdStr:=AThread。Connection。ReadLn();
ifCompareStr(Copy(CmdStr,1,6),
begin//1
Delete(CmdStr,1,6);
Cmd:=上传文件;
FileName:=CmdStr;
ifFileExists(ExtractFilePath(Application。ExeName)+FileName)then
DeleteFile(ExtractFilePath(Application。ExeName)+FileName);
try
FStream:=TFileStream。Create(ExtractFilePath(Application。ExeName)+FileName,FmCreate);
AThread。Connection。ReadStream(FStream,2048,true);
Finally
FStream。Free;
AThread。Connection。Disconnect;
end;
end//1
elseifCompareStr(Copy(CmdStr,1,6),
begin//2
Delete(CmdStr,1,6);
Cmd:=下载文件;
FileName:=CmdStr;
ifFileExists(ExtractFilePath(Application。ExeName)+FileName)then
begin
try
FStream:=TFileStream。Create(ExtractFilePath(Application。ExeName)+FileName,FmOpenRead);
AThread。Connection。WriteStream(FStream,True,False);
Finally
FStream。Free;
AThread。Connection。Disconnect;
end;
end
else
begin
AThread。Connection。WriteLn(Failed);
AThread。Connection。Disconnect;
end;
end//2
elseifCompareStr(Copy(CmdStr,1,6),
begin//3
Delete(CmdStr,1,6);
User:=UpperCase(Trim(DecryptString(CmdStr,20504)));//CmdStr;
ifCompareStr(User,XDM)=0then
begin
Memo1。Lines。Add(User:+User);
CmdStr:=;
end
else
begin
Memo1。Lines。Add(User:+User+非法登陆,已关闭连接);
CmdStr:=;
AThread。Connection。WriteLn(
AThread。Connection。Disconnect;
end;
end//3
elseifCompareStr(Copy(CmdStr,1,6),
begin//4
[1][2]下一页