Probleme mit IdHTTP Post

[newuser01]

das einzige Feld was ich finde ist eben das Gästebuch selber also (guestbook(document.forms["frm"].text)) hier mal der gesamte Code

Code:

<script type="text/javascript" language="javascript">
function initcharsleft() 
{
guestbook(document.forms["frm"].text);
}
   
function guestbook(feld) 
{
var anz = feld.value.length;
if (anz> 500)
{
feld.value = feld.value.substring(0,500);frei = 0;
}

}
</script>

<form action="/guestbook/" method="post" name="frm">
<table border="0" cellpadding="0" cellspacing="0" align="center" width="400">   
   <input type=hidden name="p" value="MakeGuestbookEntry798">

<input type=hidden name="a" value="send">
   
   <tr>
      <td height="18" nowrap="nowrap" align="right">eintragin:</td>
      <td width="350">[b]testguestbook's[/b] g&auml;stebuch</td>
   </tr>
   <tr>

      <td height="18" align="right">von:</td>
      <td>[b]<input type="hidden" name="from" value="unregistered">unregistered[/b]</td>
   </tr>
   <tr>
      <td colspan="2"><textarea class="form" name="text" wrap="virtual" style="width:400px; height:70px;" onFocus="guestbook(this)" onBlur="guestbook(this)" onKeydown="guestbook(this)" onKeyup="guestbook(this)"></textarea></td>
   </tr>
   <tr><td height="5"></td></tr>

   <tr>
      <td colspan="2" align="right">      
      
      <input type="submit" class="submit" value="senden" name="submit">
      
      <!--
      <input type="button" class="submit" value="senden" name="submit" title="">
      -->      
      </td>
   </tr>   
</table>
</form>

[mkinzler]

Es gibt verschiedene hidden-Felder
p mit dem wert MakeGuestbookEntry798: Ist das 798 Fest oder verändert sich das?
a mit Wert 'send'
from mit Wert 'unregistered'

[newuser01]

Zitat:

p mit dem wert MakeGuestbookEntry798: Ist das 798 Fest oder verändert sich das?

scheint fest zu sein also ändert sich nicht

[newuser01]

Wie genau funktioniert das nun mit dem hidden Feld und Schlüssel? Ich komme einfach nicht weier vielleicht könnte mir ja jemand das
noch ein wenig genauer erklären an einem kleinen Beispiel oder so

[newuser01]

[SirThornberry]

das Hidden bezieht sich nur auf die Darstellung. Beim senden von Formulardaten werden diese "hidden"-Felder genau so behandelt wie normale Input-Felder, Buttons, Checkboxen etc.

Wenn du also im Webbrowser auf Absenden klickst werden die Hidden-Felder mit gesendet. Gleiches musst du also auch bei IdHTTP machen.

Delphi-Quellcode:

var
  lParams  : TStringList;
begin
  lParams := TStringList.Create();
  lParams.Add('p=MakeGuestbookEntry798');
  lParams.Add('a=send');
  [...]
  IdHttp.Pos(URL, lParams);
end;

[newuser01]

Hallo Jens soweit ich es verstanden habe muss also eine bestimmte Reihenfolge eingehalten werden , oder? also erst neues Gästebuch erzeugen dann input (text) mit entsprechenden Text füllen und dann submit (send) u.s.w Aber welches ist nun das eigentliche Gästebuchformular und wie wäre laut dem Quelltext der Webseite die richtige Reihenfolge zum abarbeiten? oder versteh ich immer noch Bahnhof?

Delphi-Quellcode:

procedure TForm1.btnSendClick(Sender: TObject);
var
sURL:String;
slEntry:TStringList;
begin

//so wohl doch nicht :-)
  sURL := eGB.Text;
  slEntry := TStringList.Create;
  slEntry.Add('p=MakeGuestbookEntry798');
  slEntry.Add('text='+reEntry.Text);
  slEntry.Add('a=send');

  IdHTTP1.Post(sURL,slEntry);

[SirThornberry]

die Reihenfolge spielt keine Rolle es geht nur darum das wirklich alle Felder gesendet werden (auch die hidden). Bei dir fehlt im moment mindestens "from" und "submit" (und die entsprechenden Werte)

[newuser01]

es funktioniert !! noch eine Frage hab ich funktioniert das auch so beim login denn da bekomm ich die Fehlermeldung
(HTTP/1.1 302 Moved)


hier mal der Quelltext der Webseite

Code:

<div id="nav">
   <table border="0" cellpadding="0" cellspacing="0" width="160">
      <tr>
         <td>[url="/"][img]http://img.uboot.com/i/int/main/logo.gif[/img][/url]</td>
      </tr>   
      <tr>
         <td align="center" bgcolor="#141414">

                        <table border="0" cellpadding="0" cellspacing="0" width="140" bgcolor="#333333">
               <form name="enternick" action="/ger/" method="POST" style="margin:0px">
               <input type="hidden" name="a" value="login">
               <tr>
                  <td>[img]http://img.uboot.com/i/int/main/nav_einloggen.gif[/img]</td>
               </tr>
               <tr>
                  <td align="center" class="error"></td>
               </tr>

               <tr>
                  <td align="center">
                     <table border="0" cellpadding="1" cellspacing="0">
                        <tr>
                           <td align="center" class="small">[b]nickname[/b]</td>
                        </tr>
                        <tr>
                           <td align="center"><input name="unickname" type="text" size=13 style="width:120px" value="" tabindex="1" class="form"></td>

                        </tr>
                        <tr>
                           <td align="center" class="small">[b]passwort[/b]</td>
                        </tr>
                        <tr>
                           <td align="center"><input name="password" type="password" size=13 style="width:120px" tabindex="2" class="form"></td>
                        </tr>
                        <tr>

                           <td align="center" height="28"><input type="submit" value="login" class="submit"></td>
                        </tr>
                        <tr>
                           <td nowrap="nowrap">                           
                           [url="/register/ger/"]registrieren[/url][url="javascript:cash('/requestnewpassword/ger/')"]passwort?[/url]
                           </td>
                        </tr>
                     </table>

                  </td>
               </tr>
               <tr>
                  <td>[img]http://img.uboot.com/i/int/main/nav_box_down.gif[/img]</td>
               </tr>
               </form>
            </table>
         </td>
      </tr>

   </table>

und hier mein Versuch

Delphi-Quellcode:

  slLogin := TStringList.Create;
  slLogin.Add('a=login');
  slLogin.Add('unickname='+ eUsername.Text);
  slLogin.Add('password='+ ePasswort.Text);
  slLogin.Add('submit=login');

  IdHTTP1.Post(sURL, slLogin);

[newuser01]

so gehts auch aber ist es auch die beste Lösung

Delphi-Quellcode:

IdHTTP1.Request.Username := eUsername.Text;
IdHTTP1.Request.Password := ePasswort.Text;
IdHTTP1.Get(sURL);