HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

ftp в Delphi 7
  #1  
Старый 10.10.2009, 21:57
lamer28
Познающий
Регистрация: 16.04.2009
Сообщений: 83
С нами: 8984227

Репутация: 16
По умолчанию ftp в Delphi 7

сабж: требуется передать файл на фтп сервер..
это дело должно быть на api или с использованием wininet..
дайте линк на статью по этому поводу или код подобный..
 
Ответить с цитированием

  #2  
Старый 10.10.2009, 23:43
xa-xa89
Участник форума
Регистрация: 17.05.2008
Сообщений: 102
С нами: 9466141

Репутация: 74
По умолчанию

http://www.cracklab.ru/pro/faq.php?pg=2302
этого должно быть достаточно что бы разобраться.

Последний раз редактировалось xa-xa89; 10.10.2009 в 23:46..
 
Ответить с цитированием

  #3  
Старый 10.10.2009, 23:49
AquaKlaster
Участник форума
Регистрация: 09.03.2009
Сообщений: 178
С нами: 9038742

Репутация: 523
По умолчанию

юзай компонент IdFTP
 
Ответить с цитированием

  #4  
Старый 10.10.2009, 23:52
xa-xa89
Участник форума
Регистрация: 17.05.2008
Сообщений: 102
С нами: 9466141

Репутация: 74
По умолчанию

2AquaKlaster
Цитата:
это дело должно быть на api или с использованием wininet..
 
Ответить с цитированием

  #5  
Старый 10.10.2009, 23:56
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами: 10097606

Репутация: 3349


По умолчанию

примерная последовательность действий
Код:
 hNet := InternetOpen('FTPCLIENT', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
hFTP := InternetConnect (hNet, pchar(ftp), INTERNET_DEFAULT_FTP_PORT, pchar(login), pchar(pass), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);

FtpPutFile(hFTP, 'c:\file.txt', 'file.txt', FTP_TRANSFER_TYPE_BINARY, 0);
InternetCloseHandle(hFTP);
InternetCloseHandle(hNet );
 
Ответить с цитированием

  #6  
Старый 11.10.2009, 22:20
lamer28
Познающий
Регистрация: 16.04.2009
Сообщений: 83
С нами: 8984227

Репутация: 16
По умолчанию

Цитата:
Сообщение от slesh  
примерная последовательность действий
Код:
 hNet := InternetOpen('FTPCLIENT', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
hFTP := InternetConnect (hNet, pchar(ftp), INTERNET_DEFAULT_FTP_PORT, pchar(login), pchar(pass), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);

FtpPutFile(hFTP, 'c:\file.txt', 'file.txt', FTP_TRANSFER_TYPE_BINARY, 0);
InternetCloseHandle(hFTP);
InternetCloseHandle(hNet );
спс) я уже именно так и сделал
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Литература Delphi Sams С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 2 19.03.2010 19:46
Delphi for FTP Stil Free С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 1 15.02.2009 12:04
FTP сервер на Delphi Ch3ck С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 1 15.12.2006 20:04



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.