Всем доброго времени суток, возникла такая проблема, нужно передать текстовый файл который к примеру находится в C:\doc.txt на фтепешник, логин и пароль от фтп я знаю. Кто-нибудь может поделиться примером реализации подобной программы, желательно на delphi, а то изобретать свой велосипед нету времени.

| Сообщение посчитали полезным:

www.delphimaster.ru/cgi-bin/forum.pl?id=1205321086&n=4
www.programmersforum.ru/showthread.php?t=6016

| Сообщение посчитали полезным:

Пример на масме =)

b4ac_10.09.2008_CRACKLAB.rU.tgz - ftp://FTP.rar

-----
RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube

| Сообщение посчитали полезным:

//*Simple Uploader coded by LEE_ROY*//

program out;

{..$apptype console}
uses
windows,
wininet;

var
conn_param,inet_open : hinternet;

procedure upload(filename:pchar; ftpfilename:pchar);
const
port=21;
begin
inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
//Настройки коннекта( фтп, логин, пасс)
conn_param := internetconnect(inet_open,'ftp.site.ru',port,'login','pass',INTERNET_S ERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0 );
internetclosehandle(conn_param);
internetclosehandle(inet_open) ;
END;

begin
//Путь к файлу для загрузки, имя файла на фтп..
upload('C:\file.zip','/pub/file.zip');
if True then
exit;
end.

| Сообщение посчитали полезным:

g-l-u-k вв аттаче пример ftp сервака (где взял уже не помню) ,его конечно еще дорабатывать.
Можешь сам к нему приконнектиться ,через тот же тотал командер и работать с файлами (скачать ,закачать ,удалить).
И еще тут посмотри (там TFTP используется ) -> forum.antichat.ru/thread69514.html

3c52_10.09.2008_CRACKLAB.rU.tgz - ftp://FTP.doc

-----
Что один человек сделал , другой всегда сломать может...

| Сообщение посчитали полезным:

Вау спасибо огромное, буду разбираться.

| Сообщение посчитали полезным:

Это, конечно, хорошо, заняться своим делом, пока на форуме люди ЗА ТЕБЯ пользуются гуглом и просто копируют примеры оттуда сюда, но всё же не стоит в будущем этим увлекаться. А то раз так попался на глаза, второй, третий, а там и бан уже пришёл...

| Сообщение посчитали полезным:

ок, Archer тему закрываю

| Сообщение посчитали полезным: