問題來源: http://www.cnblogs.com/del/archive/2009/02/27/1399526.html#1463307

---

本例效果圖:

---

代碼文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses WinInet;const url = 'http://www.sohu.com';procedure TForm1.Button1Click(Sender: TObject); varbuf: array[0..1024*4-1] of Char;size: DWORD; beginInternetGetCookie(PChar(url), nil, buf, size);ShowMessage(buf); end;procedure TForm1.Button2Click(Sender: TObject); varbuf: array[0..255] of Char;size: DWORD; beginInternetGetCookie(PChar(url), 'YYID', buf, size);ShowMessage(buf); end;procedure TForm1.Button3Click(Sender: TObject); beginInternetSetCookie(PChar(url), 'WanYi', '1234567'); end;procedure TForm1.Button4Click(Sender: TObject); varbuf: array[0..255] of Char;size: DWORD; beginInternetGetCookie(PChar(url), 'WanYi', buf, size);ShowMessage(buf); end;procedure TForm1.FormCreate(Sender: TObject); beginButton1.Caption := '提取指定網站 Cookie 的全部數據';Button2.Caption := '提取指定網站 Cookie 中的指定數據';Button3.Caption := '向指定網站寫入 Cookie';Button4.Caption := '再提取剛寫入的 Cookie'; end;end.
窗體文件:

---

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 146ClientWidth = 328Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poDesktopCenterOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Button1: TButtonLeft = 48Top = 8Width = 233Height = 25Caption = 'Button1'TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 48Top = 39Width = 233Height = 25Caption = 'Button2'TabOrder = 1OnClick = Button2Clickendobject Button3: TButtonLeft = 48Top = 80Width = 233Height = 25Caption = 'Button3'TabOrder = 2OnClick = Button3Clickendobject Button4: TButtonLeft = 48Top = 111Width = 233Height = 25Caption = 'Button4'TabOrder = 3OnClick = Button4Clickend end

總結

以上是生活随笔為你收集整理的用 API 提取、写入指定网站的 Cookie - 回复 bangrj 的问题的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。