Компанент < FTPServ > ICS от FPiette

← →
SemFLY © (2002-05-19 16:20) [0]

Установил компоненты ICS и использую из них FTPServ, но возникла проблема, мне надо обработать событие когда клиент подключится к серверу, делаю, как обычно Events клик на нужное событие и дальше оператор в нём какой нужен.
Но появляется ошибка:

unit Test; interface uses FtpSrv; type TForm1 = class(TForm) FTPS: TFtpServer; procedure FTPSClientConnect(Sender: TObject; Client: TFtpCtrlSocket; AError: Word); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FTPSClientConnect(Sender: TObject; Client: TFtpCtrlSocket; AError: Word); begin ShowMessage(‘Ok !’); end; ------------- [Error] Test.pas(30): Undeclared identifier: "TFtpCtrlSocket"

В чём тут дело ?
Вроде же все переменные автоматом уже должны быть продекларированы в модуле компанента.

← →
Serd_hhc © (2002-05-19 16:49) [1]

Добавь в uses FTPSrvC, должно помочь.

← →
SemFLY © (2002-05-19 18:37) [2]

Serd_hhc, отлично, всё работает ! :)))
Если не секрет, как определил, что надо именно FTPSrvC добавить ?

Спасибо !
-------------------
Т
ут по ходу ещё вопрос возник может тоже поможешь, короче в опция компанета FTPServ я выставляю.
Addr: 127.0.0.1 MaxClients: 1 Port:21
и пытаюсь приконнеститься, но мне пишет что Socket Error #10061 Connection Refused обычно у меня выходило тестировать сетевые приложения через внутренний IP,а тут нет !

← →
SemFLY © (2002-05-20 18:51) [3]

← →
Serd_hhc © (2002-05-21 04:23) [4]

Я просто тоже эток компонент ISC использовал, вот и знаю.

А на счёт второго попробуй вместо порта (Port:21) поставить, поставить Port:ftp.
Первый раз я тоже тестил через внутренний IP, и всё работало.

И ещё, при коннекте клиента нужно не выдовать сообщение(это уже дело второе), а дать приконнектившемуся директорию (открыть доступ), спросить пароль. А вот потом можно и сообщение показывать. Наверное из-за этого проблема, т.к. клиент не определяется, а уходит в Лету.

Ок !
Спасибо ! :)))

Компанент < FTPServ > ICS от FPiette Найти похожие ветки