德尔福：应用程序中使用的身份验证

Question

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

1. 用户输入“用户名”和“密码”
2. Cookies是存储
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 

我该怎么做与德尔福？

Answer 1

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