Der folgende Code liefert mir ein korrektes Ergebnis und sollte zudem "serververträglich" sein:
Delphi-Quellcode:
var
DataStream: TIdMultiPartFormDataStream;
Response: string;
begin
DataStream:=TIdMultiPartFormDataStream.Create;
try
IdHTTP1.Request.ContentType:='multipart/form-data';
DataStream.AddFormField('upload','1');
DataStream.AddFile('file','C:\test.gif','image/gif');
Response:=IdHTTP1.Post('http://www.imagecrate.de/index.php?page=upload',DataStream);
finally
DataStream.Free;
end;
end;
Ergebnis (Ausschnitt)
Code:
<tr>
<td rowspan="11" valign="top" width="170"><div align="center">[
url="http://www.imagecrate.de/view.php?id=2532"][img]http://www.imagecrate.de/upload/thumb/83148_test.gif[/img][/
url]
[b]83148_test.gif[/b]</div></td>
<td>