Delphi Inet Cookie

最新推荐文章于 2024-06-19 08:34:17 发布

原创最新推荐文章于 2024-06-19 08:34:17 发布 · 794 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #string #website #url #function #byte

技术专栏收录该内容

32 篇文章

订阅专栏

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

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;