function TForm1.UploadFileIndy(AFileName: string): Boolean;
var
 i: Integer;
 sent: Boolean;
begin
 Result := False;
 sent := False;
 if FileExists(AFileName) then
 with IdFTP1 do
 begin

   AddLog('>....');      

   try
     Put(AFileName, ExtractFileName(AFileName));
     sent := True;
   except
     on e: exception do
       AddLog('Put exception: ' + e.Message, True);
   end;

   AddLog('....<');
   if not sent then
     AddLog('not sent ', True);
 end;

 Result := sent;
end;

procedure TFtpServerForm.FtpServer1GetProcessing(
   Sender          : TObject;
   Client          : TFtpCtrlSocket;
   var DelayedSend : Boolean);
var
   MyServer : TFtpServer;
   MyClient : TMyClient;
begin                              InfoMemo.Lines.Add('-GetProcessing');
   MyServer := Sender as TFtpServer;
   MyClient := Client as TMyClient;
   { If client request a *.ZZZ file, then start a thread to do some      }
   { processing (here the thread just sleep 10 sec to show other clients }
   { are not blocked.                                                    }
   if UpperCase(ExtractFileExt(MyClient.FileName)) = '.ZZZ' then begin
       MyClient.FWorkerThread := TGetProcessingThread.Create(TRUE);
       MyClient.FWorkerThread.Server          := MyServer;
       MyClient.FWorkerThread.Client          := MyClient;
       MyClient.FWorkerThread.FreeOnTerminate := TRUE;
       MyClient.FWorkerThread.OnTerminate     := WorkerThreadTerminated;
       MyClient.FWorkerThread.Resume;
       { Ask server component to not start sending immediately           }
       { We will ask to start sending from WorkerThreadTerminated event  }
       DelayedSend := TRUE;
   end;
end;

procedure TweServerDataTransferService.FtpServer1Authenticate(Sender: TObject;
 Client: TFtpCtrlSocket; UserName, Password: TFtpString;
 var Authenticated: Boolean);
begin
 Authenticated := (UserName = 'admin') and (PassWord = 'we_pass');

 if Authenticated then
 begin
   AddLog('User authenticated: ' + Client.GetPeerAddr + ', User ''' + UserName);

   //Client.HomeDir := FweFolders.dirServerLogs;
   //ForceDirectories(Client.HomeDir);
 end
 else
   AddLog('User NOT authenticated: ' + Client.GetPeerAddr + ', User ''' + UserName);
end;

procedure TweServerDataTransferService.FtpServer1ClientConnect(Sender: TObject;
 Client: TFtpCtrlSocket; AError: Word);
begin
 AddLog('! ' + Client.GetPeerAddr + ' connected');

 if Error <> 0 then
 begin
   Client.Close;
   AddLog('quick close: FtpServer1ClientConnect');
 end;
end;

procedure TweServerDataTransferService.FtpServer1ClientDisconnect(Sender: TObject;
 Client: TFtpCtrlSocket; AError: Word);
begin
 AddLog('! ' + Client.GetPeerAddr + ' disconnected');
end;

procedure TweServerDataTransferService.FtpServer1RetrDataSent(Sender: TObject;
 Client: TFtpCtrlSocket; Data: TWSocket; AError: Word);
begin
   if Error <> 0 then
       AddLog('! ' + Client.GetPeerAddr
       + ', ['+ Client.UserName + '], ' +
                          ' Data sent. Error #' + IntToStr(Error));

   if Error <> 0 then
   begin
     Client.Close;
     AddLog('quick close: FtpServer1RetrDataSent');
   end;
end;

procedure TweServerDataTransferService.FtpServer1RetrSessionClosed(Sender: TObject;
 Client: TFtpCtrlSocket; Data: TWSocket; AError: Word);
begin
 if (AError = 0) then
 begin
   if Client.AllSent then
     //FilesSent := FilesSent + 1
   else
     Addlog('FtpServer1RetrSessionClosed: ALL_SENT=FALSE '+Client.GetPeerAddr  + ', ['+ Client.UserName + ']');
 end
 else
   AddLog('FtpServer1RetrSessionClosed: '+ ' ['+ Client.UserName + '], ' +'error = ' + IntToStr(AError));

   if AError <> 0 then
   begin
     Client.Close;
     AddLog('quick close: FtpServer1RetrSessionClosed');
   end;
end;

procedure TweServerDataTransferService.FtpServer1RetrSessionConnected(Sender: TObject;
 Client: TFtpCtrlSocket; Data: TWSocket; AError: Word);
begin
   if Error <> 0 then
       AddLog('! ' + Client.GetPeerAddr
       + ', ['+ Client.UserName + '], ' +
                          ' Data session connected. Error #' + IntToStr(Error)
                          + ' AllSent = ' + BoolToStr(Client.AllSent, True));

   if (Error = 0) and Client.AllSent then
     Addlog('All Sent - ok');

   if Error <> 0 then
   begin
     Client.Close;
     AddLog('quick close: FtpServer1RetrSessionConnected; error = ' + IntToStr(Error));
   end;
end;

procedure TweServerDataTransferService.FtpServer1Start(Sender: TObject);
begin
 AddLog('! Server started');
end;

procedure TweServerDataTransferService.FtpServer1Stop(Sender: TObject);
begin
 AddLog('! Ftp Server stopped', False);
 if not FServiceStoppedManually then
 begin
   AddLog('not FServiceStoppedManually, Restart', False);
   Sleep(5000); //
   HardRestart;
   //Restart;
 end;
end;

procedure TweServerDataTransferService.FtpServer1StorSessionClosed(Sender: TObject;
 Client: TFtpCtrlSocket; Data: TWSocket; AError: Word);
begin
 if AError = 0 then
   AddLog('File Received - ok')
 else
   AddLog('FtpServer1StorSessionClosed: error = ' + IntToStr(AError));
end;

procedure TweServerDataTransferService.FtpServer1ValidateGet(Sender: TObject;
 Client: TFtpCtrlSocket; var FilePath: TFtpString; var Allowed: Boolean);
begin
 Allowed := False;

 if (Pos(fnClientOptions2, FilePath) > 0) then
 begin
   AddLog('ClientOptions requested, path = ' + FweFolders.dirServerOptions + fnClientOptions2);
   FilePath := FweFolders.dirServerClientOptions + LowerCase(ExtractFileName(FilePath));
   Allowed := FileExists(FilePath);
 end;
end;

procedure TweServerDataTransferService.ServiceStart(Sender: TService; var Started: Boolean);
begin
               
   FtpServer1.Port := IntToStr(portServerClientsDT);
   FtpServer1.PasvPortRangeStart := portServerClientsDT2;
   FtpServer1.PasvPortRangeSize := portServerClientsDT2Size;
   
   FtpServer1.Start;  

end;

procedure TweServerDataTransferService.FtpServer1ValidateSize(Sender: TObject;
 Client: TFtpCtrlSocket; var FilePath: TFtpString; var Allowed: Boolean);
begin
 AddLog('FtpServer1ValidateSize - enter');
 AddLog('FilePath = ' + FilePath);

 Allowed := False;

 if (Pos(fnClientOptions2, FilePath) > 0) then
 begin
   Allowed := FileExists(FweFolders.dirServerClientOptions + ExtractFileName(FilePath));
 end;
end;

procedure TweServerDataTransferService.FtpServer1ValidatePut(Sender: TObject;
 Client: TFtpCtrlSocket; var FilePath: TFtpString; var Allowed: Boolean);
begin
 Allowed := False;

 if (Pos(prefPackage, FilePath) > 0) then
 begin
   Allowed := True;
   FilePath := FweFolders.dirServerLogs + ExtractFileName(FilePath);
 end;

end;

end.