delphi中调用internetgetcookie函数获取cookie时怎么老是调用失败返回false，帮忙！代码如下 ( 积分: 200 )

我在delphi中调用internetgetcookie函数获取cookie时怎么老是调用失败返回值为false，代码如下：


procedure TForm1.Button1Click(Sender: TObject);
var
bResult:BOOL;
lpdwSizeWORD;
lpszCookieData:array [0..255] of char;
lpszURL:array [0..127] of char;
begin
txtURL.Text := 'http://expert.csdn.net/expert/forum.asp';
//设置lpszCookieData参数大小
StrPCopy(lpszURL,txtURL.Text);
lpdwSize := sizeof(lpszCookieData);
bResult := InternetGetCookie(lpszURL,nil,lpszCookieData,lpdwSize) ;
if (bResult) then
begin
Memo1.Clear() ;
Memo1.Lines.Add(StrPas(lpszCookieData));
end;
end;

这是怎么回事？我也引用了wininet单元，请高手们解决！！我现在很急的！！多谢！

我在delphi中调用internetgetcookie函数获取cookie时怎么老是调用失败返回值为false，代码如下：


procedure TForm1.Button1Click(Sender: TObject);
var
bResult:BOOL;
lpdwSizeWORD;
lpszCookieData:array [0..255] of char;
lpszURL:array [0..127] of char;
begin
txtURL.Text := 'http://expert.csdn.net/expert/forum.asp';
//设置lpszCookieData参数大小
StrPCopy(lpszURL,txtURL.Text);
lpdwSize := sizeof(lpszCookieData);
bResult := InternetGetCookie(lpszURL,nil,lpszCookieData,lpdwSize) ;
if (bResult) then
begin
Memo1.Clear() ;
Memo1.Lines.Add(StrPas(lpszCookieData));
end;
end;

这是怎么回事？我也引用了wininet单元，请高手们解决！！我现在很急的！！多谢！