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:

zusammenfalten · markieren

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

Post bei Indy10 funktioniert nicht

Post bei Indy10 funktioniert nicht

Forumregeln