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

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

用户输入“用户名”和“密码” Cookies被存储 保留会话cookie 下载该文件 到目前为止，为了执行上述任务，我在脚本中使用了“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实现这一点？

您可以使用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;