用idftpserver 做了个简单ftp服务  想在接收文件完毕后 showmessage一下,  请问应该在哪写 怎么写

解决方案 »

  1.   

    你是想在客户端,还是在服务端?
    如果是客户端,那么必须是从服务器返回接收完成标记,然后才可以。Object:IdTcpServer1:TIdTcpServer
     CommandHandlers=<
     item
       Command='execute'
       ....
     end;
    procedure TFormServer.IdTcpServer1TIdCommandHandler1Command(ASender:TIdCommand);  //服务器
    begin
     ASender.Thread.Connection.Writeln('True');
    end;procedure TFormClient.BtnExecuteClick(Sender:TObject); //客户端
    begin
     IdTcpClient1.WriteLn('execute');
     ShowMessage(IdTcpClient1.ReadLn);
    end;