用delphi来post数据的时候，请问如何带上cookie

delphi 里 post 数据，可以使用多种途径，常见的有 WebBrowser 和 IdHttp 等。

以下是示例代码：

try

  idhttp1.Request.SetHeaders //初始化

  idhttp1.Request.RawHeaders.Values['Cookie'] := '这里是cookie的值'

  idhttp1.Post('网址/login.jsp',data1,data2)

except

  idhttp1.Get(idhttp1.Response.Location, data1)

end

filecreate('路径加文件名')；//创建一个文件。

读写ini文件：

先在 uses 定义 Inifiles, 在 var 定义 myinifile：Tinifile；

实现部分写代码：

myinifile：=Tinifile.create('d:\1.ini')//打开D盘的 1.ini 文件。

myinifile.readstring('小节名','关键字','缺省值')；//读取字符型数据。

myinifile.redainteger（'小节名','关键字','缺省值')//读取整数型数据。

myinifile.readbool（'小节名','关键字','缺省值')//读取逻辑型数据。

写入INI文件：

myinifile.writestring('小节名','关键字',变量或字符串值)；//写入字符型数据。

myinifile.writeinteger（'小节名','关键字','变量或整型数值)//写入整数型数据。

myinifile.writebool（'小节名','关键字',变量或TRUE或FALSE)//写入逻辑型数

myinifile.Free；//释放INI文件

// 获取指定名称的cookie值

function GetCookieValue(CookieCollection: TIdCookies CookieName: string): string

var

i: Integer

strCookiesName: string

begin

Result := ''

if CookieCollection = nil then Exit

if CookieCollection.Count <= 0 then Exit

for i:= 0 to CookieCollection.Count - 1 do

begin

strCookiesName := CookieCollection.Items[i].CookieName

if strCookiesName = CookieName then

begin

Result := CookieCollection.Items[i].Value

Break

end

end

end

// 使用方法

ASP_NET_SessionId := GetCookieValue(http.CookieManager.CookieCollection, 'ASP.NET_SessionId')

---