Edit Question - KnowledgeHub

Title Body

I would ask if someone was kind enough to explain to me how to login at webpage from Delphi app. All the examples I've found here have proved useless to me or I'm doing something wrong. I'm tired of the search and the code that does not work. There is no error message, I even get page code into Memo but seems it's code from login page (not account [dashboard] page) - seems this code can't pass auth at all and I don't know why. What is wrong in this code : procedure Login; var HTTP: TIdHTTP; Param: TStringList; S: String; begin HTTP := TIdHTTP.Create(nil); HTTP.CookieManager := Main_Form.CookieManager; Param := TStringList.Create; Param.Clear; Param.Add('login=example'); Param.Add('password=example'); try HTTP.Get ('http://www.filestrum.com/login.html'); HTTP.Post('http://www.filestrum.com/login.html', Param); S := HTTP.Get ('http://www.filestrum.com/?op=my_account'); Main_Form.Memo2.Lines.Add(S); finally HTTP.Free; Param.Free; end; end; or with this version : procedure Login; var HTTP: TIdHTTP; S: String; begin HTTP := TIdHTTP.Create(nil); HTTP.CookieManager := Main_Form.CookieManager; HTTP.Request.BasicAuthentication := True; HTTP.Request.Username := 'example'; HTTP.Request.Password := 'example'; HTTP.AllowCookies := True; HTTP.HandleRedirects := True; S := HTTP.Get ('http://www.filestrum.com/?op=my_account'); Main_Form.Memo2.Lines.Add(S); end; Used Delphi XE2 and there is no way to make this code running and login. It's same with XE3 demo. As I said, I'm really tired searching some solution, waste days into it and nothing. Please guys, some help here. Really need it.

Tags (comma-separated) Cancel