Текущий архив: 2007.01.21;
Скачать: CL | DM;
Вниз
Копировать на 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.049 c
