external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll" );
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll" );
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll" );
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll" );
external(INT, "FtpPutFile", "FtpPutFileA", "Wininet.dll" );

///// Вписать нужные данные!!!! //////
string fpt="zireael.zzz.com.ua"; // адрес или ip (вписать адрес или ip)
string login="login"; // логин для для подключения к ftp (вписать свой логин)
string password="pass"; // пароль (вписать свой пароль)
//////////

string path_to_file="C:\2.txt"; // путь к файлу
// путь может быть относительным "2.txt", тогда из папки с кибор загрузится
string new_name="qwerty99.txt"; // под каким именем сохранить файл на сервере


int result=FtpLoadFile(fpt, login, password, path_to_file, new_name); // вызов функции
messagebox(result); // если загрузился 1, иначе 0



// функция принимает:
// 1. Адрес сервера или ip.
// 2. Логин для для подключения к ftp.
// 3. Пароль для для подключения к ftp.
// 4. Путь к файлу, который нужно загрузить.
// 5. Имя файла, под которым он будет сохранён на сервере.
// возвращает: 1 - файл загрузился, 0 - не загрузился, или число меньше 0 (код ошибки)

function FtpLoadFile(string server_name, string login, string pass, string path, string name_file)
{
int open, connect, result=0;

open=InternetOpen("", 0, 0, 0, 0); // если открылось вернёт число больше 0
if(open>0)
{
connect=InternetConnect(open, server_name, 21, login, pass, 1, 134217728, 0); // если открылось вернёт число больше 0
if(connect>0)
{
if(FtpSetCurrentDirectory(connect, server_name)>0) // если перешло в папку вернёт 1
{
result=FtpPutFile(connect, path, name_file, 0, 0); // загрузить файл на сервер, если загрузился 1, иначе 0
}
else result=-3;
}
else result=-2;
InternetCloseHandle(connect); // закрыть дескриптор
}
else result=-1;
return result;
}