Загрузка файла с компа пользователя на сервер

← →
vishnia (2007-06-18 14:25) [0]

С формой на сервер отправляется файл любого типа (doc, txt, html, rar, zip, и т.д.)
<form method="POST" name="Doc" action="http://localhost/admin/mail/Scripts/SenderSystem.dll/document" enctype="multipart/form-data"> .... <input type="file" name="FileName" size="78" title="Выбрать сопроводительный документ"> ..... </form>

Вопрос: как его сохранить на сервере. На PHP это просто делается :
$fp1 = "C:\\inetpub\\wwwroot\\REFERENT\\".$dir."\\".$fn; $res = move_uploaded_file($FileName,$fp1);
А на Delphi как? Я посмотрела, есть
Request.Files.Items[i].Stream
Как с этим работать и есть ли др.способ?

← →
G_M_S © (2007-06-18 14:41) [1]

Indy - компонент TidHTTP.Он позволяет выполнить POST-запрос к серверу, который, собственно, и требуется в форме. Единственное - надо в заголовке указать, что контент - бинарный. Сам файлы не передавал таким образом, потому как это сделать - точно сказать не могу, читайте хэлп.

← →
vishnia (2007-06-18 14:52) [2]

А без использования Indy никак нельзя?

← →
vishnia (2007-06-18 15:05) [3]

Кроме того POST-запрос у меня и без Indy по-моему отлично вполняется, я ведь использую в форме enctype="multipart/form-data" и подключила ReqMulti для использования TMultipartContentParser. Вопрос в том, как сохранить файл, полученный с помощью этого запроса?

← →
Reindeer Moss Eater © (2007-06-18 15:08) [4]

можно и без инди.
читай заголовок, принимай данные, складывай в файл.

← →
vishnia (2007-06-18 15:12) [5]

А нельзя ли поподробнее, pls?

В описании TAdapterFileField много чего есть...

← →
vishnia (2007-06-20 14:37) [7]

Если кому-нибудь интересно, я сделала то, что нужно вот так:
var F:TStream; F:=TFileStream.Create("C:\inetpub\index."+ext,fmCreate or fmShareCompat); // ext - расширение загружаемого файла F.CopyFrom(Request.Files.Items[0].Stream, Request.Files.Items[0].Stream.Size); F.Destroy;

Загрузка файла с компа пользователя на сервер Найти похожие ветки