WinINet 이용 Cookie 만들구 쓰기

From YYpBD's MediaWiki

[팁] WinINet 이용 Cookie 만들구 쓰기  
안녕하세여.. 타락임다..^^

쿠키 만들구 쓰는 예제 임다..^^

파일로 직접 쓰고 읽고 함미다. 기능은 바라는 대루 만들었는데, 퍼포먼스는 생각만큼 안나오는 군여..

아래가 코드 입니다.

uses
WinINet;
....................

procedure TForm1.Button2Click(Sender: TObject);
var
strURL: string;
strData: string;
begin
strURL := 'http://www.learn119.co.kr';
strData := Format(
  'userPW=1234;expires=%s',
  [FormatDateTime('DAY, dd-mmm-yyyy hh:mm:ss GMT', Now + 10)]
  );

if not InternetSetCookie(pChar(strURL), nil, pChar(strData)) then
  ShowMessage('Oh, No!!!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
strURL: string;
strData: string;
begin
strURL := 'http://www.learn119.co.kr';
strData := Format(
  'userID=rainday;expires=%s',
  [FormatDateTime('DAY, dd-mmm-yyyy hh:mm:ss GMT;', Now + 10)]
  );

if not InternetSetCookie(pChar(strURL), nil, pChar(strData)) then
  ShowMessage('Oh, No!!!');
{
strData := strData + ';' + Format(
  'userPW=1234;expires=%s',
  [FormatDateTime('DAY, dd-mmm-yyyy hh:mm:ss GMT', Now + 10)]
  );

if not InternetSetCookie(pChar(strURL), nil, pChar(strData)) then
  ShowMessage('Oh, No!!!');}
end;

procedure TForm1.Button3Click(Sender: TObject);
var
strURL, strName: string;
strData: string;
begin
strURL := 'http://www.learn119.co.kr';
strName := 'fallenangel';
strData :=     Format(
  'userPW=1234;expires=%s',
  [FormatDateTime('DAY, dd-mmm-yyyy hh:mm:ss GMT;', Now + 10)]
  );

if not InternetSetCookie(pChar(strURL), pChar(strName), pChar(strData)) then
  ShowMessage('Oh, No!!!');
end;

즐푸하세여..^^

타락천사...