Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 01.10.2017, 18:55   #1
Valimer
 
Регистрация: 05.11.2015
Сообщений: 4
Репутация: 10
Радость загрузить аватарку

в общем снифер выдает такую дичь

Код:

-----------------------------16358190428479
Content-Disposition: form-data; name="MAX_FILE_SIZE"

1048576
-----------------------------16358190428479
Content-Disposition: form-data; name="type"

player_avatar_image
-----------------------------16358190428479
Content-Disposition: form-data; name="sId"

76561198427798043
-----------------------------16358190428479
Content-Disposition: form-data; name="sessionid"

e44e73d50a6bc8063b95042f
-----------------------------16358190428479
Content-Disposition: form-data; name="doSub"

1
-----------------------------16358190428479
Content-Disposition: form-data; name="json"

1
-----------------------------16358190428479
Content-Disposition: form-data; name="avatar"; filename="0Gb8zENWuB0.jpg"
Content-Type: image/jpeg

дальше идет тип изоображение, как загрузить картинку в form-data не знаю. помогите
Valimer вне форума   Ответить с цитированием
Старый 01.10.2017, 20:27   #2
PaHaNjkee
Delphi 10 Seattle
Форумчанин
 
Аватар для PaHaNjkee
 
Регистрация: 01.11.2010
Сообщений: 85
Репутация: 16

skype: pahanjkee
По умолчанию

Пример для Indy.

В uses добавить
Код:

IdHTTP, IdMultipartFormData

Переменные
Код:

h: TIdHTTP;
m: TidMultipartFormDataStream;

Код
Код:

  h := TIdHTTP.Create(nil);
  m := TIdMultipartFormDataStream.Create;
  try
    // Добавляем параметры
    m.AddFormField('MAX_FILE_SIZE', '1048576');
    m.AddFormField('type', 'player_avatar_image');
    m.AddFormField('sId', '76561198427798043');
    m.AddFormField('sessionid', 'e44e73d50a6bc8063b95042f');
    m.AddFormField('doSub', '1');
    m.AddFormField('json', '1');
    m.AddFile('avatar', 'путь_до_файла'); // Добалвяем файл

    h.Post('http://....', m); // Делаем запрос
  finally
    h.Free;
    m.Free;
  end;

PaHaNjkee вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как сделать продольную аватарку в сообществе вк? vkarpick Свободное общение 5 01.11.2016 23:15
Загрузить аватарку Вконтакте Delphi denbox Помощь студентам 7 31.12.2012 16:23
Загрузить аватарку Вконтакте Delphi denbox Общие вопросы Delphi 6 31.12.2012 15:40
Загрузить аватарку Вконтакте Delphi. wormix Помощь студентам 2 29.12.2012 14:16
выдернуть аватарку из скайпа leonw Работа с сетью в Delphi 0 20.03.2010 04:16


08:52.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru