问题来源: 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