|
使用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),<SEND>)=0 then
begin //1
Delete(CmdStr,1,6);
Cmd := 上传文件;
FileName := CmdStr;
if FileExists(ExtractFilePath(Application.ExeName)+FileName) then
DeleteFile(ExtractFilePath(Application.ExeName)+FileName);
try
FStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+FileName,FmCreate);
|
|
|
|
|
教育论文中心