delphi 는 ajax 를 사용 하여 쿠키 를 추가 합 니 다.

3233 단어 delphi
uses Comobj;

var
url:string;
xmlHttp:Olevariant;
responseText:Widestring;
begin
url:
='http://xxx.cn/xx.asp';
try
xmlHttp:
=CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open(
'POST',url,false);
xmlHttp.setRequestHeader(
'Cookie', 'cookietest=testvalue');
xmlHttp.send(
'xxxx');
responseText:
=xmlHttp.responseText;
if xmlHttp.status='200' then
begin
//--
end
else
begin
//--
end;
except
On E:Exception
do
//--
end;
end;

좋은 웹페이지 즐겨찾기