Indy 9 Vs Indy 10

[Den7656]

Приветствую Вас, перевожу скачанный пример FTP сервера с Indy 9 на Indy 10, некоторые процедуры переписал, возникла проблема - не знаю как переписать код, вернее чем заменить TIdCommand.

В свойствах IDFtpServer нет IdFTPServer1CommandXCRC.

Подскажите как переписать процедуру:

procedure TFTPServer.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 IdFTPServer1CommandXCRC(ASender: TIdCommand);
[Error] FTPServer.pas(41): Undeclared identifier: 'TIdCommand'
Спасибо за внимание к посту.

[Den7656]

Вопрос еще актуален.

[Пепел Феникса]

может что в uses забыли.

а вообще советую взять демку с десятой версии.

[Den7656]

Лан, качнул их. В принципе там хватает всего, немного только проапгрейдить сорсы - и будет то что надо..
Единственное что там не описано получение хэша файла, жаль.
А в остальном пример классный.

[Человек_Борща]

ТС, банально швырните компонент FTPServer на форму, в событиях даблкликните по нужному событию.

и увидите, что же у вас не так...

Была такая тема, когда с делфи 7(инди 9) переползал на 2010(инди 10), и в TidHTTP.OnWork отличался тем, что callback переменнын имели тип не Integer а Int64, Ох и поломал я голову тогда....

[Den7656]

Была аналогичная проблема, тоже поломал тогда голову.... Но у компонента IdFTPserver в 10 индюшке вообще нет такого события .
Вот я и подумал что оно как-то по-другому реализуется на десятке.