Hallo Leute,
ich moechte per idHTTP.Post daten an ein PHP übergeben.
Es kommt aber nur
Test
Undefined index: email in test1.phpon line 3
Wen ich mit ISSET($_POST['email') arbeite kommt nur
Test
Aber wieso. Wo liegt der Fehler????
Gruss Paul
Hier der Quelltext:
Delphi-Quellcode:
PostStrings: TStringList;
//Zusammengesetze Post-Daten
ResponseStream:TStringStream;
//Ausgabe der Aufgerufenen Seite
ausgabe:
String;
//Ausgabe der aufgerufenen Seite als String
zeile:
String;
//Zum zeilenweisen Ausgeben der Rückgabe der Aufgerufenen Seite benutzte Zwischenvariable
i:Integer;
//Zähler für die For-Schleife
begin
ResponseStream:=TStringStream.Create('
');
//Rückgabe-Stream erstellen
PostStrings := TStringList.Create;
//Post-Daten-StringList erstellen
try
PostStrings.Add('
email=test@test.de');
//Post-Daten in die StringList eintragen
try
idHTTP.Post('
http://ps-edv-online.de/test1.php', PostStrings,Responsestream);
//Datei abrufen
ausgabe:=ResponseStream.DataString;
//Ausbage-Sring die zurückgegebenen Daten zuweisen
zeile:='
';
//Zwischenvariable leeren
for i:=1
to Length(ausgabe)
do begin //For-Schleife zum formatieren der Ausgabe (Zeilenumbrüche korrekt darstellen)
if (ausgabe[i]=#13)
and (ausgabe[i+1]=#10)
then begin //Bei Zeilenumbruch
ResponseMemo.Lines.Add(zeile);
zeile:='
';
end else if ausgabe[i]<>#10
Then zeile:=zeile+ausgabe[i];
end;
ResponseMemo.Lines.Add(zeile);
except //Fehlerbehandlung
on E:
Exception do
showmessage('
Error encountered during POST: ' + E.
Message);
end;
finally
PostStrings.Free;
ResponseStream.Free;
end;
end;
test1.php
Delphi-Quellcode:
<?php
echo "test";
echo $_POST['email'];
?>