Delphi Inet Cookie

最新推荐文章于 2019-11-07 13:32:24 发布

zhengyuanting

最新推荐文章于 2019-11-07 13:32:24 发布

阅读量785

点赞数

CC 4.0 BY-SA版权

分类专栏：技术文章标签： delphi string website url function byte

本文链接：https://blog.youkuaiyun.com/zhengyuanting/article/details/2849928

技术专栏收录该内容

32 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的函数CanGetIECookie，该函数从指定的URL中提取Cookie，并将其用于后续的HTTP请求中。通过将提取到的Cookie添加到HTTP请求头中，可以实现更高级别的身份验证和个性化设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses
..., WinInet;

function CanGetIECookie(const URL: string; var Cookie: string): boolean;
var
lpvBuffer: array[0..1000] of byte;
lpdwBufferLength: cardinal;
begin
lpdwBufferLength := sizeof(lpvBuffer);
result := InternetGetCookie(PChar(URL), nil, @lpvBuffer, lpdwBufferLength);
if result then
Cookie := pchar(@lpvBuffer);
end;

if CanGetIECookie(url, str) then
begin
CookieStr := 'Cookie: ' + str;
idHttp1.Request.CustomHeaders.Text := CookieStr;
Memo1.Lines.Text := IdHTTP1.Get(WebSite);
end;