Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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.56 MB
Время: 0.025 c
14-13822
JohnnyJ
2002-07-09 23:37
2002.08.05
Утомленный солнцем


14-13765
AL2002
2002-07-08 19:17
2002.08.05
Можно ли защитить свою прогу?


4-13852
roadstar
2002-05-29 14:24
2002.08.05
Как програмно открыть папку


1-13710
Toma2
2002-07-20 14:27
2002.08.05
Округление


1-13610
иван
2002-07-24 09:12
2002.08.05
Реестр





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский