Отправить файлы на сервер Narod.ru

[GAGARIN-NEW]

Доброго времени суток !
У меня такой вопрос : Как отправить файлы на сервер Narod.ru ?
Тоесть у меня есть (будет) свой "Сайт" допустим my.narod.ru
Сервер разрешает использовать фтп для передачи файлов(с сервера/на сервер)

Мне необходимо организовать некий "Файлообменник" с моими друзьями
+ для обучения написать его самому ( Задача использования файлообменника не главная, главное написать самому чт ото подобное).

С помощью каково компонента я смогу отправить 1 файл(размером до 10-12 мб) на сервер ?
Или несколько файлов(встречный вопрос как проверить отправился ли каждый файл) на сервер.

Пользовался поиском. Ответа не нашол. Если на форуме есть такая тема с логическим завершением прошу привести ссылку

Всем спасибо.

[zetrix]

Надеюсь объяснять какого типа и что обозначают переменные FTPServer, FTPlogin и FTPpass не надо

// ФТП ==>>>> LOCAL
procedure loadfromFTP (ftpfilename,filename:string);
var
conn_param,inet_open : hinternet;
begin
inet_open  := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
conn_param := internetconnect(inet_open,PChar(FTPServer),21,PChar(FTPlogin),PChar(FTPpass),INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
FtpGetFile(conn_param,PChar(ftpfilename),PChar(filename),true,0,0,0);
internetclosehandle(conn_param);
internetclosehandle(inet_open);
end;

// LOCAL ==>>>> ФТП
procedure savetoFTP (filename,ftpfilename:string);
var
conn_param,inet_open : hinternet;
begin
inet_open  := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
conn_param := internetconnect(inet_open,PChar(FTPServer),21,PChar(FTPlogin),PChar(FTPpass),INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
ftpputfile(conn_param,PChar(filename),PChar(ftpfilename),FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(conn_param);
internetclosehandle(inet_open);
end;

В uses добавь wininet.

[GAGARIN-NEW]

Не надо, Спасибо!

[zetrix]

В процедуре savetoFTP была ошибка, исправил.

[Makarov]

Спасибо за примеры. Почти во всем разобрался - кроме одного. Что означает 'iexplore'?

[Квэнди]

internet explorer

[Makarov]

А как будет выглядеть этот параметр для Firefox или Opera. И интересно как это код будет работать если например пользователь использует IE. И как узнать какой браузер использует пользователь?

[B_N]

Makarov, этот параметр широко известен под именем "user agent", для файрфокса выглядит скажем так: "Mozilla/5.001 (windows; U; NT4.0; en-us) Gecko/25250101"
http://www.mozilla.org/build/revised...t-strings.html
Стандарт HTTP особых ограничений на это поле не накладывает и используется оно, как правило, для определения (весьма ненадёжного) программы-клиента на стороне сервера. С тем, какой браузер использует пользователь, это вообще никак, особенно в данном случае, не связано.