WinInet.pas 유닛에 정의되어있는...


function InternetGetCookie;            external winetdll name 'InternetGetCookieA';

를 참고하시면 되지 않을까요? ^^



<!--CodeS-->
procedure TForm1.btnSetCookieClick(Sender: TObject);
var
   sCookieVal: string;
   bRet: boolean;
begin
   bRet := InternetSetCookie('http://www.delphi.co.kr/', nil, 'myname=nilriri;');
   if not bRet then
      Showmessage('fail');
end;

<!--CodeE-->

<!--CodeS-->

procedure TForm1.Button2Click(Sender: TObject);
var
   sURL: array[0..255] of char;
   sCookieVal: array[0..255] of char;
   pCookieVal: PAnsiChar;

   iSize: LongWord;
   bRet: boolean;

begin
   sUrl := 'http://www.delphi.co.kr/';

   pCookieVal := @sCookieVal;
   iSize := 255;

   bRet := InternetGetCookie(sUrl, nil, pCookieVal, iSize);

   if bRet then
      Showmessage(pCookieVal);

end;

<!--CodeE-->