FTP, аутентификация, событие onCommand

[spoool]

добрый день всем, вообщем я переписал весь код который был из под коносли Ftp - сервера, тоесть сделал его вместо консольного , оконным...вообщем сталкнулся с проблемой, код запускаеться, тока аунтификация не проходит , помогите люди добрые плиз!
весь код засунуть не удалось, исходник моего кода во втором архиве, вообщем Oncommand:=idFTPServer1CommandXCRC; вылазеет ошибка, и пожайлуста проверьте правильно ли я сделал мне просто работу сдавать в институте.

procedure TForm1.IdFTPServerAfterCommandHandler(ASender: TIdTCPServer;
  AThread: TIdPeerThread);
begin
  with IdFTPServer.CommandHandlers.add do
  begin
   Command:='XCRC';
  OnCommand:=IdFTPServer1CommandXCRC;   <-    вот сдесь ошибка
end;
end;
end.

----------------------------------------------------------------------
вообщем все былобы нормал если не одно но
куда вставить эту команду OnCommand:=IdFTPServer1CommandXCRC; она должа быть вмести вот с этим блоком кода:
-----------------------------------------------------------------------

with IdFTPServer.CommandHandlers.add do
  begin
   Command:='XCRC';
   OnCommand:=IdFTPServer1CommandXCRC;
  end;
 IdFTPServer.Active:=true;
end;

вставляю её в свой код вылазеет ошибка помогите пожайлуста мне.
заранее спс.
Полный исходник консольного ftp в дополнение смори к посту.

[Квэнди]

а ошибка- то какая ?

Думаю что хорошим подспорьем будет пример от Indy
http://www.indyproject.org/DemoDownl..._FTPServer.zip

[spoool]

Квэнди тот пример который ты скинул у меня кокораз есть так вот там вылазеет окно терминала, а я переписал код (консольный) чтобы вместо окна терминала была обычная форма при запуске, так вот в последнеей процедуре
procedure TForm1.IdFTPServerAfterCommandHandl er(ASender: TIdTCPServer;
AThread: TIdPeerThread);
begin
with IdFTPServer.CommandHandlers.add do
begin
Command:='XCRC';
OnCommand:=IdFTPServer1CommandXCRC; <- вот сдесь ошибка
end;
end;
end.
видишь где ошибка oncommand посмотри плиз мой исходник, м.б че не так сделал просто мучает этот вопрос...method pointer and regular procedur название ошибки

[Квэнди]

Ты пытаешься присвоить методу класса регулярную процедуру. Работать так не будет.
Пропиши заголовок процедуры IdFTPServer1CommandXCRC в класс формы, в секцию private например.
т.е. выглядеть должно примерно так:

    procedure IdFTPServerAfterCommandHandler(ASender: TIdTCPServer;
      AThread: TIdPeerThread);
  private
    { Private declarations }
   procedure IdFTPServer1CommandXCRC(ASender: TIdCommand);
.........................
procedure TForm1.FormCreate(Sender: TObject);
begin
IdFTPServer:=tIdFTPServer.create(nil);
 IdFTPServer.DefaultPort:=21;
 IdFTPServer.AllowAnonymousLogin:=false;
 IdFTPServer.EmulateSystem:=ftpsUNIX;
 IdFTPServer.HelpReply.text:='Help is not implemented';
 IdFTPServer.Greeting.NumericCode:=220;
 IdFTPServer.Active:=true;
end;
procedure TForm1.IdFTPServer1CommandXCRC(ASender: TIdCommand);
// note, this is made up, and not defined in any rfc
var
 s: string;
begin
 with TIdFTPServerThread(ASender.Thread) do
  begin
   if Authenticated
   then
    begin
     try
      s:=ProcessPath(CurrentDir, ASender.UnparsedParams);
      s:=TransLatePath(s, TIdFTPServerThread(ASender.Thread).HomeDir);
      ASender.Reply.SetReply(213, CalculateCRC(s));
     except
      ASender.Reply.SetReply(500, 'File Error!');
     end;
    end;
  end;
end;
........
procedure TForm1.IdFTPServerAfterCommandHandler(ASender: TIdTCPServer;
  AThread: TIdPeerThread);
begin
  with IdFTPServer.CommandHandlers.add do
  begin
   Command:='XCRC';
   oncommand:=IdFTPServer1CommandXCRC;
end;
end;
end.

Проверить точно не смогу, так как большая разница в последней версии IdFTPServer-а.

[spoool]

про то что я сказал что у меня есть исходник фтп-сервера который ты скинул, я имел ввиду, что у меня есть иходник тока 9 версии , вот я его и переделываю, вообщем ты скинул мой код который я переделал, в точности, обратно, кроме добавления (privat'a)...
если прописать вот это
{ Private declarations }
procedure IdFTPServer1CommandXCRC(ASender: TIdCommand);
то вылезеет ошипка
unsatisfied forvard or external declaration:'Tform1.idftpserver1com mandXCRC';
все бы работало если найти куда запихнуть эту команду!
oncommand:=IdFTPServer1CommandXCRC;

[Квэнди]

unsatisfied forvard or external declaration:'Tform1.idftpserver1com mandXCRC';

значит в коде ты написал не правильно заголовок процедуры.
Видимо ты написал в самом модуле
procedure IdFTPServerAfterCommandHandler(ASen der: TIdTCPServer;, а надо
procedure TForm1.IdFTPServerAfterCommandHandler(ASen der: TIdTCPServer;
т.е. в private- секции должно быть
procedure IdFTPServerAfterCommandHandler(ASen der: TIdTCPServer;
а в самом модуле, где пишется реализация процедуры,
procedure TForm1.IdFTPServerAfterCommandHandler(ASen der: TIdTCPServer;

[spoool]

По поводу твоего исходника у меня пишит ошибка не найден файл DCU. скинь плиз исходник и клиента и сервера, вообщем что ты говорил не какого толку менял , все переставлял так еще больше ошибок вылазеет.)))

[Квэнди]

У тебя стоит 10-я версия ? если да, то то, что ты пишешь на ней работать не будет. По той ссылке, что я тебе скидывал рабочий пример (не консольный ) FTP Сервера для 10-й версии Indy.

[spoool]

вообщем у меня borland delphi 7 а где можно скачать компоненты просто открываю твой исходник у меня вылазеет сообщение и три кноки ignore cancel ignore all Так вот нажимаю cancel потом запускаю проект пишит dcu file не найден от проекта типа, вот такие пироги...

[Квэнди]

Описывал в блоге
http://kvendi.pp.ru/?p=66