Hallo,
ich habe in einem Forum diesen code mir kopiert und in mein Programm eingebunden:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| Datei := TFileStream.Create('c:\diagramm.jpg', fmOpenRead);
Stream := TStream.Create;
Stream := Datei;
PutDataStream := TStringStream.Create('');
try
IdHTTP1.Put('http://medabots1992.lima-city.de/tcg/bild.php', Stream, PutDataStream);
Memo1.Text := PutDataStream.DataString;
finally
PutDataStream.Free;
Stream.Free;
end; |
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| <?php
/* PUT Daten kommen in den stdin Stream */
$putdata = fopen("php://stdin","r");
/* Eine Datei zum Schreiben öffnen */
$now = date("Y-m-d - H_i_s");
$fp = fopen("upload/diagramm.jpg","w");
/* Jeweils 1kB Daten lesen und
in die Datei schreiben */
while ($data = fread($putdata,1024)) {
fwrite($fp,$data);
echo $data;
}
/* Die Streams schließen */
fclose($fp);
fclose($putdata);
?> |
Und das hier hab ich auf dem Webserver.
Blos die Datei die erstellt wird ist leer.
Warum?
Danke schon im vorraus.
MfG
hui1991
