Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2017, 19:04   #1
aesoem
Форумчанин
 
Регистрация: 24.12.2007
Сообщений: 288
По умолчанию загрузка файлов на свой сайт

Парни, подскажите, с клиентских машин нужно логи грузить на свой сайт..
php + html форма - скрипт работает, файл грузится

PHP код:
<form action=upload_log.php method=post enctype=multipart/form-data>
<
input type=file name=uploadfile>
<
input type=submit value=Загрузить>
</
form
для автоматизации, хочу грузить это из самой программы, набросал функцию
Код:
 Function UploadLog(path_file:String):string;
 var
  str:TStringList;
  url: string;
  http:tidhttp;
begin
http:=Tidhttp.Create();

  url:='http://mysite.ru/filetransfer/upload_log.php'; 
  str:=TStringList.Create(); 

  str.Add('enctype=multipart/form-data');     
  str.Add('uploadfile='+path_file);    
  result:= http.Post(url,str); 
  FreeAndNil(str); 

http.Free;
end;
иии... она не работает) я так понимаю, потому что скрипт от меня ждет
method=post enctype=multipart
а у меня, что то другое....

Как отправить пост запрос именно через method=post enctype=multipart
aesoem вне форума Ответить с цитированием
Старый 01.03.2017, 21:16   #2
aesoem
Форумчанин
 
Регистрация: 24.12.2007
Сообщений: 288
По умолчанию

Цитата:
Сообщение от aesoem Посмотреть сообщение
Парни, подскажите, с клиентских машин нужно логи грузить на свой сайт..
php + html форма - скрипт работает, файл грузится

PHP код:
<form action=upload_log.php method=post enctype=multipart/form-data>
<
input type=file name=uploadfile>
<
input type=submit value=Загрузить>
</
form
для автоматизации, хочу грузить это из самой программы, набросал функцию
Код:
 Function UploadLog(path_file:String):string;
 var
  str:TStringList;
  url: string;
  http:tidhttp;
begin
http:=Tidhttp.Create();

  url:='http://mysite.ru/filetransfer/upload_log.php'; 
  str:=TStringList.Create(); 

  str.Add('enctype=multipart/form-data');     
  str.Add('uploadfile='+path_file);    
  result:= http.Post(url,str); 
  FreeAndNil(str); 

http.Free;
end;
иии... она не работает) я так понимаю, потому что скрипт от меня ждет
method=post enctype=multipart
а у меня, что то другое....

Как отправить пост запрос именно через method=post enctype=multipart
Во.....
Код:
Function UploadLog(path_file:String):string;
var
url: string;
http:tidhttp;
FormData: TIdMultiPartFormDataStream;
begin
http:=Tidhttp.Create();
FormData := TIdMultiPartFormDataStream.Create;
url:='http://ххххххххх.ru/filetransfer/upload_log.php'; 
FormData.AddFile('uploadfile', path_file, 'multipart/form-data');
result:= http.Post(url,FormData); 
FormData.Free;
http.Free;
end;
вроде работает...
aesoem вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
свой сайт D@rkArt Свободное общение 8 19.02.2012 09:18
Загрузка файлов на сайт grafgrial Работа с сетью в Delphi 3 16.02.2011 19:04
Загрузка файлов на сайт Krasi PHP 9 16.07.2010 21:44
Свой сайт VistaSV30 Фриланс 2 23.06.2010 09:49
Как выкладывать свой сайт в интернет, Как мне выложить сайт, psywalker HTML и CSS 6 21.05.2009 15:04