Перейти к содержанию
Fire Monkey от А до Я
  • 0

NetHTTPClient1 87 ошибка на простом запросе post


Просто Проги

Вопрос

Мистика походу )Решил я как то сдалать по быстрому авторизацию для вк и решил пробовать новый 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

Мистика походу) Решил я как то посмотреть что за ошибка у тебя вылазит  и решил найти код/текст ошибки, но как только открыл эту тему- то не нашел ничего такого((

Ссылка на комментарий
  • 0

так вы   вместо 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;

 

Изменено пользователем master webs
Ссылка на комментарий
  • 0

да тут одна кнопка вот так выглядит событие ) просто знакомлюсь с 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; 

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...