Delphi：使用身份验证下载文件的应用程序

Question

我想创建一个工具来按以下顺序从网站下载文件：

1. 用户输入“用户名”和“密码”
2. Cookie 已存储
3. 保留会话 Cookie
4. 下载文件

到目前为止，为了执行上述任务，我在脚本中使用了“wget”：

wget --user-agent="Mozilla/5.0 (Windows NT 5.2; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" --post-data="username=%id%&password=%password%&sublogin=Login" --save-cookies="cookies\cookies.txt" --keep-session-cookies http://%app%/login/login/loging_simpel

我如何用 Delphi 做到这一点？

Answer 1

您可以为此使用 Indy TIdHTTP 组件：

IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 5.2; rv:2.0.1) Gecko/20100101 Firefox/4.0.1';
PostData := TStringList.Create;
try
  PostData.Add('username='+Username);
  PostData.Add('password='+Password);
  PostData.Add('sublogin=Login');
  IdHTTP1.Post('http://'+app+'/login/login/loging_simpel', PostData);
finally
  PostData.Free;
end;