使用indy的IdTcpServer,IdTcpclient传输文件.doc

使用indy的IdTcpServer,IdTcpclient传输文件.doc使用indy的IdTcpServer,IdTcpclient传输文件
接受部分(有个用户和密码check,你取消就可以)
procedure (AThread: TIdPeerThread);
var
FStream : TFileStream;
FileName : String;
CmdStr : String;
begin
CmdStr :=();
if pareStr(Copy(CmdStr,1,6),'<SEND>')=0 then
begin //1
Delete(CmdStr,1,6);
Cmd := '上传文件';
FileName := CmdStr;
if FileExists(ExtractFilePath()+FileName) then
DeleteFile(ExtractFilePath()+FileName);
try
FStream := (ExtractFilePath()+FileName,FmCreate);
(FStream,2048,true);
Finally
;
;
end;
end //1
else if pareStr(Copy(CmdStr,1,6),'<AGET>')=0 then
begin //2
Delete(CmdStr,1,6);
Cmd := '下载文件';
FileName := CmdStr;
if FileExists(ExtractFilePath()+FileName) then
begin
try
FStream := (ExtractFilePath()+FileName,FmOpenRead);
.')=0 then
begin
('User: '+User);
CmdStr :='';
end
else
begin
('User: '+User+' 非法登陆,已关闭连接');
CmdStr := '';
('Connected......'+DateTimeToStr(NodStr := '';