Post bei Indy10 funktioniert nicht

[felxi]

Hi @all,

Ich habe folgenden Quelltext:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Params: TIdMultiPartFormDataStream;
  ReturnMemoryStream: TMemoryStream;
  ReadOut: array of Char;
  StreamSize: Integer;
begin
  ReturnMemoryStream:=TMemoryStream.Create;
  Params:=TIdMultiPartFormDataStream.Create;
  Params.AddFormField('Passwort', 'Test');
  try
    MySQLIdHTTP.Post('http://killprocess.ki.funpic.de/Passwort.html', Params, ReturnMemoryStream);
    StreamSize:=ReturnMemoryStream.Size;
    ReturnMemoryStream.Position:=0;
    SetLength(ReadOut, StreamSize);
    ReturnMemoryStream.ReadBuffer(ReadOut[0], StreamSize);
    ShowMessage(String(ReadOut));
  except
    Application.MessageBox('Fehler beim Abruf von Daten', 'HTTP-Fehler', 16);
  end;
  FreeAndNil(Params);
  FreeAndNil(ReturnMemoryStream);
end;

und auf die zu ladene Seite folgenden Quelltext:

Delphi-Quellcode:

<?php
   echo $_Post["Passwort"];
   if ($_Post["Passwort"]=="Test")
   {
       echo("1");   
   }
   else
   {
      echo("0");
   }
?>

Allerdings gibt er mir immer nur 0 oder 1 zurück, anstatt das mit Post versendete PW + der 0 oder der 1. Sieht einer von euch meinen Fehler?

PS: Orginalpost im Delphi-Forum

[Jelly]

Irgendwie rufst Du aus dem Delphi Programm heraus eine HTML Seite auf. Auf dem Server willst Du aber eine PHP Datei abarbeiten. Kann es daran liegen ?

[felxi]

Es ist richtig, das auf dem Server eine html-Datei liegt, allerdings wird in dieser Datei der Code sofort auf php umgestellt ;). Und der 2. Teil funktioniert ja (also die Rückgabe von 0 oder 1). Dadurch denke ich nicht, dass es daran liegt.