| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копировать на FTp [D7, WinXP]
Wahnsinng © (2006-12-24 17:02:00)Здравствуйте, подскажите, каким образом можно скопировать файл на FTP, у которого не известен логин и пароль, но он открыт на копирование и просмотр файлов.
Wahnsinng (2007-01-05 12:48:00) [1]Все отлично работает.
делай через indy раз у тебя не работет.
Venum (2006-12-29 00:03:00) [2]Этот код нерабочий.
Я попытался законектиться на запароленный фтп (разумеется с указанием Логина/Пароля :) но у меня нечего не вышло :(
Wahnsinng (2006-12-24 19:22:00) [3]С вами хорошо только в тюрьму.
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;
| |
