求怎么向ie写入一个cookie, 时间戳 格式 设置 cookie

http://www.myexception.cn/delphi/259057.html

求怎么向ie写入一个cookie,

www.MyException.Cn  网友分享于：2013-03-08  浏览：277次

 

求如何向ie写入一个cookie,急！
比如我要写入这样的一个cookie：
url='www.abc.com'
username='abc@123.com'
pwd='123'

如何写，请给出一个详细例子
网上搜了一天了，没一个能用的

------解决方案--------------------

Delphi(Pascal) code

uses WinInet;             //必须引用该单元

const Url = 'www.abc.com';
InternetSetCookie(Url, 'UserName', 'abc@123.com');
。。。

//函数原型如下

{
function InternetSetCookie(lpszUrl, lpszCookieName,
  lpszCookieData: PChar): BOOL; stdcall;
}

------解决方案--------------------

Delphi(Pascal) code

uses
  WinInet, HTTPApp;
const
  CsDateFormat = '"%s", dd "%s" yyyy hh:nn:ss';
var
  Expires: TDateTime;
  sTmp, sCookie: string;
begin
  Expires := Now() + 1;
  sTmp := Format(FormatDateTime(CsDateFormat, Expires) + ' GMT',
        [DayOfWeekStr(Expires), MonthStr(Expires)]);
  sCookie := 'username=abc@123.com; Expires=' + sTmp;
  InternetSetCookie(Url, nil, PChar(sCookie));