传输文件怎么传输(用什么传输文件)

中国论文网为大家解读本文的相关内容：

接受部分（有个用户和密码check，你取消就可以）
procedure erverExecute(AThread: TIdPeerThread);
var
　FStream　　: TFileStream;
　FileName　 : String;
　CmdStr　　 : String;
begin
　 CmdStr :=();
　 if CompareStr(Copy(CmdStr,1,6),‘SEND‘)=0 then
　　　begin　//1
　　Delete(CmdStr,1,6);
　　Cmd := ‘上传文件‘;
　　FileName := CmdStr;
　　if FileExists(ExtractFilePath(e)+FileName) then
　　DeleteFile(ExtractFilePath(e)+FileName);
　　try
　　 FStream := (ExtractFilePath(e)+FileName,FmCreate);
　　 ream(FStream,2048,true);
　　Finally
　　 ;
　　 nect;
　　end;
　　　end　 //1
　 else if CompareStr(Copy(CmdStr,1,6),‘AGET‘)=0 then
　　　begin　//2
　　Delete(CmdStr,1,6);
　　Cmd := ‘下载文件‘;
　　FileName := CmdStr;
　　if FileExists(ExtractFilePath(e)+FileName) then
　　begin
　　 try
　　　 FStream := (ExtractFilePath(e)+FileName,FmOpenRead);
　　　 tream(FStream,True,False);
　　 Finally
　　　 ;
　　　 nect;
　　 end;
　　end
　　else
　　begin
　　 n(‘Failed‘);
　　 nect;
　　end;
　　　end //2
　 else if CompareStr(Copy(CmdStr,1,6),‘USER‘)=0 then
　　　begin　//3
　　Delete(CmdStr,1,6);
　　User := UpperCase(Trim(DecryptString(CmdStr,20504))); //CmdStr;
　　if CompareStr(User,‘XDM‘)=0 then
　　begin
　　 (‘User:　‘+User);
　　 CmdStr :=‘‘;
　　end
　　else
　　begin
　　 (‘User:　‘+User+‘　非法登陆,已关闭连接‘);
　　 CmdStr := ‘‘;
　　 n(‘Failed‘);
　　 nect;
　　end;
　　　end　 //3
　 else if CompareStr(Copy(CmdStr,1,6),‘PASS‘)=0 then
　　　begin　//4

　　Delete(CmdStr,1,6);
　　Password := DecryptString(CmdStr,20504); //CmdStr;
　　if CompareStr(Password,‘123abc‘)=0 then
　　begin
　　 (‘Login..........Accepted‘);
　　 (‘Connected......‘+DateTimeToStr(Now));
　　 CmdStr := ‘‘;
　　 n(‘Accepted‘);
　　end
　　else
　　begin
　　 (‘Password Wrong...Login Failure‘);
　　 n(‘Failed‘);
　　 CmdStr :=‘‘;
　　 nect;
　　end;
　　　end;　 //4
end;

主要发送部分
procedure dClick(Sender: TObject);
var
　FStream : TFileStream;
begin
　if ted then begin
　　 n(‘SEND‘+ExtractFileName(FileName));
　　 if FileName = ‘‘ then
　　MessageBox(Handle,‘没有选择文件‘,‘Error‘,MB_OK)
　　 else begin
　　try
　　FStream := (FileName,FmOpenRead);
　　on := 0;
　　(0,0);
　　tream(FStream,true,false);
　　Finally
　　;
　　nect;
　　end;
　　(‘Transferred OK‘);
　　　end;
　end
　else
　　begin
　　　MessageBox(Handle,‘没有连接服务器‘,‘Error‘,MB_Ok);
　　end;
end;

　　中国论文网(www.lunwen.net.cn)免费学术期刊论文发表,目录,论文查重入口,本科毕业论文怎么写,职称论文范文,论文摘要,论文文献资料,毕业论文格式,论文检测降重服务。