19.03.2008, 18:16
|
Начинающий
|
|
Регистрация: 10.02.2008
Сообщения: 136
Версия Delphi: XE2
Репутация: 41
|
|
Реальный способ заработать!!!
Всем привет! У меня возникла небольшая проблема... За большое человеческое спасибо и за небольшое баксовое вознграждение (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 о том куда и как переводить деньги...
Используем тэги
|