[Romix]

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

Код:

var
hNet, hFTP: HINTERNET;
begin
hNet:=InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
hFTP:=InternetConnect(hNet, PChar('Ip адрес сервака'), 21, PChar('User'), PChar('ПАРоЛЬ), 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 о том куда и как переводить деньги...
Используем тэги