Re: FTP Server Exception to FTP Client

Giganews Newsgroups
Subject: Re: FTP Server Exception to FTP Client
Posted by:  Remy Lebeau (TeamB) (gambit…@yahoo.com)
Date: Fri, 12 Sep 2003

"Marco Branco" <a180…@alunos.det.ua.pt> wrote in message
news:1504193D807EE240a180…@alunos.det.ua.pt...
> i need to Throw an exception containing the text message that "You haven't
> permition to go to that folder." to the FTP Client.

    procedure TMyForm.IdFTPServer1ChangeDirectory(ASender:
TIdFTPServerThread; var VDirectory: string);
    begin
        //...
        if user does not have access to VDirectory then
        begin
            raise Exception('You do not have permission to go to that
folder.');
        end;
    end;

Gambit

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system http://www.grisoft.com).
Version: 6.0.515 / Virus Database: 313 - Release Date: 9/1/03

Replies

None

In response to

FTP Server Exception to FTP Client posted by Marco Branco on Fri, 12 Sep 2003