function OnPreprocHeads(var pfc: THTTP_FILTER_CONTEXT; pvNotification:pointer) : DWORD ;
var
pHeaders : THTTP_FILTER_PREPROC_HEADERS;
//dwSize:DWORD;
//pContentLength:pointer;
GetSrvVar : TGetServerVariable;
ullContentLength:Cardinal;
pContentLength: array[0..4096] of char;
i: DWORD;
strContentLength: string;
strHost: string;
strRemoteAddr : string;
begin
pHeaders:= THTTP_FILTER_PREPROC_HEADERS(pvNotification^);
pHeaders.GetHeader(pfc,PChar('Content-Length:'), Pchar(strContentLength),@i);strToInt(strContentLength)一直为0,得不到数据???????????
var
pHeaders : THTTP_FILTER_PREPROC_HEADERS;
//dwSize:DWORD;
//pContentLength:pointer;
GetSrvVar : TGetServerVariable;
ullContentLength:Cardinal;
pContentLength: array[0..4096] of char;
i: DWORD;
strContentLength: string;
strHost: string;
strRemoteAddr : string;
begin
pHeaders:= THTTP_FILTER_PREPROC_HEADERS(pvNotification^);
pHeaders.GetHeader(pfc,PChar('Content-Length:'), Pchar(strContentLength),@i);strToInt(strContentLength)一直为0,得不到数据???????????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货