Thema: Delphi Post Command abschicken?

Einzelnen Beitrag anzeigen

Sh4d0w

Registriert seit: 19. Okt 2005
57 Beiträge
 
#17

Re: Post Command abschicken?

  Alt 1. Mai 2007, 12:48
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.
  Mit Zitat antworten Zitat