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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка файла из ФТП-сервера (TIdFTP), Загрузка файла из ФТП-сервера (TIdFTP)  
:(
    Опции темы
Pcrepair
Дата 5.2.2014, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 16.1.2011

Репутация: нет
Всего: нет
Добрый день. Есть стандартный код загрузки файла из ФТП-сервера на HDD с помощью
Ftp.Get('access_log','d:\access_log',True);
Все работает, но вообщето нужно загрузить файл не на жесткий диск а в TStringList или Memo (для наглядности).
Содержимое файла потом будем парсить. Конечно можно записать файл на ЖД, потом загрузить в список и далее с ним работать.
Вопрос: нет ли способа сразу загрузить файл в переменную? что то в интернете ничего не нашел, только Ftp.Get
Также можно покритиковать выбор AfterClientLogin для загрузки файла (в интернетуме почемуто по другому)
Код

procedure TForm1.Button1Click(Sender: TObject);
begin  (*подключение к серверу*)
  if Ftp.Connected then
  begin
    Ftp.Disconnect;
    Label1.Caption:='Disconnected';
  end
  else
  begin
    Ftp.Host:=Edit1.Text;             (*передача адреса*)
    Ftp.Username:=Edit2.Text;         (*передача логина*)
    Ftp.Password:=Edit3.Text;         (*передача пароля*)
    Ftp.Port:=21;
    Ftp.Passive:=True;
    Ftp.ConnectTimeout:=2000;         (*время ожидания до самоотключения?*)
    //Ftp.TransferType:=ftASCII;      (*ftASCII по умол? пока не ясно для чего но и без работает*)
    Ftp.TransferType:=ftBinary;       (*тип загрузки, можно удалить*)
    Ftp.Connect;
    AssErt(Ftp.Connected);            (*в теории это проврка выполнения действия, обработка исключения*)
    if Ftp.Connected then Label1.Caption:='Connected to SERVER';
  end;

end;

procedure TForm1.FtpAfterClientLogin(Sender: TObject);
begin                         (*действия после подключения к серверу*)
  Ftp.ChangeDir(Edit4.Text);  (*назначить путь к каталогу в задании*)
  DisplayFtp;                 (*отобразить в ЛистБокс результат работы, только для контроля*)
  Ftp.Get('access_log','d:\access_log',True);  (*загрузить файл из сервера в указанное место на ЖД и перезаписать, вообще в
  СПИСОК нужно грузить и сразу обрабатывать и в БД*)
end;

procedure TForm1.DisplayFTP;
begin                                      (*Показать содержимое указанной папки*)
  ListBox1.Items.Clear;                    (*очистка ЛистБокс от прежних значений*)
  Ftp.List(ListBox1.Items, '', false);     (*метод List получает список папок и файлов в виде строкового представления*)
end;



--------------------
Сборник рабочего кода Процедур и Функций DelPhi     http://validcoderepo.narod.ru/
PM MAIL WWW   Вверх
Агрох
Дата 6.2.2014, 09:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 6.4.2013
Где: Москва

Репутация: нет
Всего: 6
В инди у компонента TIdFTP (думаю это аналог того, что вы использовали) при вызове Get есть возможность выбрать приёмник, либо указываете переменную типа TStream либо путь к файлу на диске.

p/s не обратил внимание что и так TIdFTP использован.

Это сообщение отредактировал(а) Агрох - 6.2.2014, 11:47
--------------------
Putin here, Putin there, Putin almost everywhere!
PM MAIL   Вверх
Pcrepair
Дата 6.2.2014, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 16.1.2011

Репутация: нет
Всего: нет
Код

Ftp.Get('access_log',mStream,True);
  mStream.Position:=0;
  Memo1.Lines.LoadFromStream(mStream);



а что по второму вопросу?
--------------------
Сборник рабочего кода Процедур и Функций DelPhi     http://validcoderepo.narod.ru/
PM MAIL WWW   Вверх
Akella
Дата 14.2.2014, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329
а где второй вопрос?
да и по правилам форума нельзя задавать 2 вопроса в одной теме
PM MAIL   Вверх
Kallipsa
  Дата 14.2.2014, 21:37 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 14.2.2014

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

Модератор: Сообщение скрыто.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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