SASGIS - SAS.Планета
View Issue Details
0000584SAS.Планета[All Projects] Хотелкаpublic14-04-2011 05:2724-04-2011 18:24
vdemidov 
zed 
normalminorN/A
closedfixed 
110412 
110414110414 
0000584: Функции для работы с хедерами запроса в паскаль скрипте
Добавить функции для более простой работы с хедерами запроса в паскаль скрипте.
http headers, zmp
Issue History
14-04-2011 05:27vdemidovNew Issue
14-04-2011 05:27vdemidovStatusnew => assigned
14-04-2011 05:27vdemidovAssigned To => zed
14-04-2011 05:28vdemidovNote Added: 0001863
14-04-2011 05:28vdemidovStatusassigned => resolved
14-04-2011 05:28vdemidovFixed in Version => 110414
14-04-2011 05:28vdemidovResolutionopen => fixed
14-04-2011 08:17TolikNote Added: 0001872
14-04-2011 09:04zedNote Added: 0001875
14-04-2011 09:10TolikNote Added: 0001877
14-04-2011 10:52gpsMaxNote Added: 0001879
14-04-2011 10:53gpsMaxTag Attached: zmp
14-04-2011 10:53gpsMaxTag Attached: http headers
24-04-2011 18:24TolikStatusresolved => closed

Notes
(0001863)
vdemidov   
14-04-2011 05:28   
Добавлены две функции:
function SetHeaderValue(AHeaders, AName, AValue: string): string
function GetHeaderValue(AHeaders, AName: string): string
(0001872)
Tolik   
14-04-2011 08:17   
И какие результаты работы этих функций?
Приведите, пожалуйста, примеры.
(0001875)
zed   
14-04-2011 09:04   
AHeaders := 'Connection: Close';

// изменяет существующее значение в заголовке
AHeaders := SetHeaderValue(AHeaders, 'Connection', 'Keep-Alive') = 'Connection: Keep-Alive';

// или добавляет новое
AHeaders := SetHeaderValue(AHeaders, 'User-Agent', 'Opera') = 'User-Agent: Opera' +#$D#$A + 'Connection: Keep-Alive';

// возвращает значение поля заголовка
GetHeaderValue(AHeaders, 'User-Agent') = 'Opera'
(0001877)
Tolik   
14-04-2011 09:10   
Таки парсер залудили! Круто!
(0001879)
gpsMax   
14-04-2011 10:52   
Слово Value в именах функций слегка лишнее, имхо.