Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Indy FTP - выводим список файлов на сервере 
:(
    Опции темы
KAI
Дата 8.2.2004, 06:31 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Сабж + как это сделать. Вроде проверил много способов. Пытаюсь в ListView загрузить список файлов. Соеденение есть, к папке подключились. Вывести файлы - не могу...

И еще одна не понятка...
Memo1.Lines.AddStrings(idFTP1.ListResult); - ничего не выводит... Почему?

подключенные модули:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, StdCtrls, Menus, idFTPList;


Заранее спасибо. Сам я новичок, проблема в том, что не умею искать...
  Вверх
Unregistered
Дата 8.2.2004, 06:32 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Забыл сказать... На форму кинул компонент TidFTP (Indy)
  Вверх
<Spawn>
Дата 8.2.2004, 06:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64



А ты метод Get вызывал?


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Unregistered
Дата 8.2.2004, 07:09 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











можно ли по подробней?
  Вверх
<Spawn>
Дата 8.2.2004, 07:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64



Точнее говоря не Get, а List:

Код
var
 FTPList: TStringList;
begin
 FTPList := TStringList.Create;
 try
   idFTP.List(FTPList);
   //Теперь в FTPList нужный тебе список
   Memo1.Lines.AddStrings(FTPList);
 finally
   FreeAndNil(FTPList);
 end;



--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Unregistered
Дата 8.2.2004, 08:15 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











[Error] Unit1.pas(69): Undeclared identifier: 'List' - вот такая ошибка при:

procedure TForm1.Button1Click(Sender: TObject);
var
FTPList: TStringList;
begin
FTPList := TStringList.Create;
try
idFTP.List(FTPList);
//&#210;&#229;&#239;&#229;&#240;&#252; &#226; FTPList &#237;&#243;&#230;&#237;&#251;&#233; &#242;&#229;&#225;&#229; &#241;&#239;&#232;&#241;&#238;&#234;
Memo1.Lines.AddStrings(FTPList);
finally
FreeAndNil(FTPList);
end;
end;
  Вверх
Unregistered
Дата 8.2.2004, 08:17 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Как быть с файл-листингом, кто-нить знает?
  Вверх
<Spawn>
Дата 8.2.2004, 08:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64



А у тебя как компонент называется? Я для примера указал idFTP, а у тебя в первом примере idFTP1 - попробуй измени


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Unregistered
Дата 8.2.2004, 09:00 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Блин, моя глупейшая ошибка. Спасибо тебе за помощь.

Теперь бы узнать действия ФТП и записывать их в Memo1. Как узнать что делает idFTP в данный момент? Я давал код выше, он не работает... Нужно что-то типа ведения лога:

Connected to: site
USER login
331 Password required for pass.
PASS
230 User login logged in.
SYST
215 UNIX Type: L8
CWD site.ru/html/files
250 CWD command successful.
PWD
257 "/site.ru/html/files" is current directory.
TYPE A
200 Type set to A.
PORT 10,0,0,10,13,64
200 PORT command successful.
LIST
150 Opening ASCII mode data connection for file list.
226-Transfer complete.
226 Quotas off
Connection Closed
  Вверх
Medved
Дата 9.2.2004, 08:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154



Модератор: Один топик - один вопрос!
Тема закрыта.


--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1017 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.