При ошибки POST запроса ответ пустой

[Smagulov85]

Всем привет! Ребят делаю POST запрос если все правильно получаю в Memo1 JSON ответ, но если я делаю ошибку в POST запросе то получаю пустую строчку и все. При этом сниффер показывает, что ответ от сервера есть.

// тут параметры они у меня прописаны
 
HTTP.Post('http://сайт/', Data, HTML);
Memo1.Lines.Add(UTF8toANSI(HTML.DataString));

[Stilet]

Ну и что? Разве сервер не может возвращать в случае ошибочного по его мнению запроса пустую строку?
И кстати: Пример правильного и ошибочного запроса в студию.

[crazy horse]

Гм. Гм... Я, конечно, в делфи давно не ковырялся, я из других языков, но суть одна, вроде: в случае кривого запроса, обратно возвращается эксепшн с кодом ошибки, не?

[Stilet]

в случае кривого запроса, обратно возвращается эксепшн с кодом ошибки, не?

Примеры запросов:

http://127.0.0.1/Doc?aha=buhu

http://127.0.0.1/Doc/pakast?aha=buhu

О сервере ничего не известно из уст автора, но мы предположим что про pakast серверу ничего не известно. Соответственно он уведомит ответом что такой адрес пуст, но не всегда это будет 404 Not found. Это может быть простой ответ типа

<p class="redcolor">Такой адрес не верный и вообще неправильно ты бутерброд ешь</p>

По факту это будет эксцепшном, но не стандартным.
Видимо у автора сам сервер отвечает похожим способом - ошибка, возврат пустой строки. Тут надо анализировать запрос и ответ.

[Smagulov85]

ребят ща все выложу

И так! Парсю сайт егрюл - Федеральная налоговая служба egrul.nalog.ru

ниже приведеный код работает только на поиск Юридическое лицо - ОГРН/ИНН

unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, superobject, Vcl.Imaging.GIFImg;

type
  TForm1 = class(TForm)
    FNSHTTP: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    capcha3: TImage;
    Memo1: TMemo;
    Timer1: TTimer;
    Button2: TButton;
    procedure FNSCook(Sender: TObject);
    procedure FNSCapcha(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FNLog, FNS_captchaToken : string;
  FNSData : TStringList;
  FNSHTML : TStringStream;

implementation

{$R *.dfm}

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.FormCreate(Sender: TObject);
begin
FNSCook(Sender);
end;

procedure TForm1.FNSCook(Sender: TObject);
begin
  FNSHTTP.AllowCookies:=True;
  FNSHTTP.HandleRedirects:=True;
  FNSHTTP.Request.Host:='egrul.nalog.ru';
  FNSHTTP.Request.Connection:='keep-alive';
  FNSHTTP.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8';
  FNSHTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.125 Safari/537.36';// Береться из ini файла
  //FNSHTTP.Request.AcceptEncoding:='gzip,deflate,sdch';
  FNSHTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
  FNSHTTP.GET('http://nalog.ru/');
  FNLog:=FNSHTTP.GET('http://egrul.nalog.ru/');
  FNS_captchaToken:=pars('<input type="hidden" name="captchaToken" value="', FNLog, '"/>' );
  FNSCapcha(Sender);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
FNSHTTP.Request.CustomHeaders.Clear;
FNSData := TStringList.Create;
FNSHTML := TStringStream.Create('');
FNSHTTP.Request.Host:='egrul.nalog.ru';
FNSHTTP.Request.Accept:='application/json, text/javascript, */*; q=0.01';
FNSHTTP.Request.CustomHeaders.Add('X-Requested-With: XMLHttpRequest');
FNSHTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.125 Safari/537.36';// Береться из ini файла
FNSHTTP.Request.ContentType:='application/x-www-form-urlencoded';
//FNSHTTP.Request.AcceptEncoding:='gzip,deflate,sdch';
FNSHTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
FNSHTTP.Request.Referer:='http://egrul.nalog.ru/';
FNSData.Add('kind=ul');
FNSData.Add('srchUl=ogrn');
FNSData.Add('ogrninnul='+Edit1.Text);
FNSData.Add('namul');
FNSData.Add('regionul');
FNSData.Add('srchFl=ogrn');
FNSData.Add('ogrninnfl');
FNSData.Add('fam');
FNSData.Add('nam');
FNSData.Add('otch');
FNSData.Add('region');
FNSData.Add('captcha='+Edit2.Text);
FNSData.Add('captchaToken='+FNS_captchaToken);
FNSHTTP.Post('http://egrul.nalog.ru/', FNSData, FNSHTML);
Memo1.Text:=UTF8toANSI(FNSHTML.DataString);
//Memo1.Text:= FNSHTTP.response.ResponseText;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FNSHTTP.Disconnect;
FNSCook(Sender);
end;

procedure TForm1.FNSCapcha(Sender: TObject); // Получаем капчу ФНС
Var
imTM:TMemoryStream;
gif:  TgifImage;
begin

  imTM:=TMemoryStream.Create;
  gif:=TgifImage.Create;
  FNSHTTP.Request.Accept:='image/webp,*/*;q=0.8';
  FNSHTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.125 Safari/537.36';// Береться из ini файла
  FNSHTTP.Request.Referer:='http://egrul.nalog.ru/';
  FNSHTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
  FNSHTTP.GET('http://egrul.nalog.ru/static/captcha.html?a='+FNS_captchaToken,imTM);
  imTM.Position:=0;
  gif.LoadFromStream(imTM);

  capcha3.Visible:=true;
  capcha3.Picture.Assign(gif);
  gif.Free;
  imTM.Free;
end;

end.

и так если все правильно получаю ответ скри 1



если делаю ошибку в ОГРН/ИНН или капче то получаю пустую строку скрин 2

[Smagulov85]

Не кто не поможет!?

[Smagulov85]

Разобрался с ответом от сервера только получаю закорючки вместо текста

FNSHTTP.Post('http://egrul.nalog.ru/', FNSData, FNSHTML);
Memo1.Text:=UTF8toANSI(FNSHTML.DataString);
except
   on E: EIdHTTPProtocolException do begin
      Memo1.Text:=E.ErrorMessage;
   end;

как исправить текст?

[Stilet]

UTF8toANSI убери.
Или у тебя Делфи не юникодная?

[Smagulov85]

Сообщение от Stilet

UTF8toANSI убери.
Или у тебя Делфи не юникодная?

UTF8toANSI - это когда запрос правильный текст приходит нормально, но когда ошибка закорючки


Если убрать UTF8toANSI то тогда при правильном и не правильном запросе закорючки

[Stilet]

Я не обратил внимание. Попробуй так:

FNSHTTP.Post('http://egrul.nalog.ru/', FNSData, FNSHTML);
Memo1.Text:=UTF8toANSI(FNSHTML.DataString);
except
   on E: EIdHTTPProtocolException do begin
      Memo1.Text:=UTF8toANSI(E.ErrorMessage);
   end;