接受部分(有个用户和密码check,你取消就可以)

procedureTTCP_Server。IdTCPServerExecute(AThread:TIdPeerThread);

var

FStream:TFileStream;

FileName论文网:String;

CmdStr:String;

begin

CmdStr:=AThread。Connection。ReadLn();

ifCompareStr(Copy(CmdStr,1,6),)=0then

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),)=0then

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),)=0then

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),)=0then

begin//4

[1][2]下一页

上一篇:使用http协议和winsockapi实现webzip文件下载【442字】
下一篇:信息系统与企业竞争战略评析【1553字】

高职院校公共机房的管理维护【2471字】

高级RFID阅读器應用對处理器的要求【1354字】

风机风量自动报警装置【517字】

项目管理茬软件中的應用【5351字】

随机型存储模型應用研究【1393字】

间谍软件之危害及其防范對策【1382字】

银行行办公信息服务系统【1544字】

ASP.net+sqlserver企业设备管理系统设计与开发

新課改下小學语文洧效阅...

LiMn1-xFexPO4正极材料合成及充放电性能研究

张洁小说《无字》中的女性意识

我国风险投资的发展现状问题及对策分析

安康汉江网讯

互联网教育”变革路径研究进展【7972字】

老年2型糖尿病患者运动疗...

网络语言“XX体”研究

麦秸秆还田和沼液灌溉对...