Копировать на 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]

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

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

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