ADMin Портал!

Партнеры


+3 трейнер Bad Boys 2

Профиль



Добро пожаловать,
Гость

54.82.112.193

Регистрация или вход
Потеряли пароль?

Сейчас онлайн
Администраторы:0
Пользователей:0
Гостей:35
Поисковые боты:0

Всего:35

Кнопки




Исходный код

Статьи

Сеть

Функции и процедуры для работы с сетью или сетевым окружением
Процедура загрузки файла на сайт методом POST
Пример отправки файла на сайт методом POST, используя компонент IDHTTP
uses IdMultipartFormData;

Код
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure upload_file(fname: string);
var
data: TIdMultiPartFormDataStream;
Begin
data := TIdMultiPartFormDataStream.Create;
data.AddFormField('op', 'xmlautosave');
data.AddFile('xmlfile', fname, 'FILE');
Form1.IdHTTP1.Request.ContentType := 'multipart/form-data';
Form1.IdHTTP1.Request.Referer := 'http://example.com/';
Form1.IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1;) Firefox/35.0';
Form1.Memo1.Lines.Add(form1.IdHTTP1.Post('http://example.com/index.php?name=upload_file', data));
data.Free;
End;

Дата публикации: 11.03.2016
Прочитано: 3602 раз
Нет комментариев. Почему бы Вам не оставить свой?
Ваше имя:
Комментарий:
Секретный код:Секретный код
Повторить:
Антиспам:



Powered by SLAED CMS © 2005-2007 SLAED. All rights reserved.