Post-Daten werden normalerweise dafür genutzt, Daten aus
HTML-Formularen an bearbeitende PHP- oder CGI-Sckripte zu senden. Mit den
Indy-Komponenten lassen sich solche Formulare imitieren. Dadurch lässt sich ein solches Formular direkt in die Anwendung integrieren. Aber auch zum Datenaustausch mit einem solchen Skript kann die Funktion genutzt werden.
Die benötigte Funktionalität wird von der Komponente TidHTTP zur Verfügung gestellt.
Folgende Komponenten werden auf dem Test-Formular benötigt:
(Das Test-Formular soll ein einfaches Konakt-Formular darstellen)
- Eine Edit-Komponente EMailEdit (für die E-Mail-Adresse)
- Eine Memo-Komponente TextMemo (für den Text)
- Noch eine Memo-Komponente ResponseMemo (für den zurückgegebenen Text)
- Eine TidHTTP-Komponente IdHTTP
- Und eine Button Komponente SendButton (zum Senden)
Außer den Namen können alle Standardeigenschaften der Elemente so belassen werdne
In die Ereignisbehandlung OnClick des Buttons muss jetzt geschrieben werden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
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
Stream:=TStringStream.Create('
');
//Rückgabe-Stream erstellen
Strings := TStringList.Create;
//Post-Daten-StringList erstellen
try
Strings.Add('
EMail='+EMailEdit.Text);
//Post-Daten in die StringList eintragen
Strings.Add('
Text='+TextMemo.Lines.Text);
try
idHTTP.Post('
http://deineSeite.de/DeineDatei.php', Strings,stream);
//Datei abrufen
ausgabe:=Stream.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 s[i]<>#10
Then zeile:=zeile+ausgabe[i];
end;
ResponseMemo.Lines.Add(steil);
except //Fehlerbehandlung
on E:
Exception do
showmessage('
Error encountered during POST: ' + E.
Message);
end;
finally
Strings.Free;
Stream.Free;
end;
end;
Zum Abschluss noch ein Beispiel für eine bearbeitende PHP-Seite: (die Anfrage würde normalerweise noch irgendwo abgespeichert werden, darauf habe ich hier verzichtet, die Post-Daten werden lediglich formatiert zurückgegeben)
Code:
<?php
echo 'E-Mail: '.$_POST["EMail"]; //Ausgeben der E-Mail-Adresse
echo Chr(13).Chr(10); //Zeilenumbruch
echo 'Text: '.$_POST["Text"];
?>
Bitte beachten: Php-Seiten müssen immer über einen (lokalen) Web-Server aufgerufen werden, damit sie interpretiert werden.
Antwort
Zitat
Linear-Darstellung
