ошибка в IdFTPServer1 , OnListDirectory

[_SMall_]

IdFTPServer1 на OnListDirectory ругается
[Error] Unit1.pas(18): Undeclared identifier: 'TIdFTPListItems'

Цитата

procedure TForm1.ftpListDirectory(ASender: TIdFTPServerThread;
const APath: String; ADirectoryListing: TIdFTPListItems);
begin
ADirectoryListing:='d:\user\';
end;

Сообщение отредактировано: _SMall_ - 31.12.03, 16:25

[Vit]

Ну дык добавь в uses соответствующий модуль. Какая ж это ошибка Indy? это твоя ошибка - в твоём модуле...


PS. Красный цвет для модератора, старайтесь его не использовать.

[_SMall_]

вот в том -то и дело что все модули добавлены!

[Vit]

Цитата _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_]

Цитата 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 =

спасибочкм!