Post Command abschicken?

[SirThornberry]

nutze nächstes mal bitte wenn du noch etwas deinem Beitrag hinzufügen willst.
Eigentlich hast du mit IdHttp schon alles was du benötigst. Derzeit rufst du den Quelltext vermutlich mit
IdHttp1.Get(....) ab.
Genauso gibt es aber auch
IdHttp1.Post(....) womit du eben daten posten kannst.

[mkinzler]

Lösche mal alle Dateien der alten Version und lasse die Packages der neuen neu erzeugen

[Sh4d0w]

@SirThornberry: Ja, ich rufe z.Z mit Get auf, hab auch schon von dem Post Befehl gelesen. Nur wie geht der genau? Muss ich den gleichen Link mit Post aufrufen? Und wie schicke ich die Zeichen aus dem Editfeld dann per Post-Befehl ab? Wäre nett, wenn du mir das erläutern könntest.
@mkinzler: Wenn die einfach Post-Methode funktioniert, kann ich mir das ja sparen. Ansonsten probiere ich das später nochmal aus. Danke!

[mkinzler]

Der fEhler könnte aber trotzdem auftreten, weil es mir scheint, daß Dateien von verschidenen INDY-Versionen gemischt vorliegen.

[Sh4d0w]

Zitat von mkinzler:

Der fEhler könnte aber trotzdem auftreten, weil es mir scheint, daß Dateien von verschidenen INDY-Versionen gemischt vorliegen.

OK, aber was muss ich denn danach machen? Kannst du mir vllt. verraten wie der Post befehl geht?

[mkinzler]

INDY POST

[Sh4d0w]

Also ich habe diesen Quelltext der Seite:

Zitat:

<FORM ACTION="link.html" METHOD="post" ID="postit" STYLE="display:inline;">
<INPUT TYPE="HIDDEN" NAME="s" VALUE="3e959f252dc5c6d914a3e4795a6c3d3d">

<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="5">
<TR>
<TD>[img]linkzumbild.gif[/img]</TD>
<TD><INPUT TYPE="TEXT" CLASS="TEXT" MAXLENGTH="3" SIZE="3" NAME="c" STYLE="width: 40px;" VALUE=""></TD>
<TD><INPUT TYPE="SUBMIT" CLASS="BUTTON" NAME="action" VALUE="Los"></TD>

Wie lautet dann der Delphi-Code zum Post-Befehl, evtl. so?

Delphi-Quellcode:

var
  PostInformationStream : TStringStream;
  Parameter : TStringStream;
begin
  idhttp1.HandleRedirects:=true;
  PostInformationStream := TStringStream.Create('');
  Parameter := TStringStream.Create('');
  Parameter.WriteString('los=Edit3.Text');
  try
    IdHTTP1.Post(Edit1.Text, Parameter, PostInformationStream);
    Memo1.Text := PostInformationStream.DataString;
  finally
  Parameter.Free;
  PostInformationStream.Free;
  end;
end;

Was besseres habe ich jetzt nicht gefunden, klappt aber alles nicht. Habe schon einiges ausprobiert. Wäre nett, wenn irgendjemand mir das erklären könnte.

[mkinzler]

Du mußt auch die Input-Felder Posten (s, c) und nicht den Button.

[Sh4d0w]

Das hat nur ein Feld, weiß auch nicht wieso im Quellcode zwei sind.
Also links ist das Bild, dann kommt das Feld und dann der Button.

muss das dann so sein?

Delphi-Quellcode:

var
  PostInformationStream : TStringStream;
  Parameter : TStringStream;
begin
  idhttp1.HandleRedirects:=true;
  PostInformationStream := TStringStream.Create('');
  Parameter := TStringStream.Create('');
  Parameter.WriteString('s=Edit3.Text');
  try
    IdHTTP1.Post(Edit1.Text, Parameter, PostInformationStream);
    Memo1.Text := PostInformationStream.DataString;
  finally
  Parameter.Free;
  PostInformationStream.Free;
  end;
end;

Ist der Ansatz denn richtig?

[mkinzler]

Nein es sind 2. Eines ist vom Typ hidden und scheint eine Session (3e959f252dc5c6d914a3e4795a6c3d3d)o.ä zu repräsentieren.

Parameter.WriteString('s='+Edit3.Text);