Форум: "Сети";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];

Вниз

Компанент < 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, и всё работало.

---

← →
Serd_hhc   (2002-05-21 04:35) [5]

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

---

← →
SemFLY   (2002-05-24 22:00) [6]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.004 c