Ups, in dem Code fehlt die Erzeugung und Deklarierung der IdHTTP-Komponente
Neuer Code:
Delphi-Quellcode:
function sendeDatenAnServer(datenString:
string):
string;
//Rückgabewert ist die Ausgabe des PHP-Scriptes
var
Strings: TStringList;
//Zusammengesetze Post-Daten
Stream: TStringStream;
//Ausgabe der Aufgerufenen Seite
IdHttp: TIdHttp;
//Vorher vergessene Deklaration
begin
IdHttp:=TIdHttp.Create(
nil);
//Vorher vergessene Erzeugung
Result := '
';
Stream := TStringStream.Create('
');
//Rückgabe-Stream erstellen
Strings := TStringList.Create;
//Post-Daten-StringList erstellen
try
Strings.Add('
daten=' + datenString);
//Memo1.Text (= datenString) soll im PHP-Script über $_POST['daten'] erreichbar sein
try
idHTTP.Post('
http://#Die Adresse#.dyndns.org/upload.php?Dir=', Strings, Stream);
//Datei abrufen
Result := Stream.DataString;
//dem Ausgabe-String die zurückgegebenen Daten zuweisen (alles was im PHP Script z.B. mit echo "..."; ausgegeben wurde)
except //Fehlerbehandlung
on E:
Exception do
ShowMessage('
Error encountered during POST: ' + E.
Message);
end;
finally
Strings.Free;
Stream.Free;
end;
end;