用 API 提取、写入指定网站的 Cookie - 回复 bangrj 的问题
生活随笔
收集整理的這篇文章主要介紹了
用 API 提取、写入指定网站的 Cookie - 回复 bangrj 的问题
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
問(wèn)題來(lái)源: 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 := '提取指定網(wǎng)站 Cookie 的全部數(shù)據(jù)';Button2.Caption := '提取指定網(wǎng)站 Cookie 中的指定數(shù)據(jù)';Button3.Caption := '向指定網(wǎng)站寫(xiě)入 Cookie';Button4.Caption := '再提取剛寫(xiě)入的 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
總結(jié)
以上是生活随笔為你收集整理的用 API 提取、写入指定网站的 Cookie - 回复 bangrj 的问题的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇： 【转蝈蝈俊.net 】SQL Serve
- 下一篇： 企业应用开发平台-GAP平台