@fui-tak
wenn ich das so mache
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
begin
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;
kommen die fehlermeldungen
[Fehler] Chartrans.pas(123): Undefinierter Bezeichner: 'Post'
[Fehler] Chartrans.pas(124): Der linken Seite kann nichts zugewiesen werden
//Bei ,,Result := Stream.DataString;''
[Fehler] Chartrans.pas(124): Anweisung erforderlich, aber Ausdruck vom Typ 'String' gefunden
//nochmal bei ,,Result := Stream.DataString;''
[Fataler Fehler] Chartransfer.dpr(5): Verwendete
Unit 'Chartrans.pas' kann nicht compiliert werden
?
