Einen Teil einer Datei posten!?

[Hendrik R.]

Hallo,<br>
<br>
weil ja PHP eine kleine Speichergrenze hat, was das posten von<br>
Dateien angeht möchte ich eine Datei Stück für Stück auslesen<br>
und diese dann an das Script senden.<br>
Wie mache ich dies?<br>
Ich habe bereits ein wenig rumprobiert, aber folgende<br>
Prozedur funktioniert nur mit Textdateien. <br>
------------------<br>
procedure TForm1.Button2Click(Sender: TObject);<br>
var<br>
&nbsp;&nbsp;F: TextFile;<br>
&nbsp;&nbsp;Response: TMemoryStream;<br>
&nbsp;&nbsp;StringList: TStringList;<br>
&nbsp;&nbsp;Buffer: String;<br>
begin<br>
&nbsp;&nbsp;Response := TMemoryStream.Create;<br>
&nbsp;&nbsp;StringList:= TStringList.Create;<br>
<br>
&nbsp;&nbsp;try<br>
&nbsp;&nbsp;&nbsp;&nbsp;AssignFile(F,Edit1.text);< br>
&nbsp;&nbsp;&nbsp;&nbsp;Reset(F);<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;while not EOF(F) do begin<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ReadLn(F,Buffe r);<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;StringList.Add (URLEncode('filename='+ExtractFileName(Edit1.text) ));<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;StringList.Add (URLEncode('&filedata='+Buffer));<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;HTTP.Request.C ontentType := 'application/x-www-form-urlencoded';<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;HTTP.Post('htt p://localhost/test.php',StringList,Response);<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response.Posit ion := 0;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Memo1.Lines.Lo adFromStream(Response);<br>
&nbsp;&nbsp;&nbsp;&nbsp;end;<br>
&nbsp;&nbsp;finally<br>
&nbsp;&nbsp;&nbsp;&nbsp;Response.Free;<br>
&nbsp;&nbsp;&nbsp;&nbsp;StringList.Free;<br>
&nbsp;&nbsp;&nbsp;&nbsp;CloseFile(F);<br>
&nbsp;&nbsp;end;<br>
end;<br>
<br>
-------------------------<br>
Danke für eure Hilfe!<br>
<br>
Gruß Hendrik<br>