VPF::передача папок - Форум программистов

ceziy

Дата 25.12.2006, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 25.12.2006
Где: ..!..

Репутация: нет
Всего: нет

помогите как передавать папки со вложеными папками

Snowy

Дата 25.12.2006, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Ну, например по FTP...

belka

Дата 26.12.2006, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 17.9.2006

Репутация: нет
Всего: 3

используй библиотеку WinInet, чтобы закачать файл по FTP

Код


procedure TForm1.Connect();
begin
InetHandle := InternetOpen(PChar('FTP'), 0, nil, nil, 0);
   //InternetSetStatusCallback(InetHandle, @InetCallback);
   FtpHandle := InternetConnect(InetHandle, PChar('имя_хоста'), 21, PChar('логин'), PChar('пароль'), INTERNET_SERVICE_FTP, 0, 255);
   if not Assigned(FtpHandle) then
    InternetCloseHandle(InetHandle);
end;

function TForm1.Send(Scr, Dest:AnsiString):Boolean;
begin
  Result:=FtpPutFile(FtpHandle, PChar(Scr), PChar(Dest),FTP_TRANSFER_TYPE_BINARY, 255);
end;

procedure TForm1.Disconnect();
begin
  InternetCloseHandle(InetHandle);
end;

// использование ф-ций
Connect;
Send('адресс файла\имя файла','куда надо класть/имя файла');
Dicsonnect;

а по поводу папок наверно надо написать ф-цию, кот "шерстит" указанную папку и запоминает в массив все вложенные файлы и папки )
вот.. а папки тоже надо как-то создавать там на сервере
------
если мой базар не в тему необращайте внимания.. я тока учусь ))

Это сообщение отредактировал(а) belka - 26.12.2006, 09:38

--------------------

Просто я живу на улице Ленина и меня зарубает время от времени...aka technogen007

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »