[winner13]

Здравствуйте дорогие форумчане , столкнулся с проблемой закачки нужных мне файлов конфигураций на веб сервер для резервного копирования .

Код програмы примерно следующий :

Код:

1 2 3 4 5 6 7 8

begin    sleep(5);    FileName := 'C:/****Setup.log';    formData := TIdMultiPartFormDataStream.Create;    formData.AddFile('file',fileName,'application/octet-stream');    formData.AddFormField('param1', 'value1');    response := idHTTP1.Post('http://локалхост/winlog.php',formData); end;

код скрипта куда обращается программа вот такой :

Код:

1 2 3 4 5 6 7

<? copy($HTTP_POST_FILES['file'],"*****Setup.log") ?> Пробывал ещё вот так <? copy($File,"*****Setup.log") ?>

Подскажите кто может в чём ошибка? Почему у меня фаил с машины на сервер не копируется???


Заранее благодарен.

[lmikle]

а у тебя из браузера аплоадится файл нормально?

[winner13]

Нормально вроде бы, всё в ручном режиме фалы льются на сервер , почему программно на делфе реализовать не могу , хз наверно в коде ошибка где то =(

[winner13]

ааааапппп ======> =(

[NumLock]

абсолютно рабочий код:
http://data.cod.ru/61532

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

unit Unit1;   interface   uses   IdMultipartFormData,   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,   IdHTTP, StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     IdHTTP1: TIdHTTP;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   uses IdHeaderList;   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var   idmultipartformdatastream: TIdMultiPartFormDataStream; begin   IdHTTP1.Get('http://data.cod.ru');   idmultipartformdatastream:=TIdMultiPartFormDataStream.Create;   idmultipartformdatastream.AddFormField('action', 'file_upload');   idmultipartformdatastream.AddFormField('password', '');   idmultipartformdatastream.AddFormField('description', 'testing');   idmultipartformdatastream.AddFormField('agree', '1');   idmultipartformdatastream.AddFile('sfile', 'c:\Downloads\background2.bmp', 'application/octet-stream');   try     IdHTTP1.Post('http://data.cod.ru/cabinet/upload/', idmultipartformdatastream);   except     if IdHTTP1.ResponseCode div 100<>3 then raise;     Edit1.Text:='http://data.cod.ru'+IdHTTP1.Response.RawHeaders.Values['LOCATION'];   end; end;   end.

только я изменил TIdMultiPartFormDataStream. добавил в него еще один параметр. так что тебе нужно будет написать (в самом исходнике):
idmultipartformdatastream.AddFile('sfile', 'c:\Downloads\background2.bmp', 'application/octet-stream');

[Bars1992]

Я кажется знаю в чем проблема.

Скрипты скачивать нельзя. Если б можно было их качать то небыло бы не одного не взломаного сайта в интернете, так как было бы известны пароли и логины от баз данных а это очень плохо. Когда мы загружаем в браузере ПХП страницу, то сервер выполняет ПХП скрипт и выдает нам згенерированый ХТМЛ код.

Если ты пишешь код взаимодействия со своим сервером то вот мой вариант решения такой задачи. Пишем скрипт с возможностью обрабтки входных параметров(POST или GET). результат получаем в виде ХТМЛ кода. Например :'All systems work'. При надобности парсим ответ.

Если тебе нужно скачать файл со скриптом со своего сервера который потдерживает FTP то для этого у инди есть спец. компонент.

[winner13]

Сообщение от NumLock

абсолютно рабочий код:
http://data.cod.ru/61532

Код:

только я изменил TIdMultiPartFormDataStream. добавил в него еще один параметр. так что тебе нужно будет написать (в самом исходнике):
idmultipartformdatastream.AddFile('sfile', 'c:\Downloads\background2.bmp', 'application/octet-stream');

Просто мне нужно именно не аплоадер чужой чейто заливать файлы а именно на свой сервер где я вот накатал жалкое подобие скрипта в две строчки который бы копировал файлы.Прежде чем браться переделывать расматривать на переделку твой скрипт, это со всеми типами фалов работает , или только картинки грузит ??? Я не совсем понимаю принцип работы связки просто , какие мне нужно передать кроме этих параметров ещё параметры скрипту??? =( Ещё не разу не работал с этим компонентом , и спецификации ограничиваются только синтаксисом , не каких объяснение нету что к чему.

[winner13]

Что мне нужно передать скрипту , чтобы он скопировал или закачал на сервер с клиентского компьютера на котором и будет моя программа передавать файл, которы будет копировать или закачивать сервер при таком скрипте ============>

Код:

1 2 3 4 5 6

<?php $uploaddir = '/uploads/logs_rezerv/'; if (move_uploaded_file($_FILES['userfile']['tmp_name'], $uploaddir .     $_FILES['userfile']['name'])); ?> СКРИПТ С БРАУЗЕРА СТО ПРОЦЕНТОВ РАБОТАЕТ

Нужно чтобы при запуске программы , она сделал запрос на этот скрипт и передала ему логи ...

Просто Я сам программирую на пхп больше , чем на делфи , по этому не могу понять принцип работы компонента IdHTTP, кто может помогите доделать , заодно понять принцип работы .

Вот что я сделал в делфи :

Код:

1 2 3 4 5 6 7 8

begin    sleep(5);    FileName := 'C:/****Setup.log';    formData := TIdMultiPartFormDataStream.Create;    formData.AddFile('userfile',fileName,'multipart/form-data');    formData.AddFormField('submit', 'Send File');    response := idHTTP1.Post('http://локалхост/winlog.php',formData); end;

НЕ РАБОТАЕТ ЗАРАЗА =((

[winner13]

Так как я по спецификации компонента писал код , эт конечно может глупо но вставил мне непонятную строчку formData.AddFormField('submit', 'Send File');

Честно не знаю что она делает . Просто подогнал её...


Вот кстати .html форма откуда из браузера сто процентов получается грузить фалы на сервер

Код:

1 2 3 4

<form enctype="multipart/form-data" action="/winlog.php" method="post"> Send this file: <input name="userfile" type="file"> <input type="submit" value="Send File"> </form>

Хотел программно просто сделать, вторые сутки не сплю ...

[NumLock]

Код:

1 2 3 4

idmultipartformdatastream:=TIdMultiPartFormDataStream.Create; idmultipartformdatastream.AddFormField('submit', 'Send File'); idmultipartformdatastream.AddFile('userfile', 'c:\КАКОЙ-ТО_ФАЙЛ', 'application/octet-stream'); IdHTTP1.Post('http://ТВОЙ_СЕРВЕР/winlog.php', idmultipartformdatastream);

принцип работы прост
имеется форма:
<form method="post" action="/cabinet/upload/"
это куда постим:
IdHTTP1.Post('http://ТВОЙ_СЕРВЕР/cabinet/upload/', idmultipartformdatastream);
в форме поле файла:
<input name="sfile" type="file"
это добавляем файл:
idmultipartformdatastream.AddFile('sfile', 'c:\КАКОЙ-ТО_ФАЙЛ', 'application/octet-stream');
application/octet-stream - да все-равно какой файл будет, чтобы не думать о mime
не забываем про скрытые поля:
<input type="hidden" name="action" value="file_upload">
если они конечно есть:
idmultipartformdatastream.AddFormField('action', 'file_upload');
так же могут быть другие элементы: кнопки, как у тебя:
<input type="submit" value="Send File">
idmultipartformdatastream.AddFormField('submit', 'Send File');
чекбоксы, картинки (вместо кнопки отправить например). но это тебе уже не надо)

[winner13]

Сейчас попробую посмотрим что получится, тока сейчас вернулся к работе своей из командировки . О результатах сообщу чуть позже кому интересно будет +)