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

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

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

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

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

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

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

Код:
-----------------------------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, 19:27   #2
PaHaNjkee
Delphi 10 Seattle
Пользователь
 
Аватар для PaHaNjkee
 
Регистрация: 01.11.2010
Сообщений: 90
По умолчанию

Пример для 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 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как сделать продольную аватарку в сообществе вк? vkarpick Свободное общение 5 01.11.2016 22: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 03:16