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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> работа с FTP, автоматич.-ки залить файлы на сервак 
:(
    Опции темы
Gorinich
Дата 26.10.2005, 06:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Нужно организовать автоматическую заливку файлов на сервер( по нажатию кнопки Publish), login и password имеются. Подскажите как.
PM MAIL   Вверх
Петрович
Дата 26.10.2005, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Используй либо WinInet API, либо компоненты Indy.


--------------------
Все знать невозможно, но хочется
PM ICQ   Вверх
RA
Дата 26.10.2005, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

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



Либо ICS (и смотри в примерах как они работают с FTP)
PM   Вверх
bartram
Дата 29.10.2005, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

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



Код

program Ftp;

uses
  Windows, WinInet;

var
 hInternet: pointer;
 hConnect: pointer;

begin
  hInternet := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  hConnect := InternetConnect(hInternet, 'ftp.narod.ru', 21, 'Bartram', '*****', 
INTERNET_SERVICE_FTP, 0, 0);
  if hConnect <> nil then
   begin
     FtpPutFile(hConnect, 'c:\readme.txt', 'NewText.txt', FTP_TRANSFER_TYPE_BINARY, 0);
     InternetCloseHandle(hConnect);
   end;
  InternetCloseHandle(hInternet);
end.

Вот, юзай на здоровье smile


--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 

PM MAIL ICQ   Вверх
Gorinich
Дата 4.11.2005, 19:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Большое спасибо, bartram smile
PM MAIL   Вверх
allx
Дата 6.11.2005, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Gorinich
если охота быстро и программа не связана с сетью, то гораздо проще батник сделать. или в программе сделать Winexec с соотв. параметром

в батнике (консоли, winexec):
ftp -s:sendfile.txt ftp.yoursite.com

в sendfile.txt должен быть набор комманд FTP:
open <servername> - соединиться с сервером <servername>
user <username> - зайти как <username>
bin - установить передачу бинарных файлов
get <filename> - получить файл <filename> с сервера
put <filename> - послать файл <filename> на сервер
mget <pattern> - получить файлы шаблона <pattern> с сервера
mput <pattern> - послать файлы шаблона <pattern> на сервер
cd <directory> - перейти в другой каталог
close - отключиться от сервера
hash - установить отметку переданных блоков
prompt - вкл/выкл диалоговый режим
help - список комманд

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

Запрещено:

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

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

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

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

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


 




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


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

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