[Romix]

Всем привет! У меня возникла небольшая проблема... За большое человеческое спасибо и за небольшое баксовое вознграждение (10 баксов) на WMZ помогите исправить проблему...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var hNet, hFTP: HINTERNET; begin hNet:=InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); hFTP:=InternetConnect(hNet, PChar('<b>Ip адрес сервака</b>'), 21, PChar('<b>User</b>'), PChar('<b>ПАРоЛЬ</b>), INTERNET_SERVICE_FTP, 0, 0); FtpSetCurrentDirectory(hFTP, PChar('Домен используйте какой хотите'));   FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 autor'), 0); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 bot'), 0); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 date'), 0);   FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 info'), 0); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 src'), 0); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 vi'), 0); end;

При изпользовании команды FTPCOMMAND несколько раз в конце возникает ошибка... Нужно короче на несколько папок поставить права 777 срочно...

Если вы мне поможете то стучите - ICQ - 452397022 о том куда и как переводить деньги...
Используем тэги