Просто Проги Опубликовано 4 декабря, 2016 Поделиться Опубликовано 4 декабря, 2016 Мистика походу )Решил я как то сдалать по быстрому авторизацию для вк и решил пробовать новый NetHTTPClient1 и вроде бы всё норм, но как только я делаю так NetHTTPClient1.Post('https://login.vk.com/?act=login&_origin=https://m.vk.com&ip_h='+ip_h+'&lg_h='+lg_h+'&role=pda&utf8=1',data).ContentAsString; то сразу получаю ошибку мол параметры заданы не верно, о каких параметрах идет речь всё же вроде правильно версия делфи 10 Seattle. Цитата Ссылка на комментарий
0 rareMax Опубликовано 5 декабря, 2016 Поделиться Опубликовано 5 декабря, 2016 Мистика походу) Решил я как то посмотреть что за ошибка у тебя вылазит и решил найти код/текст ошибки, но как только открыл эту тему- то не нашел ничего такого(( Равиль Зарипов (ZuBy) 1 Цитата Ссылка на комментарий
0 Модераторы Равиль Зарипов (ZuBy) Опубликовано 5 декабря, 2016 Модераторы Поделиться Опубликовано 5 декабря, 2016 приложите проект, а мы посмотрим Цитата Ссылка на комментарий
0 master webs Опубликовано 5 декабря, 2016 Поделиться Опубликовано 5 декабря, 2016 (изменено) так вы вместо post отправляете get только через post запрос или компонент сам все конвертирует в post ? вот как-то так я отправляю post запросы (с другой оперы но всеже) procedure TForm1.httppost(url: string; json: TStringList); var Return: IHTTPResponse; aHeader: TURIParameters; begin with TNetHTTPClient.Create(nil) do begin try SetLength(aHeader, 1); aHeader[0] := System.Net.URLClient.TNameValuePair.Create('Authorization:key', Api_key); UserAgent := 'Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Firefox/45.0'; ContentType := 'application/json'; Return := Post(url, json,nil,nil, aHeader); memo1.Lines.Add(Return.ContentAsString()); except on E: Exception do begin end; end; Free; end; end; procedure TForm1.sendpush(title, text, id, dev: string); var ADatas: TStringList; s: string; begin if dev = 'android' then s := 'data'; if dev = 'ios' then s := 'notification'; try ADatas := TStringList.Create; ADatas.Add('{"reistration_ids":[' + id + '],"priority":"high","' + s + '":"{"message":'+text+'","title":"'+title+'","vibrate":"1","sound":"1"}"}'); httppost('https://fcm.googleapis.com/fcm/send', ADatas); finally ADatas.Free; end; end; Изменено 5 декабря, 2016 пользователем master webs Евгений Корепов и Kitty 2 Цитата Ссылка на комментарий
0 Просто Проги Опубликовано 5 декабря, 2016 Автор Поделиться Опубликовано 5 декабря, 2016 да тут одна кнопка вот так выглядит событие ) просто знакомлюсь с NetHTTPClient1 та как надоело на idhttp таскать библиотеки ssl ( procedure TForm1.Button3Click(Sender: TObject); var res,data:TStringList; s,ip_h,lg_h:string; begin data:=TStringList.Create; ip_h:= edit3.Text; lg_h:= edit4.Text; data.Add('email='+edit1.text); data.Add('pass='+edit2.text); NetHTTPClient1.HandleRedirects:=true; NetHTTPClient1.Post('https://login.vk.com/?act=login&_origin=https://m.vk.com&ip_h='+ip_h+'&lg_h='+lg_h+'&role=pda&utf8=1',data).ContentAsString; end; Цитата Ссылка на комментарий
Вопрос
Просто Проги
Мистика походу )Решил я как то сдалать по быстрому авторизацию для вк и решил пробовать новый NetHTTPClient1 и вроде бы всё норм, но как только я делаю так
NetHTTPClient1.Post('https://login.vk.com/?act=login&_origin=https://m.vk.com&ip_h='+ip_h+'&lg_h='+lg_h+'&role=pda&utf8=1',data).ContentAsString;
то сразу получаю ошибку мол параметры заданы не верно, о каких параметрах идет речь всё же вроде правильно версия делфи 10 Seattle.
Ссылка на комментарий
4 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.