Дай те пожайлуйста пример работы по FTP.
Вообщем я уже "разобрался" и SDk под рукой, но все же с примером было бы намного быстрее. Время страшно поджемает.
Если есть, киньте source!

Есть пример фтп сервера пойдет? Токо еще одни компонентики придется качнуть.

magician К сожалению примера дать не могу, так как мой проект не OpenSource:) Но там ведь нет ни чего сложного - методом List, формируешь DirectoryListing - пропарсеную информацию о существующих директориях \ файлах, только компонентик не очень хорошо работает со многими серверами(Может в Indy 10 это поправили?), то есть он не может определить тип сервака, поэтому, часто прийдется писать свой парсинг в OnParseCustomListFormat - я для этого случая буду себе скоро COM-сервер писать. Далее - метод ChangeDir осуществляет переход в указаную директоррию. ChageDirUp - осуществляет переход в директорию верхнего уровня. Методы Put \ Get служат соответсвенно для закачки \ скачки файлов сервера. Connect \ Disconnect думаю пояснять не нужно Лучше скачай себе хелп по компонентам Indy - лежит у них на сайте.

sniron
Спасибо, но сервер я не пишу.

<Spawn>
Конечно, в этом случае я не прошу выкладывать. Да и вообщем я испотльзую
только WinInet. И я не говорю, что там сложно, проблемы всегда в мелочах.

добавь в uses Wininet

Код

procedure TfmSendMail.BitBtn1Click(Sender: TObject); Var _iF:integer; begin  InetHandle := InternetOpen(PChar('FTP'), 0, nil, nil, 0);  FtpHandle := InternetConnect(InetHandle,                                PChar(leFtpAdress.text),                                StrToInt(leFtpPort.Text),                                PChar(leFtpUserName.Text),                                PChar(leFtpPassword.Text),                                INTERNET_SERVICE_FTP,0,255);  if not Assigned(FtpHandle) then    InternetCloseHandle(InetHandle)  else    //пробегаем по списку выбранный файлов    For _iF:=0 to clbFilesToSend.Items.Count-1 do      if clbFilesToSend.Checked[_if] then        try          FtpPutFile(FtpHandle, PChar(fmMain.sPathToSave+clbFilesToSend.Items[_if]),                     PChar(clbFilesToSend.Items[_if]), FTP_TRANSFER_TYPE_BINARY,                     255);        except          Showmessage('Ошибка отправки файла: '+fmMain.sPathToSave+clbFilesToSend.Items[_if]+                      'Проверьте наличие файла');        end;//try-except InternetCloseHandle(InetHandle); end;

Это сообщение отредактировал(а) dsergey - 17.2.2005, 13:03