Как только TIdHTTP.Get()
выходит, необработанные заголовки ответа могут быть доступны через свойство TIdHTTP.Response.RawHeaders
.Многие заголовки также имеют свои собственные выделенные подсвойства в объекте TIdHTTP.Response
.Если требуемого заголовка нет, вы можете использовать свойство RawHeaders.Values[]
для его чтения, например:
jsontxt := IdHTTP1.Get(url);
url := IdHTTP1.Response.RawHeaders.Values['the-next-url-header'];
Если заголовок не существует, Values[]
просто возвратит пустую строку, например:
url := ...;
repeat
jsontxt := IdHTTP1.Get(url);
//...
url := IdHTTP1.Response.RawHeaders.Values['the-next-url-header'];
until url = '';