Главная страница
    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.02 c
1-13622
c0pYc@t
2002-07-25 09:37
2002.08.05
как поменять иконку программы в run time


14-13802
Baz
2002-07-11 12:52
2002.08.05
NEWSGROUPS, USENET, NNTP etc


1-13591
Crypto
2002-07-23 20:19
2002.08.05
как обойти ограничение на объем TMemo?


6-13749
SevaPetrov
2002-05-23 22:00
2002.08.05
Программное закрыти консольного приложения


4-13866
Леонид
2002-05-02 20:44
2002.08.05
перехват сообщения WM_SPOOLERSTATUS





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский