Re: Delphi: Send Login and Password to URL

Posted by webmaster Guido on December 04, 2003 at 16:19:46:

In Reply to: Re: Send Login and Password to URL posted by neo_aj on December 04, 2003 at 08:03:14:

: : : How do I sent a login string and password string from a link on a Menu Item?
: : ----------------------

: : Let's set up a form with 3 Edit boxes:

: : - edLogin: for the login;
: : - edPassword: for the password;
: : - edPage: for the address of the page (without the "http://" part).
: :
: : Additionally, there's a button to initiate the login, named btnLogin, and there's a label named lblReturn, to show if there was an error.

: : The code for the OnClick event of the button for accessing a password protected webpage is as follows:

: : procedure TForm1.btnLoginClick(Sender: TObject);
: : var
: : Login, Password, WebPage, LogText: string;
: : Return: integer;
: : begin
: : Login := edLogin.Text;
: : Password :=edPassword.Text;
: : WebPage := edPage.Text;
: : LogText := 'http://' + Login + ':' + Password + '@' + Webpage;
: : Return := ShellExecute(Handle, 'open', PChar(LogText), nil, nil, SW_SHOW);
: : // If Return > 32 then it's OK, otherwise there was an error
: : // For values of Return, see: API help, ShellExecute
: : if Return > 32 then
: : lblReturn.Caption := 'OK, done'
: : else
: : lblReturn.Caption := IntToStr(Return);
: : end;
: :
: : Example: to access http://www.test.com with the login "abc" and the password '123', you would enter this in the edit-boxes:

: : - edLogin: abc
: : - edPassword: 123
: : - edPage: www.test.com

: : NOTE: add "SHELLAPI" to the USES statement of the form, otherwise Delphi won't find the ShellExecute function.

-----------------------------

: i tried, but it didn't do anything. i have a login page return by asp. when i runing these code, it only open a ie without log me on

------------------------------

First try it manually, so enter the "LogText" in the address box of your browser,for example:
http://login:password@www.yooha.com/login.htm

If that doesn't give the correct result, it can't be done with the Delphi code that I described.