Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Вниз

Копировать на FTp   Найти похожие ветки 

← →
Wahnsinng ©   (2006-12-24 17:02) [0]

Здравствуйте, подскажите, каким образом можно скопировать файл на FTP, у которого не известен логин и пароль, но он открыт на копирование и просмотр файлов.

---

← →
Wahnsinng ©   (2006-12-24 19:22) [1]

С вами хорошо только в тюрьму.

procedure Connect;
begin
InetHandle := InternetOpen(PChar("FTP"), 0, nil, nil, 0);
FtpHandle := InternetConnect(InetHandle, PChar("ftp.name.ru"), 21, nil,
nil, INTERNET_SERVICE_FTP, 0, 255);
if not Assigned(FtpHandle) then
InternetCloseHandle(InetHandle);
end;

procedure Disconnect;
begin
 InternetCloseHandle(InetHandle);
end;

Function SendFile(Scr, Dest:AnsiString):boolean;
понадобиться
begin
     Result:=  FtpPutFile(FtpHandle, PChar(Scr), PChar(Dest),
       FTP_TRANSFER_TYPE_BINARY, 255);
end;

---

← →
Venum ©   (2006-12-29 00:03) [2]

Этот код нерабочий.
Я попытался законектиться на запароленный фтп (разумеется с указанием Логина/Пароля :) но у меня нечего не вышло :(

---

← →
Wahnsinng ©   (2007-01-05 12:48) [3]

Все отлично работает.
делай через indy раз у тебя не работет.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c