Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.01;
Скачать: CL | DM;

Вниз

Как закачать файл на сервер через 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
6-273
eblade
2002-01-16 22:18
2002.04.01
TClientSocket и переопределение OnConnect


1-87
Alexandr_H
2002-03-20 18:56
2002.04.01
Как вписать в FileStream обыкновенную строку?


4-353
Rumrunner
2002-01-27 04:45
2002.04.01
Всем привет!


1-187
Aleksandr
2002-03-19 18:46
2002.04.01
Почему не убивается нажатие клавиши?


3-71
Alexsys
2002-03-08 06:30
2002.04.01
Как загрузить отчет из текстушки в Qreport?