chce wyslac formularz a dokladniej chce sie automatycznie zalogowac w thecrims
oto fragment kodu strony na ktorym jest logowanie:
<form method="POST" action="index.php" name="loginform" OnSubmit="return wait();">
<input type="hidden" name="action" value="login">
<input type="hidden" name="key" value="IDExMTI3OTc0ODk=">
<tr>
<td width="27%" style="padding-left: 10px">
<img border="0" src="http://static.thecrims.com/images/dude.gif" width="15" height="17" alt="Username"></td>
<td width="73%"><input name="username" type="text" size="15" maxlength="30" title="Username" value=""></td>
</tr>
<tr>
<td width="27%" style="padding-left: 10px">
<img border="0" src="http://static.thecrims.com/images/lock.gif" width="15" height="17" alt="Password"></td>
<td width="73%"><input name="password" type="password" size="15" maxlength="40" title="Password" value=""></td>
</tr>
<tr>
<td width="27%" style="padding-left: 10px">
<input type="checkbox" name="remember_me" value="1" title="Zapisuje nazwę użytkownika i hasło w Twoim komputerze"></td>
<td width="73%">Zapamiętaj mnie</td>
</tr>
<tr>
<td width="27%" style="padding-left: 10px"></td>
<td width="73%"><div id="hidethis" style="display: inline;"><input type="submit" value="Loguj!" name="login"></div><div id="waittext" style="display: none;">Czekaj...</div></td>
</tr>
</form>
<tr>
<td colspan="2" style="padding-left: 10px; padding-top: 10px; padding-bottom: 5px">
<a href="register.php">? Zarejestruj</a><br>
<a href="lostpassword.php">? Zapomniałeś(aś) hasła?</a><br>
<a href="deleteuser.php">? Usuń użytkownika</a><br>
na forme dalem komponent TIdHTTP i uzupelnilem wlasciwosci:
Host: http://www1.thecrims.com
content type: application/x-www-form-urlencoded
accept: text/html
i fragment kodu
var
Input, OutPut : TStringStream;
begin
Input := TStringStream.Create('');
Output := TStringStream.Create('');
Input.WriteString('username=mojnick&password=mojehaslo');
Forum.Post('http://www1.thecrims.com/index.php', Input, Output);
...
mam problem gdzy program nie loguje sie, pomozcie plz