Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.10.2010, 07:50   #1
uzumi
Новичок
Джуниор
 
Регистрация: 16.10.2010
Сообщений: 1
По умолчанию Delphi отправка данных

Есть три поля для ввода данных. Нужно, чтобы введенная в эти поля информация отправлялась на сервер X, в текстовый файл Y. Логин и пароль от FTP имеются. Как все это описать, никто не подскажет?
uzumi вне форума Ответить с цитированием
Старый 16.10.2010, 12:30   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Я знаю что среди компонент INDI есть работнички с FTP. Попробуй их
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.10.2010, 12:36   #3
xDyPx
Форумчанин
 
Аватар для xDyPx
 
Регистрация: 21.01.2009
Сообщений: 148
По умолчанию

Лично я так и не разобрался, как на сервере изменить текстовый файл. Поэтому я этот файл качаю с сервера на комп пользователя, изменяю и обратно закачиваю на сервер, заменяя тот, который там лежит. Потребуется стандартный компонент IdFTP. Вот код:
Код:
var 
  Fin:textfile;
  stream:tmemorystream;
begin

stream:=tmemorystream.create;
idFTP1.Host:='';   //FTP-сервер
idFTP1.Port:=;     //порт ФТП сервера
idFTP1.Username:='';  //юзер
idFTP1.Password:=''; //пасс
IdFTP1.Passive:=true;
idFTP1.Connect;
idFTP1.get('papka/1.txt', stream); //путь к файлу
stream.SaveToFile('c://1.txt'); //куда сохранить этот файл
stream.Free;
//добавляем запись в файл
   assignfile(Fin,'1.txt'); // открываем загруженный файл
   append(fin);//открываем файл для записи в конец
   write(fin,edit1.text); write(fin, ' '); //текст с первого поля ввода
   write(fin, edit2.text); write(fin, ' '); //текст с второго поля ввода
   writeln(fin, edit3.text); //текст с третьего поля ввода
   closefile(fin);
   idFTP1.Put('c://1.txt', 'papka/1.txt'); //загружаем обратно на сервер
   DeleteFile('c://1.txt'); // удаляем файл с компа
   idFTP1.DisConnect; //конец
МОЙ САЙТ
Компьютер позволяет решать все те проблемы, которые до появления компьютера не существовали.
xDyPx вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка данных на ICQ AnToHa-KiLL Работа с сетью в Delphi 5 25.01.2024 14:05
Подключение к сайту, ввод данных, отправка данных. Hichigo Общие вопросы C/C++ 0 20.07.2010 20:24
Отправка данных на обработчик! }{oт@бь)ч PHP 3 13.01.2010 22:57
Отправка данных на сервер. iGlass Работа с сетью в Delphi 2 10.09.2009 17:17
Отправка данных из Delphi в Excel по условию GhostBZ БД в Delphi 4 28.08.2009 10:41