Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273732 Wed, 31 Dec 2003 22:10:33 +0000 ошибка в IdFTPServer1 https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273732 Цитата Vit @ 31.12.03, 22:59
Цитата _SMall_ @ 31.12.03, 14:01
вот в том -то и дело что все модули добавлены!

Ну нельзя же быть таким беспомощным! А если посмотреть где он описан? У меня заняло это 3 секунды, итак, надо добавить модуль IdFTPList.

Такая ситуация встречается вообще-то весьма часто. На будущее это ищется так:

1) Способ 1

Вначале в коде:

    type
      TForm1 = class(TForm)
        IdFTPServer1: TIdFTPServer;
        procedure IdFTPServer1ListDirectory(ASender: TIdFTPServerThread;
          const APath: String; ADirectoryListing: TIdFTPListItems);
      private
        { Private declarations }
      public
        { Public declarations }
      end;


Нажимая и удерживая клавишу Control кликаешь на слове TIdFTPServer, это переносит тебя к модулю где описан этот класс. В этом модуле ищешь где встречается в любом месте слово TIdFTPListItems и кликаешь опять-таки с нажатым Control на нём - это тебя переносит в модуль, где описан этот идентификатор, его-то и надо прописать в Uses.


2) Способ 2:

Включаешь в Explorer'e, WinCom'e или FAR'e поиск по всему каталогу исходников файла с расширением pas или inc и содержащего строку TIdFTPListItems =

спасибочкм!]]> _SMall_ Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273698 Wed, 31 Dec 2003 19:59:55 +0000 ошибка в IdFTPServer1 https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273698 Цитата _SMall_ @ 31.12.03, 14:01
вот в том -то и дело что все модули добавлены!

Ну нельзя же быть таким беспомощным! А если посмотреть где он описан? У меня заняло это 3 секунды, итак, надо добавить модуль IdFTPList.

Такая ситуация встречается вообще-то весьма часто. На будущее это ищется так:

1) Способ 1

Вначале в коде:

    type
      TForm1 = class(TForm)
        IdFTPServer1: TIdFTPServer;
        procedure IdFTPServer1ListDirectory(ASender: TIdFTPServerThread;
          const APath: String; ADirectoryListing: TIdFTPListItems);
      private
        { Private declarations }
      public
        { Public declarations }
      end;


Нажимая и удерживая клавишу Control кликаешь на слове TIdFTPServer, это переносит тебя к модулю где описан этот класс. В этом модуле ищешь где встречается в любом месте слово TIdFTPListItems и кликаешь опять-таки с нажатым Control на нём - это тебя переносит в модуль, где описан этот идентификатор, его-то и надо прописать в Uses.


2) Способ 2:

Включаешь в Explorer'e, WinCom'e или FAR'e поиск по всему каталогу исходников файла с расширением pas или inc и содержащего строку TIdFTPListItems =]]> Vit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273684 Wed, 31 Dec 2003 19:01:33 +0000 ошибка в IdFTPServer1 https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273684 _SMall_ Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273674 Wed, 31 Dec 2003 17:55:45 +0000 ошибка в IdFTPServer1 https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273674

PS. Красный цвет для модератора, старайтесь его не использовать.]]> Vit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273650 Wed, 31 Dec 2003 16:24:51 +0000 ошибка в IdFTPServer1 https://forum.sources.ru/index.php?showtopic=41932&view=findpost&p=273650 [Error] Unit1.pas(18): Undeclared identifier: 'TIdFTPListItems'
Цитата

procedure TForm1.ftpListDirectory(ASender: TIdFTPServerThread;
const APath: String; ADirectoryListing: TIdFTPListItems);
begin
ADirectoryListing:='d:\user\';
end;
]]> _SMall_ Delphi: Сетевое программирование