Форум: "Сети";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Вниз

Как закачать файл на сервер через www   Найти похожие ветки 

← →
Baatars   (2002-01-16 17:40) [0]

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

---

← →
Baatars   (2002-01-16 19:06) [1]

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

Казалось бы, передавать в качестве параметра имя файла -
Делаю 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;

---

← →
Baatars   (2002-01-17 12:02) [2]

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

---

← →
Baatars   (2002-01-18 13:39) [3]

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

---

← →
nikkie   (2002-01-18 14:08) [4]

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

---

← →
Baatars   (2002-01-21 14:50) [5]

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

---

← →
nikkie   (2002-01-22 10:09) [6]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.004 c