VPF::работа с FTP - Форум программистов

SamCram

Дата 20.3.2007, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Нужно приконнектиться к ftp серваку. Зайди в папку dir.
И закачать туда файл. Подскажите нужную функцию, plz.

Snowy

Дата 20.3.2007, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

http://forum.vingrad.ru/topic-125835/index.html

Matematik

Дата 20.3.2007, 17:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

1. ICS - http://www.overbyte.be/frame_index.html?re...oducts/ics.html
2. Indy - http://www.indyproject.org/Sockets/Demos/index.aspx
+ поиск по форуму

SamCram

Дата 20.3.2007, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

snowy, прошёл я по ссылке, которую вы мне дали. Но возникло несколько вопросов:
что за переменная ms?
можно ли обойтись без memo? если не трудно, напишите на примере данной функции: вот мне нужно взять файл index.html который лежит в дириктории temp, подконнектиться к серверу, у положить в дирикторию www.

Код


var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='127.0.0.1';
      ftp.Port:=21;
      ftp.Username:='anonymous';
      ftp.Password:='';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/Users/Femida');
      Memo1.Lines.SaveToStream(ms);
      ms.Position:=0;
      ftp.Put(ms,'file1.txt',false);
      ShowMessage('Файл отправлен');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Не удалось отправить :(');
  end

спасибо!

Snowy

Дата 20.3.2007, 19:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Код


var
  ftp: TIdFTP;
  fs:  TFileStream;
begin
  try
    fs:=TFiletream.Create('temp\index.html', fmOpenRead of fmShareDenyNone);
    ftp:=TIdFTP.Create(nil);
    try
      ftp.Host:='127.0.0.1';
      ftp.Port:=21;
      ftp.Username:='anonymous';
      ftp.Password:='';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/www');
      ftp.Put(fs,'index.html',false);
      ShowMessage('Файл отправлен');
    finally
      fs.Free; ftp.Free;
    end;
  except
    ShowMessage('Не удалось отправить :(');
  end

SamCram

Дата 20.3.2007, 20:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

snowy, большое спасибо!

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