Заголовки Indy MappedTCPPort - PullRequest
Новая
       9

Заголовки Indy MappedTCPPort

0 голосов
/ 21 октября 2018

Я хочу сделать запрос по URL http://127.0.0.1:8080 Я использую компонент TidMappedPortTCP (indy 10) При выполнении у меня есть следующий код 

procedure TForm1.IdMappedPortTCP1Execute(AContext: TIdContext);
var MyHeaders:Tstringlist;
begin

try
   MyHeaders:=Tstringlist.Create;

TIdMappedPortContext(AContext).NetData:=ToBytes('');
MyHeaders.clear;
MyHeaders.add('GET /Myfile.mp4 HTTP/1.1');
MyHeaders.add('Accept-Encoding:identity;q=1, *;q=0');
MyHeaders.add('Connection:keep-alive');
MyHeaders.add('Accept:*/*');
MyHeaders.add('Accept-Language:en-US,en;q=0.9');
MyHeaders.add('Host:'+'112.32.12.115');
MyHeaders.add('Referer: MyappName');
MyHeaders.add('User-Agent:Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.67 Safari/537.36');
//MyHeaders.add(''); Do i need also this?
TIdMappedPortContext(AContext).NetData:=ToBytes(MyHeaders.text);

finally
    MyHeaders.Free;
end;

end;

Я не знаю, что я делаюНеправильно, но заголовки отправляются без Crlf (# 13 # 10).этот способ является основным способом перезаписать заголовки моего запроса?

...