德爾福：應用程序中使用的身份驗證

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;