"406 Not Acceptable" synapse ?
|
|
, 07 2021 . 20:11
+
Olga28: synapse, Memo1. .
procedure TForm1.Button1Click(Sender: TObject);
var http:THttpSend;
pList : TStringList;
begin
pList:= TStringList.Create;
HTTP:=THTTPSend.Create;
try
HTTP.Protocol := '1.1';
HTTP.UserAgent:=
'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.63 Safari/537.36';
HTTP.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
HTTP.Headers.Add('Accept-Language: en-US,en;q=0.5');
HTTP.Headers.Add('Connection: keep-alive');
HTTP.Sock.CreateWithSSL(TSSLOpenSSL);
HTTP.Sock.SSLDoConnect;
HTTP.HTTPMethod('GET','https://vagon-igr.ru/test1/');
pList.LoadFromStream(HTTP.Document);
Memo1.Text:='';
Memo1.Lines.Add(pList.Text);
finally
pList.free;
HTTP.free;
end;
end;
Memo1.
Not Acceptable
An appropriate representation of the requested resource could not be found on this server.
, . , .
406 Not Acceptable
, , \\, . Content-Language, Content-Encoding Content-Type.
HTTP ?
https://forum.sources.ru/index.php?showtopic=421554&view=findpost&p=3848825
