Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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)"




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




Наверх





Память: 0.72 MB
Время: 0.015 c
3-24              de                    2002-03-06 14:52  2002.04.01  
Как сделать выпадающий список в DBGridEh?


1-251             Sound                 2002-03-21 02:06  2002.04.01  
Вложенное окно.


1-124             Beginner              2002-03-21 18:48  2002.04.01  
Запуск приложения из моей программы.


1-202             interest              2002-03-20 08:55  2002.04.01  
Переменные сохранить, а при запуске вернуть


3-18              andreik               2002-03-06 11:28  2002.04.01  
что писать в UpdateSQL?