1. BanDiTuK14.05.2024 в 11:14от
Загрузка...
Загрузка...

Помогите кто шарит в delphi

Тема в разделе "С/С++/Pascal/Delphi", создана пользователем Valimer, 06.08.2017.

  1. Valimer

    Valimer

    Статус:
    Оффлайн
    Регистрация:
    29.01.14
    Сообщения:
    149
    Репутация:
    116 +/-
    Привет, ребзя, вот такая дичь вылазеет при отправке Post запроса http/1.1 bad request
    Код:
    function Pars(T_, ForS, _T:string):string;   //Функция парсинга
    
    var a, b:integer;
    begin
    Result := '';
    if (T_='') or (ForS='') or (_T='') then Exit;
    a:=Pos(T_, ForS);
    if a=0 then Exit else a:=a+Length(T_);
    ForS:=Copy(ForS, a, Length(ForS)-a+1);
    b:=Pos(_T, ForS);
    if b>0 then
    Result:=Copy(ForS, 1, b - 1);
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
    list:Tstrings;
    res:Tstrings;
    s:string;
    begin
    IdHttp1.Compressor := TIdCompressorZLib.Create(IdHttp1);
    form1.IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/52.0.2743.116 YaBrowser/16.9.1.1192 Yowser/2.5 Safari/537.36';
    form1.IdHTTP1.Request.Host:= 'homegate.ru';
    form1.IdHTTP1.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
    form1.IdHTTP1.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
    form1.IdHTTP1.Request.AcceptCharset:='iso-8859-1, utf-8, utf-16, *;q=0.1';
    form1.IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
    form1.IdHTTP1.Request.AcceptEncoding:='gzip, deflate, br';
    list:= Tstringlist.Create;
    res:= Tstringlist.Create;
    res.text:= form1.IdHTTP1.GET('https://beepcar.ru/api/v1/token');
    s:=pars('_xsrf":"',res.Text,'"');
    list.Add('_xsrf'+s);
    list.Add('phone=тут телефон');
    form1.Memo1.Text:= form1.IdHTTP1.Post('https://beepcar.ru/api/v1/auth/phone',list);
    end;
     
  2. 7.UP

    7.UP

    Статус:
    Оффлайн
    Регистрация:
    15.05.17
    Сообщения:
    4
    Репутация:
    0 +/-
    на телефон код отправляется, по этому и показывает