| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как закачать файл на сервер через www [D4, D5, Win95/98, NT4, Win2k]

Baatars ©   (2002-01-16 17:40:00) 

На сервере апач + перл,
У клиента - delphi + интернет :)

---

nikkie   (2002-01-22 10:09:00) [1]

кстати, зашел на сайт инди http://www.nevrona.com/indyи в разделе "Articles" обнаружил такое чудо:
"Uploading Files using Indy (multipart/form-data)"

---

Baatars   (2002-01-21 14:50:00) [2]

Спасибо и на этом.
Жалко что сорцы потерялись...

---

nikkie   (2002-01-18 14:08:00) [3]

про NMHTTP не скажу. может он это умеет, а может и нет. и вообще FastNet глюкавый. я такое делал когда-то с помощью инди, но сорсы уже потерялись.

---

Baatars   (2002-01-18 13:39:00) [4]

Если никак - то тогда скажите - НИКАК!

---

Baatars   (2002-01-17 12:02:00) [5]

Неужели никак?

---

Baatars   (2002-01-16 19:06:00) [6]

О-епрст. Еле нашел свой вопрос. Хоть бы какое-то уведомление было что вопрос перенесен в другой раздел.

Казалось бы, передавать в качестве параметра имя файла -
Делаю NMHTTP1.Post(MyURL,"filename=c:\autoexec.bat");
но в данном случае - КАК УКАЗАТЬ ЧТО ЭТО ФАЙЛ?
Параметр береться просто как значение.

Вот скрипт который обрабатывает закаченные файлы:
#!/usr/bin/perl -w

use lib "..";
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;

print header();
print start_html("Загрузка файла на mymesi.pp.ru");
print h1("File Upload");

print start_multipart_form(),
"Введите имя файла с путем:",
filefield("filename","",45),
br,
p,
reset,submit("submit","Послать"),
endform;

open(FTXT,">$ENV{DOCUMENT_ROOT}/file.tmp") or die ("$! Error");

if ($file = param("filename"))
{
while (<$file>)
{
print $_ . br;
print FTXT $_;
}
}
close FTXT;
print b("$file").br."\n";

print end_html;

---

Наверх