Главная страница
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.011 c
1-163
Max
2002-03-22 08:32
2002.04.01
Delphi 5 + W2k


3-14
vasilly
2002-03-06 10:26
2002.04.01
Помогите примером!!! Как получить выходные параметры хранимой процедуры!!!


3-21
PeteDM
2002-03-05 16:54
2002.04.01
Interbase


4-341
Валера из Омска
2002-01-30 08:05
2002.04.01
Файловая система


6-276
Sandro
2002-01-12 00:24
2002.04.01
Как через сокеты передать звук в реальном времини