So,
ich versuche mit Delphi einen String zu verschicken:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
PostDataStream : TStringStream;
ParamData : TStringStream;
begin
PostDataStream := TStringStream.Create('');
ParamData := TStringStream.Create('');
ParamData.WriteString('src=hullekulle');
try
IdHTTP1.Post('http:/domain.de/upload.php', ParamData, PostDataStream);
except
//..
end;
end;
Leider wird meinem Script nichts übergeben.
Wenn ich es aber über
www.domain.de/upload.php?src=blabla aufrufe, dann kommt was an!
hier noch der php code:
Code:
<?php
$num1 = $_POST['src'] ;
$num1 .= $_GET['src'];
$file = "counter.txt"; // Dateizuweisung
$
ftp = @fopen($file,"w+"); // Öffnet die Datei
fwrite($
ftp,$num1); // Schreibt
fclose($
ftp); // Schließt die Datei
include($file); // Zeigt sich selbst an
?>