J
jack011
Unregistered / Unconfirmed
GUEST, unregistred user!
以下函数在FORM形式下,读Cookies没有问题,
但是在NT服务程序里,就读不出Cookies.
这个到底是咋回事呢?
function GetCookiesString(AURL: string): string;
var
CookieData: string;
CookieSize: cardinal;
begin
Result := '';
try
CookieSize := 256;
Setlength(CookIeData, cookieSize);
if InternetGetCookie(PAnsiChar(AURL), nil, PAnsiChar(CookieData), CookieSize)
then
begin
Result := CookIedata;
end;
except
Result := '';
exit;
end;
end;
但是在NT服务程序里,就读不出Cookies.
这个到底是咋回事呢?
function GetCookiesString(AURL: string): string;
var
CookieData: string;
CookieSize: cardinal;
begin
Result := '';
try
CookieSize := 256;
Setlength(CookIeData, cookieSize);
if InternetGetCookie(PAnsiChar(AURL), nil, PAnsiChar(CookieData), CookieSize)
then
begin
Result := CookIedata;
end;
except
Result := '';
exit;
end;
end;