Показать сообщение отдельно
  #10  
Старый 26.06.2010, 19:40
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
  idmultipartformdatastream:=TIdMultiPartFormDataStream.Create;
  idmultipartformdatastream.AddFormField('submit', 'Send File');
  idmultipartformdatastream.AddFile('userfile', 'c:\КАКОЙ-ТО_ФАЙЛ', 'application/octet-stream');
  IdHTTP1.Post('http://ТВОЙ_СЕРВЕР/winlog.php', idmultipartformdatastream);

принцип работы прост
имеется форма:
<form method="post" action="/cabinet/upload/"
это куда постим:
IdHTTP1.Post('http://ТВОЙ_СЕРВЕР/cabinet/upload/', idmultipartformdatastream);
в форме поле файла:
<input name="sfile" type="file"
это добавляем файл:
idmultipartformdatastream.AddFile('sfile', 'c:\КАКОЙ-ТО_ФАЙЛ', 'application/octet-stream');
application/octet-stream - да все-равно какой файл будет, чтобы не думать о mime
не забываем про скрытые поля:
<input type="hidden" name="action" value="file_upload">
если они конечно есть:
idmultipartformdatastream.AddFormField('action', 'file_upload');
так же могут быть другие элементы: кнопки, как у тебя:
<input type="submit" value="Send File">
idmultipartformdatastream.AddFormField('submit', 'Send File');
чекбоксы, картинки (вместо кнопки отправить например). но это тебе уже не надо)
Ответить с цитированием